2025年VB考試模擬題庫試題及答案一、單項選擇題（每題2分，共30分）1.以下關于VB變量聲明的描述中，正確的是（）。A.`DimstrNameAsString5`聲明了一個最大長度為5的字符串變量B.`Dimnum%=10.5`會將num賦值為10.5（隱式轉換為整數(shù)）C.`DimflagAsBoolean="True"`可以正常編譯，flag值為TrueD.`Dimarr(5)AsInteger`聲明了一個包含5個元素的整數(shù)數(shù)組答案：A2.執(zhí)行以下代碼后，變量x的值是（）。`x=12:IfxMod3=0OrxMod4=0Thenx=x2Elsex=x\2`A.12B.24C.6D.3答案：B3.若要實現(xiàn)“當輸入的分數(shù)score≥60時輸出‘及格’，否則輸出‘不及格’”，以下最合理的代碼是（）。A.`Ifscore>=60ThenPrint"及格"ElsePrint"不及格"`B.`Ifscore>60ThenPrint"及格"ElsePrint"不及格"`C.`SelectCasescoreCaseIs>=60:Print"及格"CaseElse:Print"不及格"EndSelect`D.A和C均正確答案：D4.以下循環(huán)結構中，循環(huán)體執(zhí)行次數(shù)為3次的是（）。A.`Fori=1To3Step0:Printi:Next`B.`k=0:DoWhilek<3:k=k+1:Printk:Loop`C.`j=5:DoUntilj=2:j=j1:Printj:Loop`D.`m=1:Whilem<4:m=m+1:Printm:Wend`答案：B5.聲明二維數(shù)組`Dimarr(2,3)AsInteger`后，該數(shù)組的元素個數(shù)是（）。A.8B.12C.6D.9答案：B（索引從0開始，行數(shù)0-2共3行，列數(shù)0-3共4列，3×4=12）6.以下關于過程的描述中，錯誤的是（）。A.子過程（Sub）可以通過參數(shù)返回多個值B.函數(shù)過程（Function）必須有返回值C.使用`Call`語句調用子過程時，參數(shù)必須加括號D.過程的參數(shù)默認按值傳遞（ByVal）答案：D（默認按地址傳遞ByRef）7.執(zhí)行`a="VB":b="Program":c=a&Mid(b,3,4)`后，c的值是（）。A."VBProg"B."VBgram"C."VBogr"D."VBrog"答案：D（Mid("Program",3,4)取第3個字符開始的4個字符，即"rog"，與"VB"連接為"VBrog"）8.若要將文本框Text1的內容清空，以下代碼正確的是（）。A.`Text1.Text=""`B.`Text1.Clear`C.`Text1.Value=""`D.`Text1=""`答案：A9.以下關于文件操作的描述中，正確的是（）。A.用`Open"data.txt"ForInputAs1`打開文件時，若文件不存在會報錯B.`Write1,a,b`會在文件中寫入a和b的值，用分號分隔C.`Close1`只能關閉文件號為1的文件，不能同時關閉多個文件D.順序文件只能用Input模式讀取，隨機文件只能用Random模式讀取答案：A10.執(zhí)行以下代碼后，輸出結果是（）。`Fori=1To3:Forj=1Toi:Print"";:Nextj:Print:Nexti`A.B.C.D.答案：A11.以下關于對象事件的描述中，錯誤的是（）。A.按鈕（CommandButton）的Click事件在鼠標單擊時觸發(fā)B.文本框（TextBox）的Change事件在內容改變時觸發(fā)C.窗體（Form）的Load事件在窗體顯示前觸發(fā)D.列表框（ListBox）的DblClick事件在雙擊空白區(qū)域時觸發(fā)答案：D（需雙擊列表項）12.若`a=3`，`b=5`，執(zhí)行`CallSwap(a,b)`后，a和b的值分別為（）。（注：Swap過程定義為`SubSwap(xAsInteger,yAsInteger):t=x:x=y:y=t:EndSub`）A.3,5B.5,3C.3,3D.5,5答案：B（參數(shù)默認按地址傳遞，交換了a和b的值）13.以下表達式中，結果為True的是（）。A.`3>2And5<4`B.`Not(3=3)`C.`7Mod3=1Or"abc">"abd"`D.`12/3=4Xor5>2`答案：C（7Mod3=1為True，"abc"<"abd"為False，TrueOrFalse=True）14.要在圖片框（PictureBox）中顯示圖片文件"logo.jpg"，正確的代碼是（）。A.`PictureBox1.Image="logo.jpg"`B.`PictureBox1.LoadPicture("logo.jpg")`C.`PictureBox1.Picture=LoadPicture("logo.jpg")`D.`PictureBox1.Picture="logo.jpg"`答案：C15.以下關于數(shù)組的描述中，正確的是（）。A.動態(tài)數(shù)組聲明時必須指定大小，后續(xù)可用ReDim修改B.靜態(tài)數(shù)組（Static）的元素在過程結束后會保留值C.多維數(shù)組的元素存儲順序是“行優(yōu)先”D.數(shù)組的索引可以是負數(shù)答案：C（多維數(shù)組按行優(yōu)先存儲，如二維數(shù)組先存第一行所有列，再存第二行）二、填空題（每題2分，共20分）1.VB中，對象的三要素是屬性、方法和__________。答案：事件2.表達式`Int(-3.7)+Fix(3.7)`的結果是__________。答案：-3+3=03.若要將變量x聲明為單精度浮點數(shù)，正確的聲明語句是__________。答案：`DimxAsSingle`4.執(zhí)行`a="123":b="45":c=Val(a)+Val(b)`后，c的值是__________。答案：123+45=1685.在Do循環(huán)中，`ExitDo`語句的作用是__________。答案：立即退出當前所在的Do循環(huán)6.聲明動態(tài)數(shù)組時，需先用__________關鍵字聲明，再用ReDim重新定義大小。答案：Dim（或Dimarr()As類型）7.若要將列表框List1的最后一個項目刪除，應使用的語句是__________。答案：`List1.RemoveItemList1.ListCount1`（索引從0開始）8.順序文件的讀取方式包括Input語句和__________語句。答案：LineInput9.執(zhí)行`Fori=5To1Step-1:Printi;:Nexti`后，輸出結果是__________。答案：54321（注意分號不換行）10.過程的參數(shù)傳遞方式有按值傳遞（ByVal）和__________。答案：按地址傳遞（ByRef）三、程序填空題（每題5分，共25分）1.以下代碼用于計算1到100之間所有偶數(shù)的和，請補全空缺部分。```vbDimsumAsInteger,iAsIntegersum=0Fori=1To100If__________Thensum=sum+iEndIfNextiPrint"偶數(shù)和為：";sum```答案：`iMod2=0`（或`i%2=0`）2.以下代碼用于交換兩個變量的值，補全Swap過程。```vbDimaAsInteger,bAsIntegera=10:b=20CallSwap(a,b)Print"a=";a;"b=";bSubSwap(__________)DimtAsIntegert=x:x=y:y=tEndSub```答案：`xAsInteger,yAsInteger`（默認ByRef，交換a和b的值）3.以下代碼用于讀取文本文件"test.txt"的內容并顯示在文本框Text1中，補全空缺部分。```vbDimstrLineAsStringText1.Text=""Open"test.txt"For__________As1DoWhileNotEOF(1)LineInput1,strLineText1.Text=Text1.Text&strLine&vbCrLfLoop__________```答案：Input；Close14.以下代碼用于提供一個3×3的二維數(shù)組，并求其對角線元素之和（主對角線：i=j），補全空缺部分。```vbDimarr(2,2)AsInteger,sumAsInteger,iAsInteger,jAsIntegersum=0Fori=0To2Forj=0To2arr(i,j)=i+jIf__________Thensum=sum+arr(i,j)EndIfNextjNextiPrint"對角線和為：";sum```答案：`i=j`5.以下代碼用于判斷一個數(shù)是否為素數(shù)（質數(shù)），補全空缺部分。```vbFunctionIsPrime(nAsInteger)AsBooleanDimiAsIntegerIfn<2ThenIsPrime=FalseExitFunctionEndIfFori=2To__________IfnModi=0ThenIsPrime=FalseExitFunctionEndIfNextiIsPrime=TrueEndFunction```答案：`Sqr(n)`（或`Int(Sqr(n))`，檢查到平方根即可）四、編程題（共25分）1.（8分）編寫一個函數(shù)`Factorial(nAsInteger)`，計算n的階乘（n!=1×2×…×n），要求處理n=0的情況（0!=1）。答案：```vbFunctionFactorial(nAsInteger)AsLongIfn<0ThenFactorial=-1'無效輸入，返回-1ExitFunctionEndIfDimresultAsLongresult=1Ifn=0Thenresult=1ElseFori=1Tonresult=resultiNextiEndIfFactorial=resultEndFunction```2.（9分）設計一個VB程序，在窗體上添加一個命令按鈕（Command1）和一個列表框（List1）。點擊按鈕時，提供10個1-100之間的隨機整數(shù)存入數(shù)組，然后將數(shù)組中的偶數(shù)添加到列表框中。答案：```vb'窗體代碼PrivateSubCommand1_Click()Dimarr(9)AsInteger,iAsIntegerRandomize'初始化隨機數(shù)種子Fori=0To9arr(i)=Int(Rnd100)+1'提供1-100的隨機數(shù)NextiList1.Clear'清空列表框Fori=0To9Ifarr(i)Mod2=0ThenList1.AddItemarr(i)'添加偶數(shù)到列表框EndIf