2025年大學(xué)vb考試題庫及答案一、單項選擇題（每小題2分，共30分）1.以下關(guān)于VB變量聲明的說法中，正確的是（）A.用Dim聲明的變量作用域為整個工程B.未聲明的變量默認(rèn)是Variant類型C.Static聲明的變量僅在過程調(diào)用期間保留值D.變量名可以包含空格和數(shù)字答案：B2.執(zhí)行語句a=Val("123abc45")后，a的值是（）A.123abc45B.123C.12345D.0答案：B3.要使文本框（Text1）失去焦點時觸發(fā)事件，應(yīng)使用的事件過程是（）A.Text1_GotFocusB.Text1_LostFocusC.Text1_ClickD.Text1_Change答案：B4.設(shè)有數(shù)組聲明語句：Dimarr(3,4)AsInteger，則該數(shù)組的元素個數(shù)是（）A.12B.20C.15D.24答案：B（行數(shù)0-3共4行，列數(shù)0-4共5列，4×5=20）5.執(zhí)行以下代碼后，輸出結(jié)果是（）s="VisualBasic"PrintMid(s,7,5)A."sual"B."Basic"C."alBa"D."sualB"答案：D（Mid函數(shù)從第7個字符開始取5個，原字符串索引1開始：V(1)i(2)s(3)u(4)a(5)l(6)(7)B(8)a(9)s(10)i(11)c(12)，第7位是空格，取5個字符為"sBa"？實際原字符串"VisualBasic"正確索引應(yīng)為：V(1)i(2)s(3)u(4)a(5)l(6)(7)B(8)a(9)s(10)i(11)c(12)，所以Mid(s,7,5)是"Basi"？可能題目設(shè)計時原字符串為"VisualBasic"無空格，則第7位是'B'，取5個為"Basic"。此處可能題目存在筆誤，正確答案應(yīng)為B，假設(shè)原字符串無空格）6.以下能正確提供10到20之間（含10和20）隨機整數(shù)的表達(dá)式是（）A.Int(Rnd10)+10B.Int(Rnd11)+10C.Int(Rnd20)+10D.Int(Rnd10+1)+10答案：B（Rnd11提供0≤x<11，取整后0-10，加10得10-20）7.要使命令按鈕（Command1）的標(biāo)題顯示為"確認(rèn)(&C)"，應(yīng)設(shè)置其（）屬性A.CaptionB.NameC.TextD.Title答案：A8.以下關(guān)于Do循環(huán)的說法中，錯誤的是（）A.DoWhile...Loop是當(dāng)型循環(huán)B.Do...LoopWhile是直到型循環(huán)C.兩種循環(huán)結(jié)構(gòu)都至少執(zhí)行一次循環(huán)體D.可以用ExitDo退出循環(huán)答案：C（DoWhile循環(huán)可能不執(zhí)行循環(huán)體）9.設(shè)有過程定義：SubProc(aAsInteger,bAsString)，則正確的調(diào)用語句是（）A.CallProc(12,"test")B.Proc12;"test"C.CallProc("test",12)D.Proc12,34答案：A10.要將文件"score.txt"以輸入方式打開，正確的語句是（）A.Open"score.txt"ForInputAs1B.Open"score.txt"ForOutputAs1C.Open1ForInputAs"score.txt"D.Open"score.txt"ForAppendAs1答案：A11.執(zhí)行以下代碼后，x的值是（）x=0Fori=1To5Step2x=x+iNextiA.9B.6C.15D.10答案：A（i=1,3,5，x=1+3+5=9）12.以下關(guān)于數(shù)組的說法中，正確的是（）A.動態(tài)數(shù)組使用ReDim重新定義時會保留原有數(shù)據(jù)B.靜態(tài)數(shù)組在聲明時必須指定大小C.數(shù)組下標(biāo)的默認(rèn)起始值是1D.多維數(shù)組的元素按列存儲答案：B（動態(tài)數(shù)組用ReDimPreserve保留數(shù)據(jù)；默認(rèn)下標(biāo)0；多維數(shù)組按行存儲）13.要清除列表框（List1）中所有項目，應(yīng)使用的方法是（）A.List1.ClearB.List1.RemoveC.List1.ClsD.List1.Delete答案：A14.執(zhí)行以下代碼后，輸出結(jié)果是（）a=5:b=3Ifa>bThenIfb>4ThenPrinta+bElsePrintabEndIfElsePrintabEndIfA.8B.2C.15D.0答案：B（a=5>3，進入外層If；b=3不大于4，執(zhí)行a-b=2）15.以下關(guān)于事件驅(qū)動的說法中，錯誤的是（）A.程序的執(zhí)行順序由用戶操作決定B.每個對象都有預(yù)定義的事件C.事件過程是響應(yīng)事件的代碼段D.所有事件都必須編寫事件過程答案：D（有些事件可以不處理）二、填空題（每空2分，共20分）1.表達(dá)式3^2+5Mod32的值是______。（3^2=9，5Mod3=2，22=4，9+4=13）答案：132.若要將文本框設(shè)置為密碼輸入框（顯示號），應(yīng)設(shè)置其______屬性為""。答案：PasswordChar3.設(shè)有數(shù)組聲明：Dimnum()AsInteger，要重新定義為包含10個元素的數(shù)組并保留原有數(shù)據(jù)，應(yīng)使用語句______。答案：ReDimPreservenum(9)4.執(zhí)行語句s=InputBox("請輸入姓名","輸入框")后，若用戶點擊取消按鈕，s的值是______。答案：空字符串（""）5.要將標(biāo)簽（Label1）的背景設(shè)為透明，應(yīng)設(shè)置其______屬性為0（Transparent）。答案：BackStyle6.以下循環(huán)的執(zhí)行次數(shù)是______次。k=1DoWhilek<=5k=k+2Loop答案：3（k=1→3→5→7，循環(huán)體執(zhí)行3次）7.表達(dá)式Len("VB程序設(shè)計")的值是______（每個漢字占2字節(jié)，此處Len返回字符數(shù)）。答案：68.設(shè)有函數(shù)定義：FunctionSum(a%,b%)AsInteger，調(diào)用時傳入?yún)?shù)3.6和4.2，實際參與運算的參數(shù)值是______。答案：3和4（自動取整）9.要將圖片框（Picture1）中的圖像清空，應(yīng)執(zhí)行語句______。答案：Picture1.Picture=LoadPicture("")10.以下程序段的輸出結(jié)果是______。Fori=1To3Forj=1ToiPrint"";NextjPrintNexti答案：三、程序改錯題（每小題5分，共15分。指出錯誤并給出正確代碼）1.以下代碼試圖計算1到10的和，存在錯誤：s=0i=1Whilei<10s=s+ii=i+1WendPrints錯誤：循環(huán)條件應(yīng)為i<=10（當(dāng)前i<10時，i最大到9，漏加10）改正：Whilei<=102.以下代碼試圖交換兩個變量的值，存在錯誤：a=5:b=10a=bb=aPrinta,b錯誤：未使用中間變量，導(dǎo)致a的值被覆蓋后無法恢復(fù)改正：t=a:a=b:b=t3.以下代碼試圖在列表框中添加項目，存在錯誤：List1.Add"數(shù)學(xué)"List1.Add"語文"錯誤：Add方法應(yīng)為AddItem改正：List1.AddItem"數(shù)學(xué)":List1.AddItem"語文"四、編程題（共35分）1.（8分）設(shè)計一個程序：在文本框Text1中輸入一個整數(shù)，點擊按鈕Command1后，判斷該數(shù)是否為偶數(shù)。若是，在標(biāo)簽Label1中顯示"偶數(shù)"；否則顯示"奇數(shù)"。參考代碼：PrivateSubCommand1_Click()DimnumAsIntegernum=Val(Text1.Text)IfnumMod2=0ThenLabel1.Caption="偶數(shù)"ElseLabel1.Caption="奇數(shù)"EndIfEndSub2.（9分）編寫程序計算1到100之間所有能被3整除但不能被5整除的數(shù)的和。結(jié)果顯示在文本框Text2中。參考代碼：PrivateSubCommand2_Click()DimsumAsInteger,iAsIntegersum=0Fori=1To100IfiMod3=0AndiMod5<>0Thensum=sum+iEndIfNextiText2.Text=sumEndSub3.（9分）設(shè)計一個窗體，包含兩個文本框（Text1、Text2）和一個按鈕（Command3）。點擊按鈕時，將Text1中的內(nèi)容追加到D盤"info.txt"文件中，并將文件內(nèi)容讀取到Text2中顯示。參考代碼：PrivateSubCommand3_Click()DimcontentAsStringcontent=Text1.Text'追加寫入文件Open"D:\info.txt"ForAppendAs1Print1,contentClose1'讀取文件內(nèi)容Text2.Text=""Open"D:\info.txt"ForInputAs1DoWhileNotEOF(1)LineInput1,contentText2.Text=Text2.Text&content&vbCrLfLoopClose1EndSub4.（9分）編寫一個子過程，計算二維數(shù)組（3行4列）中所有元素的平均值。要求數(shù)組作為參數(shù)傳遞，結(jié)果通過返回值輸出。參考代碼：FunctionArrayAvg(arr()AsInteger)AsDoubleDimiAsInteger,jAsInteger,sumAsInteger,countAsIntegersum=0count=0Fori=0ToUBound(arr,1)Forj=0