2025年VB考試集中訓(xùn)練試題及答案一、單項選擇題（每小題2分，共30分）1.以下VB變量聲明語句中，正確的是（）A.DimaAsInteger=10B.Dimb:String="test"C.DimcAsDoubleD.Dimd100AsInteger答案：C2.執(zhí)行語句"x=IIf(3>5,10,20)"后，x的值為（）A.10B.20C.TrueD.False答案：B3.設(shè)a=3，b=5，執(zhí)行語句"a=b:b=a"后，a和b的值分別為（）A.3,5B.5,5C.3,3D.5,3答案：B4.要聲明一個包含10個元素的一維整型數(shù)組arr（下標(biāo)從0開始），正確的聲明語句是（）A.Dimarr(10)AsIntegerB.Dimarr(0To9)AsIntegerC.Dimarr(1To10)AsIntegerD.Dimarr(9)AsInteger答案：B5.執(zhí)行以下程序段時，循環(huán)體執(zhí)行的次數(shù)是（）k=0DoWhilek<=5k=k+2LoopA.3次B.2次C.4次D.5次答案：A（k取值0→2→4→6時退出，循環(huán)體執(zhí)行3次）6.表達(dá)式"123"&45+6的計算結(jié)果是（）A.123456B.12351C.174D."12351"答案：B（字符串連接優(yōu)先級低于算術(shù)運(yùn)算，先計算45+6=51，再與"123"連接成"12351"，但VB中&運(yùn)算符強(qiáng)制轉(zhuǎn)換為字符串連接，實(shí)際結(jié)果為"12351"，但題目若考察類型轉(zhuǎn)換則需注意。本題正確計算應(yīng)為"123"&(45+6)="12351"，但選項B為12351，可能題目設(shè)定為數(shù)值相加，需確認(rèn)。正確邏輯應(yīng)為：&運(yùn)算符連接兩個表達(dá)式，先將45+6=51轉(zhuǎn)換為字符串，與"123"連接成"12351"，但選項中無此選項，可能題目存在筆誤，正確選項應(yīng)為B）7.設(shè)s="VisualBasic6.0"，則Mid(s,7,5)的返回值是（）A."Basic"B."sual"C."alBa"D."VBasi"答案：A（從第7個字符開始取5個字符：V(1),i(2),s(3),u(4),a(5),l(6),(空格7),B(8),a(9),s(10),i(11),c(12)…實(shí)際s="VisualBasic6.0"的字符位置：1:V,2:i,3:s,4:u,5:a,6:l,7:(空格),8:B,9:a,10:s,11:i,12:c,13:(空格),14:6,15:.,16:0。Mid(s,7,5)取第7到11位：空格,B,a,s,i→"Basi"，但可能題目中s無空格，正確應(yīng)為"Basic"，可能題目中s實(shí)際為"VisualBasic6.0"，則第7位是B，取5位得"Basic"，選A）8.以下能正確提供[10,50]之間隨機(jī)整數(shù)的表達(dá)式是（）A.Int(Rnd40)+10B.Int(Rnd41)+10C.Int(Rnd50)+10D.Int(Rnd51)-1答案：B（Rnd提供[0,1)，乘41得[0,41)，Int后[0,40]，加10得[10,50]）9.設(shè)有命令按鈕Command1，其Click事件過程的正確定義是（）A.SubCommand1_Click()B.FunctionCommand1_Click()C.SubClick_Command1()D.FunctionClick()答案：A10.要使文本框Text1失去焦點(diǎn)時觸發(fā)事件，應(yīng)編寫的事件過程是（）A.Text1_LostFocus()B.Text1_GotFocus()C.Text1_Click()D.Text1_Change()答案：A11.執(zhí)行以下代碼后，數(shù)組a的元素個數(shù)是（）Dima()AsIntegera=Array(1,3,5,7,9)A.0B.4C.5D.6答案：C（Array函數(shù)返回變體數(shù)組，賦值給整型數(shù)組時自動轉(zhuǎn)換，元素個數(shù)5）12.以下關(guān)于過程的說法中，錯誤的是（）A.子過程（Sub）可以返回多個值B.函數(shù)過程（Function）必須有返回值C.可以通過傳地址方式傳遞參數(shù)D.過程定義不能嵌套，但可以嵌套調(diào)用答案：A（子過程不能直接返回值，需通過參數(shù)返回）13.要打開D盤根目錄下的文件"data.txt"進(jìn)行讀操作，正確的語句是（）A.Open"D:\data.txt"ForInputAs1B.Open"D:\data.txt"ForOutputAs1C.Open"D:\data.txt"ForAppendAs1D.Open"D:\data.txt"ForRandomAs1答案：A14.設(shè)窗體上有一個列表框List1，要在其最后添加一個項目"VB考試"，正確的語句是（）A.List1.AddItem"VB考試",0B.List1.AddItem"VB考試",List1.ListCountC.List1.Text="VB考試"D.List1.Items.Add("VB考試")答案：B（AddItem的第二個參數(shù)是索引，ListCount是當(dāng)前項數(shù)，添加到末尾用ListCount）15.以下關(guān)于菜單設(shè)計的說法中，正確的是（）A.菜單標(biāo)題可以為空B.菜單項的名稱（Name屬性）可以重復(fù)C.分隔符不能響應(yīng)Click事件D.彈出式菜單必須通過菜單編輯器創(chuàng)建答案：C（分隔符的Caption為"-"，Enabled屬性為False，不能觸發(fā)事件）二、填空題（每空2分，共20分）1.執(zhí)行語句"a=3:b=5:a=a+b:b=a-b:a=a-b"后，a的值為______，b的值為______。答案：5，32.表達(dá)式Len("VB程序設(shè)計"&Space(2))的結(jié)果是______（注：一個漢字占2字節(jié)）。答案：12（"VB程序設(shè)計"是6個字符，Space(2)是2個空格，總長度6+2=8字符，Len返回字符數(shù)為8，但題目注一個漢字占2字節(jié)，可能考察字節(jié)數(shù)，"VB"2字節(jié)，"程序設(shè)計"4×2=8字節(jié)，Space(2)2字節(jié)，總2+8+2=12字節(jié)，答案12）3.設(shè)x=5，y=3，執(zhí)行語句"z=IIf(x>y,x+y,x-y)"后，z的值為______。答案：84.要使標(biāo)簽Label1的背景透明，應(yīng)設(shè)置其______屬性為True。答案：BackStyle（BackStyle=0為透明，1為不透明）5.以下循環(huán)的執(zhí)行次數(shù)是______次。Fori=1To10Step3PrintiNexti答案：4（i=1,4,7,10，共4次）6.設(shè)有二維數(shù)組arr(2,3)，該數(shù)組的元素個數(shù)是______。答案：12（下標(biāo)從0開始時，0-2行，0-3列，共3×4=12個元素）7.要將文本框Text1的內(nèi)容清空，應(yīng)執(zhí)行的語句是______。答案：Text1.Text=""8.以下程序段的輸出結(jié)果是______。s=0Fork=1To5IfkMod2=0Thens=s+kNextkPrints答案：6（k=2,4時累加，2+4=6）9.要判斷文本框Text1是否有輸入內(nèi)容，應(yīng)檢查______屬性是否為空。答案：Text10.以下代碼執(zhí)行后，變量m的值是______。m=1DoUntilm>5m=m2Loop答案：8（m=1→2→4→8，此時8>5退出）三、程序分析題（每小題6分，共30分）1.分析以下程序，寫出運(yùn)行時單擊命令按鈕后的輸出結(jié)果。PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=1:b=1DoWhilea<=3b=baa=a+1LoopPrint"a=";a;"b=";bEndSub答案：a=4b=6（循環(huán)過程：a=1→b=1×1=1,a=2；a=2→b=1×2=2,a=3；a=3→b=2×3=6,a=4；退出循環(huán)，輸出a=4,b=6）2.分析以下程序，寫出運(yùn)行時輸入5后文本框Text1的顯示內(nèi)容。PrivateSubCommand1_Click()DimnAsInteger,sAsIntegern=Val(InputBox("請輸入一個整數(shù)"))s=0Fori=1Tons=s+iNextiText1.Text=Str(s)EndSub答案：15（輸入5，計算1+2+3+4+5=15）3.分析以下程序，寫出標(biāo)簽Label1的最終顯示內(nèi)容。PrivateSubForm_Load()Dimstr1AsString,str2AsStringstr1="abcde"str2=Mid(str1,2,3)&UCase(Right(str1,2))Label1.Caption=str2EndSub答案：bcdDE（Mid("abcde",2,3)取"bcd"，Right("abcde",2)取"de"，UCase轉(zhuǎn)換為"DE"，連接后"bcdDE"）4.分析以下程序，寫出數(shù)組arr中各元素的值。PrivateSubCommand1_Click()Dimarr(4)AsInteger,iAsIntegerFori=0To4IfiMod2=0Thenarr(i)=i2Elsearr(i)=i+2EndIfNextiEndSub答案：arr(0)=0,arr(1)=3,arr(2)=4,arr(3)=5,arr(4)=8（i=0→0×2=0；i=1→1+2=3；i=2→2×2=4；i=3→3+2=5；i=4→4×2=8）5.分析以下程序，寫出運(yùn)行時單擊命令按鈕后的輸出結(jié)果。PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=10:y=20CallSwap(x,y)Print"x=";x;"y=";yEndSubPrivateSubSwap(aAsInteger,bAsInteger)DimtAsIntegert=a:a=b:b=tEndSub答案：x=20y=10（VB默認(rèn)按地址傳遞參數(shù)，Swap過程交換了a和b的值，即x和y的值被交換）四、編程題（共20分）1.（8分）編寫程序：在窗體上添加兩個文本框（Text1、Text2）和一個命令按鈕（Command1）。要求單擊命令按鈕時，將Text1中輸入的字符串反轉(zhuǎn)（如輸入"abc"則輸出"cba"），結(jié)果顯示在Text2中。答案：PrivateSubCommand1_Click()DimstrInputAsString,strOutputAsStringDimiAsIntegerstrInput=Text1.TextstrOutput=""Fori=Len(strInput)To1Step-1strOutput=strOutput&Mid(strInput,i,1)NextiText2.Text=strOutputEndSub2.（6分）編寫程序：計算1到100之間所有能被3整除但不能被5整除的數(shù)的和，結(jié)果通過消息框顯示。答案：PrivateSubCommand1_Click()DimsumAsInteger,iAsIntegersum=0Fori=1To100IfiMod3=0AndiMod5<>0Thensum=sum+iEndIfNextiMsgBox"和為："&sumEndSub3.（6分）編寫程序：從D盤根目錄下的"score.txt"文件中讀取學(xué)提供績（每行一個分?jǐn)?shù)），統(tǒng)計及格（≥60）的人數(shù)，結(jié)果顯示在標(biāo)簽Label1中。答案：PrivateSubCommand1_Click()DimscoreAsInteger,countAsInteger