2025年VB考試有效復(fù)習(xí)試題及答案一、單項(xiàng)選擇題（每題2分，共20分）1.以下合法的VB變量名是（）A.2025ScoreB.ForLoopC.IfD.姓名_1232.執(zhí)行語(yǔ)句`a=3:b=5:c=a>b`后，變量c的數(shù)據(jù)類型是（）A.整數(shù)型（Integer）B.布爾型（Boolean）C.字符串型（String）D.變體類型（Variant）3.表達(dá)式`3+5\28And10Mod3>1`的運(yùn)算結(jié)果是（）A.TrueB.FalseC.14D.04.設(shè)`x=47`，執(zhí)行`y=IIf(xMod5=0,"能被5整除","不能被5整除")`后，y的值為（）A.47B.能被5整除C.不能被5整除D.空字符串5.聲明二維數(shù)組`Dimarr(2To5,-1To1)AsInteger`，該數(shù)組的元素個(gè)數(shù)是（）A.12B.15C.16D.206.若要在文本框Text1中輸入時(shí)僅允許輸入數(shù)字字符，應(yīng)在（）事件中編寫代碼。A.Text1_ClickB.Text1_ChangeC.Text1_KeyPressD.Text1_LostFocus7.以下關(guān)于過(guò)程的描述，錯(cuò)誤的是（）A.使用`Public`聲明的過(guò)程可被所有模塊調(diào)用B.子過(guò)程（Sub）可以通過(guò)`Return`語(yǔ)句返回多個(gè)值C.函數(shù)過(guò)程（Function）必須返回一個(gè)值D.過(guò)程參數(shù)中的`ByRef`關(guān)鍵字表示按引用傳遞8.執(zhí)行以下代碼后，輸出結(jié)果是（）```vbDimsAsString,iAsIntegers="VB2025Exam"Fori=1ToLen(s)Step2PrintMid(s,i,1);Nexti```A.V22EmB.B0xmC.VB2025ExamD.V22Ea9.要將文件`D:\data.txt`中的內(nèi)容讀取到字符串變量`strContent`中，正確的代碼是（）A.```vbOpen"D:\data.txt"ForInputAs1strContent=Input(LOF(1),1)Close1```B.```vbOpen"D:\data.txt"ForOutputAs1strContent=Input(LOF(1),1)Close1```C.```vbOpen"D:\data.txt"ForAppendAs1strContent=Input(LOF(1),1)Close1```D.```vbOpen"D:\data.txt"ForBinaryAs1strContent=Input(LOF(1),{1})Close1```10.以下關(guān)于對(duì)象事件的說(shuō)法，正確的是（）A.按鈕（CommandButton）的默認(rèn)事件是DblClickB.列表框（ListBox）的Click事件在選中項(xiàng)改變時(shí)觸發(fā)C.窗體（Form）的Load事件在窗體顯示前觸發(fā)D.文本框（TextBox）的GotFocus事件在失去焦點(diǎn)時(shí)觸發(fā)二、填空題（每空2分，共20分）1.表達(dá)式`Int(-3.7)+Fix(3.7)`的計(jì)算結(jié)果是________。2.若`a=12`，`b=5`，則執(zhí)行`a=aXorb:b=aXorb:a=aXorb`后，a的值為________，b的值為________。3.執(zhí)行以下代碼后，標(biāo)簽Label1的Caption屬性值是________。```vbDimnAsInteger,sumAsIntegern=1DoWhilen<=5sum=sum+nn=n+2LoopLabel1.Caption=sum```4.設(shè)有數(shù)組`Dimarr()AsInteger={3,1,4,1,5,9}`，若要將數(shù)組元素按升序排列，需調(diào)用`Array.Sort(arr)`方法，執(zhí)行后數(shù)組的第三個(gè)元素是________。5.以下代碼的功能是統(tǒng)計(jì)字符串中大寫字母的個(gè)數(shù)，補(bǔ)全缺失部分：```vbDimstrAsString="HelloWorld2025VB"DimcountAsInteger=0ForEachcAsCharInstrIfc>="A"AndAlsoc<="Z"Thencount=count+1EndIfNextMsgBox("大寫字母?jìng)€(gè)數(shù)："&count)```（注：本題需判斷代碼是否存在錯(cuò)誤，若存在則填寫修正后的語(yǔ)句；若不存在則填“無(wú)錯(cuò)誤”）6.若要將圖片框Picture1中的圖像清空，應(yīng)設(shè)置其________屬性為Nothing。7.執(zhí)行以下代碼后，輸出結(jié)果是________。```vbSubTest()DimxAsInteger=1CallAdd(x)PrintxEndSubSubAdd(ByValnAsInteger)n=n+5EndSub```8.打開文件時(shí)，若使用`ForRandom`模式，需指定記錄的________，否則會(huì)報(bào)錯(cuò)。三、程序分析題（每題10分，共30分）1.分析以下代碼的功能，并寫出運(yùn)行后的輸出結(jié)果。```vbDimiAsInteger,jAsIntegerFori=1To5Forj=1ToiPrint"";NextjPrintNexti```2.閱讀以下代碼，說(shuō)明其實(shí)現(xiàn)的功能，并計(jì)算當(dāng)輸入n=5時(shí)的輸出結(jié)果。```vbFunctionFactorial(nAsInteger)AsIntegerIfn=0ThenFactorial=1ElseFactorial=nFactorial(n1)EndIfEndFunctionPrivateSubCommand1_Click()DimnAsInteger,sumAsIntegern=Val(InputBox("請(qǐng)輸入一個(gè)正整數(shù)："))sum=0Fori=1Tonsum=sum+Factorial(i)NextiMsgBox("結(jié)果為："&sum)EndSub```3.以下代碼用于判斷一個(gè)數(shù)是否為質(zhì)數(shù)（素?cái)?shù)），指出其中的錯(cuò)誤并修正。```vbFunctionIsPrime(numAsInteger)AsBooleanIfnum<2ThenReturnFalseFori=2Tonum1IfnumModi=0ThenReturnTrueEndIfNextiReturnFalseEndFunction```四、編程題（每題15分，共30分）1.設(shè)計(jì)一個(gè)VB程序，實(shí)現(xiàn)以下功能：在文本框Text1中輸入一個(gè)整數(shù)n（n≥1），點(diǎn)擊命令按鈕Command1后，在列表框List1中輸出1到n之間所有既是3的倍數(shù)又是5的倍數(shù)的數(shù)（即15的倍數(shù)），并計(jì)算這些數(shù)的總和，將總和顯示在標(biāo)簽Label1中。要求：輸入驗(yàn)證：若輸入非整數(shù)或n<1，彈出提示框“請(qǐng)輸入≥1的整數(shù)”；列表框按每行一個(gè)數(shù)的格式輸出；總和計(jì)算正確。2.編寫一個(gè)VB函數(shù)`ReverseString`，實(shí)現(xiàn)字符串反轉(zhuǎn)功能（例如輸入“abc123”，輸出“321cba”）。要求：不使用內(nèi)置的`StrReverse`函數(shù)；用數(shù)組或循環(huán)結(jié)構(gòu)實(shí)現(xiàn)；處理空字符串或長(zhǎng)度為1的字符串的情況。答案及解析一、單項(xiàng)選擇題1.D（變量名不能以數(shù)字開頭，不能是保留字，D符合規(guī)則）2.B（關(guān)系表達(dá)式結(jié)果為布爾型）3.B（運(yùn)算順序：5\2=2，28=16，3+16=19；10Mod3=1，1>1=False；19AndFalse=False）4.C（47Mod5=2≠0，返回“不能被5整除”）5.A（行數(shù)：5-2+1=4；列數(shù)：1-(-1)+1=3；總個(gè)數(shù)4×3=12）6.C（KeyPress事件可攔截輸入字符）7.B（Sub不能通過(guò)Return返回值，需用參數(shù)或全局變量）8.A（Mid(s,1,1)="V"，i=3時(shí)Mid(s,3,1)="2"，i=5時(shí)Mid(s,5,1)="2"，i=7時(shí)Mid(s,7,1)="E"，i=9時(shí)Mid(s,9,1)="m"）9.A（Input模式用于讀取文件，LOF(1)獲取文件長(zhǎng)度）10.C（Load事件在窗體加載時(shí)觸發(fā)，早于顯示）二、填空題1.0（Int(-3.7)=-4，F(xiàn)ix(3.7)=3，-4+3=-1？不，原題可能筆誤，正確計(jì)算應(yīng)為Int(-3.7)=-4，F(xiàn)ix(3.7)=3，-4+3=-1？但可能題目實(shí)際應(yīng)為Int(-3.7)=-4，F(xiàn)ix(-3.7)=-3，若原題表達(dá)式是Int(-3.7)+Fix(-3.7)則為-7。需確認(rèn)題目是否有誤。假設(shè)題目正確，答案應(yīng)為-1）（注：經(jīng)核查，原題表達(dá)式為`Int(-3.7)+Fix(3.7)`，Int(-3.7)=-4，F(xiàn)ix(3.7)=3，-4+3=-1，故答案為-1）2.5，12（異或交換法，a和b值互換）3.9（n=1→sum=1，n=3→sum=4，n=5→sum=9，n=7退出循環(huán)）4.3（排序后數(shù)組為{1,1,3,4,5,9}，第三個(gè)元素索引從0開始為3）5.無(wú)錯(cuò)誤（代碼正確統(tǒng)計(jì)大寫字母，"HelloWorld2025VB"中大寫字母為H、W、V、B，共4個(gè)）6.Image（PictureBox的Image屬性設(shè)置為Nothing清空?qǐng)D像）7.1（ByVal按值傳遞，Add過(guò)程不修改原變量x）8.長(zhǎng)度（Random模式需用Len參數(shù)指定記錄長(zhǎng)度）三、程序分析題1.功能：輸出5行的直角三角形星號(hào)圖案，第i行有i個(gè)星號(hào)。輸出結(jié)果：2.功能：計(jì)算1!+2!+…+n!的和。當(dāng)n=5時(shí)，1!+2!+3!+4!+5!=1+2+6+24+120=153，輸出結(jié)果為153。3.錯(cuò)誤：當(dāng)num能被i整除時(shí)應(yīng)返回False（不是質(zhì)數(shù)），否則循環(huán)結(jié)束后返回True（是質(zhì)數(shù)）。修正后的代碼：```vbFunctionIsPrime(numAsInteger)AsBooleanIfnum<2ThenReturnFalseFori=2Tonum1IfnumModi=0ThenReturnFalse'能被整除，不是質(zhì)數(shù)EndIfNextiReturnTrue'循環(huán)結(jié)束未找到因數(shù)，是質(zhì)數(shù)EndFunction```四、編程題1.參考代碼：```vbPrivateSubCommand1_Click()DimnAsInteger,sumAsInteger,iAsIntegerList1.ClearLabel1.Caption=""'輸入驗(yàn)證IfNotIsNumeric(Text1.Text)OrVal(Text1.Text)<1ThenMsgBox"請(qǐng)輸入≥1的整數(shù)"Text1.SetFocusText1.SelectAllExitSubEndIfn=Val(Text1.Text)sum=0Fori=1TonIfiMo