vb新操作題（含答案）精品資料精品資料僅供學(xué)習(xí)與交流，如有侵權(quán)請(qǐng)聯(lián)系網(wǎng)站刪除謝謝僅供學(xué)習(xí)與交流，如有侵權(quán)請(qǐng)聯(lián)系網(wǎng)站刪除謝謝#EndIfy=(3) Print" 平均值為：";yEndSub【第1題】打開(kāi)文件“考生文件夾 操作l.vbp”，完善程序?qū)崿F(xiàn)以下功能并保存21+2前2021+2前20項(xiàng)的和考PrivateSubCommand1_Click()DimsAsSingleDimaAsInteger,bAsInteger,cAsInteger,kAsIntegers=0a=(1)b=1Fork=1To20s=s+a/bc=⑵a=⑶b=c+aNextkPrintsEndSub【第7題】打開(kāi)文件“工程1.vbp”，完善Form_Click事件代碼并保存完善程序，求1/1+1/2+2/3+-+21/34+…前20項(xiàng)的值。PrivateSubCommand1_Click()DimsAsIntegerDimaAsIntegerDimbAsIntegerDimkAsIntegers=0a=1b=1TOC\o"1-5"\h\zFork=1To10s=s+a/ba= ①s= ②b= ③NextkPrintsEndSub

【第3題】打開(kāi)文件“考生文件夾操作3.vbp”，完善程序?qū)崿F(xiàn)以下功能并保存。輸出數(shù)組的最大值。PrivateSubCommand1_Click()Dimarrl,MaxAsIntegerarrl=Array(12,435,76,24,78,54,866,43)⑴=-32768 Fori= (2) To7 ①maxIfarr1(i)>MaxThen(3)Nexti ②0Print" 最大值是:";Max ③max=arr1(i)EndSub【第4題】打開(kāi)文件“考生文件夾操作5.vbp”，完善程序?qū)崿F(xiàn)如下功能并保存：在所有的兩位整數(shù)中，輸出個(gè)位數(shù)字和十位數(shù)字不相同的整數(shù)及個(gè)數(shù)。PrivateSubCommand1_Click()DimnAsInteger,aAsInteger,bAsInteger,xAsIntegern=0Fora=(1)Forb=0To91to9a*10+b1to9a*10+b n=n+1EndIfNextbPrintNextaPrint" 總個(gè)數(shù)：";⑶EndSub【第9題】打開(kāi)文件“考生文件夾 工程1.vbp”，完善程序?qū)崿F(xiàn)如下功能并保存：在文本框text1中輸入一段含有數(shù)字的短文（如樣張），編寫(xiě)程序查找統(tǒng)計(jì)非數(shù)字字符的個(gè)數(shù)，并在label1中顯示。

①0②y<3>-s-PrivateSubCommand1_Click()DimxAsString,yAsStringDimsAsInteger,iAsIntegerx=Text1.Texts=①①0②y<3>-s-IfAsc(y)<48OrAsc(y)>57Thens=s+1EndIfNextiLabel1.Caption=Str(③)EndSub【第10題】打開(kāi)文件“考生文件夾 愷撒密碼.vbp”，完善程序?qū)崿F(xiàn)如下功能并保存：公元前60年，古羅馬統(tǒng)帥“朱利葉斯?愷撒”(Caesar)第一個(gè)用當(dāng)時(shí)發(fā)明的“愷撒密碼”書(shū)寫(xiě)軍事文書(shū)，進(jìn)行戰(zhàn)時(shí)通信。愷撒加密法簡(jiǎn)而言之，就是字母替換加密，每一個(gè)字母用字母表中該字母后的第三個(gè)字母代替。即明文：ABCDEFGHIJKLMNOPQRSTUVWXYZ密文：DEFGHIJKLMNOPQRSTUVWXYZABC編寫(xiě)程序，將明文加密輸出。例如：輸入：Howareyou!輸出：Krzduhbrx!DimptAsStringDimctAsStringDimptAsStringDimctAsStringDimnAsIntegerDimchAsStringDimiAsIntegerpt=txtPt.Text明文密文字母在字母表中的序號(hào)

ct=""Fori=1ToLen(pt)ch=Mid(pt,i,1)SelectCase①Case"A"To"Z"n=Asc(ch)-Asc("A")n=(n+3)Mod26ch=Chr(n+