2025年二級(jí)VB學(xué)習(xí)試題及答案一、單項(xiàng)選擇題（每小題2分，共40分）1.在VisualBasic2025集成開發(fā)環(huán)境中，以下關(guān)于對象屬性設(shè)置的描述正確的是（）A.所有對象的Height屬性只能通過代碼修改B.窗體的Caption屬性在運(yùn)行時(shí)不可修改C.文本框的PasswordChar屬性設(shè)置為""后，輸入的字符將顯示為星號(hào)D.標(biāo)簽的Visible屬性設(shè)為False時(shí)，標(biāo)簽仍會(huì)占用界面布局空間答案：C2.以下關(guān)于VB數(shù)據(jù)類型的說法，錯(cuò)誤的是（）A.Currency類型適用于高精度貨幣計(jì)算，存儲(chǔ)8字節(jié)B.Boolean類型在內(nèi)存中占2字節(jié)，True對應(yīng)-1，F(xiàn)alse對應(yīng)0C.變長字符串（String）的存儲(chǔ)長度隨實(shí)際內(nèi)容變化，最大65535個(gè)字符D.Date類型可以表示100年1月1日到9999年12月31日之間的日期時(shí)間答案：B（Boolean實(shí)際占1字節(jié)）3.表達(dá)式5\2+5Mod23的值為（）A.4B.5C.6D.7答案：A（5\2=2，5Mod2=1，13=3，2+3=4）4.執(zhí)行以下代碼后，變量a的值是（）DimaAsIntegera=IIf(3>5,"A",100)A."A"B.100C.類型不匹配錯(cuò)誤D.空值答案：C（IIf返回值類型需與變量類型一致，"A"是字符串，a是整數(shù)）5.關(guān)于Do循環(huán)結(jié)構(gòu)，以下說法正確的是（）A.DoWhile...Loop至少執(zhí)行一次循環(huán)體B.Do...LoopWhile會(huì)先判斷條件再執(zhí)行循環(huán)體C.DoUntil...Loop當(dāng)條件為True時(shí)退出循環(huán)D.Do...LoopUntil在執(zhí)行完循環(huán)體后判斷條件答案：D6.定義二維數(shù)組Dimarr(2,3)AsInteger，該數(shù)組包含的元素個(gè)數(shù)是（）A.6B.8C.9D.12答案：C（0-2行，0-3列，共3×3=9個(gè)元素）7.以下關(guān)于過程的描述，錯(cuò)誤的是（）A.子過程（Sub）可以通過ExitSub提前結(jié)束B.函數(shù)過程（Function）必須有返回值C.用Static聲明的過程變量會(huì)在調(diào)用結(jié)束后保留值D.過程參數(shù)默認(rèn)按地址傳遞（ByRef）答案：C（Static聲明的是過程內(nèi)的局部變量，非過程本身）8.要將文本框Text1的內(nèi)容寫入D盤test.txt文件（覆蓋原有內(nèi)容），正確的代碼是（）A.Open"D:\test.txt"ForInputAs1:Print1,Text1.Text:Close1B.Open"D:\test.txt"ForOutputAs1:Write1,Text1.Text:Close1C.Open"D:\test.txt"ForAppendAs1:Print1,Text1.Text:Close1D.Open"D:\test.txt"ForBinaryAs1:Put1,,Text1.Text:Close1答案：B9.執(zhí)行以下代碼后，立即窗口輸出的結(jié)果是（）DimxAsInteger,yAsIntegerx=1:y=1DoUntilx>3y=y+xx=x+1LoopDebug.PrintyA.4B.7C.10D.13答案：B（循環(huán)執(zhí)行x=1→y=2,x=2；x=2→y=4,x=3；x=3→y=7,x=4退出，輸出7）10.以下關(guān)于菜單設(shè)計(jì)的說法，正確的是（）A.菜單控件的Name屬性用于設(shè)置顯示文本B.可以通過設(shè)置Visible屬性隱藏主菜單C.分隔線菜單的Caption屬性應(yīng)設(shè)置為"-"D.菜單的Shortcut屬性可以設(shè)置為F1~F12功能鍵答案：D11.定義枚舉類型：EnumColorRed=5GreenBlue=10YellowEndEnum則Yellow的值是（）A.6B.11C.12D.15答案：B（Green=6，Blue=10，Yellow=11）12.執(zhí)行以下代碼后，數(shù)組a的元素為（）Dima()AsIntegerReDima(2)a(0)=1:a(1)=2:a(2)=3ReDimPreservea(4)A.{1,2,3,0,0}B.{1,2,3,空,空}C.{0,0,0,0,0}D.編譯錯(cuò)誤答案：A（Preserve保留原有元素，新元素初始化為0）13.要驗(yàn)證文本框輸入是否為合法郵箱（包含@且@不在首尾），正確的條件表達(dá)式是（）A.InStr(Text1.Text,"@")>1AndInStr(Text1.Text,"@")<Len(Text1.Text)B.InStr(Text1.Text,"@")>=1AndInStr(Text1.Text,"@")<Len(Text1.Text)C.InStr(Text1.Text,"@")>0AndInStr(Text1.Text,"@")<Len(Text1.Text)-1D.InStr(Text1.Text,"@")=1OrInStr(Text1.Text,"@")=Len(Text1.Text)答案：A14.以下關(guān)于圖片框（PictureBox）和圖像框（Image）的區(qū)別，錯(cuò)誤的是（）A.PictureBox可以作為其他控件的容器，Image不能B.兩者都支持LoadPicture函數(shù)加載圖片C.PictureBox的AutoSize屬性可自動(dòng)調(diào)整大小，Image的Stretch屬性可縮放圖片D.釋放圖片時(shí)，PictureBox需設(shè)置Picture屬性為Nothing，Image需設(shè)置Picture為LoadPicture("")答案：D（兩者都可通過Picture=Nothing釋放）15.執(zhí)行以下事件過程后，標(biāo)簽Lab的顯示內(nèi)容是（）PrivateSubCommand1_Click()DimiAsInteger,sAsStringFori=1To3s=s&iNextiLab.Caption=sEndSubA."123"B."123"C."6"D.空字符串答案：A16.以下關(guān)于文件系統(tǒng)對象（FileSystemObject）的說法，正確的是（）A.需要引用"MicrosoftScriptingRuntime"庫才能使用B.CreateTextFile方法默認(rèn)會(huì)覆蓋已存在的文件C.讀取文本文件時(shí)，只能使用ReadAll方法讀取全部內(nèi)容D.DeleteFile方法可以刪除只讀文件答案：A17.定義子過程：SubSwap(ByValaAsInteger,ByRefbAsInteger)DimtAsIntegert=a:a=b:b=tEndSub調(diào)用時(shí)x=10,y=20，執(zhí)行Swap(x,y)后，x和y的值為（）A.x=10,y=20B.x=20,y=10C.x=10,y=10D.x=20,y=20答案：B（ByVal不改變原變量，ByRef改變）18.要使計(jì)時(shí)器（Timer）控件每0.5秒觸發(fā)一次Timer事件，應(yīng)設(shè)置Interval屬性為（）A.50B.500C.5000D.0.5答案：B（Interval單位為毫秒）19.以下關(guān)于錯(cuò)誤處理的代碼，正確的是（）A.OnErrorResumeNext:可能出錯(cuò)的代碼:OnErrorGoTo0B.OnErrorGoTo100:代碼:ExitSub:100:錯(cuò)誤處理代碼C.OnErrorGoTo-1:代碼:IfErr.Number<>0Then處理D.OnErrorGoTo標(biāo)簽:代碼:標(biāo)簽:IfErrThen處理:Resume答案：A20.執(zhí)行以下代碼后，立即窗口輸出的第二行是（）Fori=1To3Forj=1ToiDebug.Printi&""&j&"="&ijNextjNextiA.11=1B.21=2C.22=4D.31=3答案：B（第一行11=1，第二行21=2）二、填空題（每空2分，共20分）1.聲明一個(gè)包含10個(gè)元素的整型數(shù)組，索引從1到10，應(yīng)使用語句：______。答案：Dimarr(1To10)AsInteger2.表達(dá)式Int(-3.7)+Fix(3.7)的結(jié)果是______。答案：-3+3=03.要將變量a（整型）的值轉(zhuǎn)換為字符串顯示，應(yīng)使用函數(shù)______。答案：Str(a)4.在KeyPress事件中，參數(shù)KeyAscii表示按下鍵的______碼。答案：ASCII5.若要使命令按鈕（CommandButton）在按下Enter鍵時(shí)觸發(fā)Click事件，應(yīng)設(shè)置其______屬性為True。答案：Default6.執(zhí)行以下代碼后，變量s的值是______。s="VB編程":s=Left(s,2)&Mid(s,4,2)答案："V編程"（Left取前2字符"VB"，Mid從第4位取2字符"編程"，連接后"VB編程"？不，原字符串"VB編程"長度是4（假設(shè)每個(gè)漢字2字符），實(shí)際Left("VB編程",2)是"VB"，Mid("VB編程",4,2)是從第4個(gè)字符開始取2個(gè)，即"程"（第4字符是"程"，第5不存在），所以應(yīng)為"VB程"？需確認(rèn)：VB中字符串"VB編程"的字符位置是1:"V",2:"B",3:"編",4:"程"。Left(s,2)是"VB"，Mid(s,4,2)是從位置4取2個(gè)字符，只有"程"（位置4），所以結(jié)果"VB程"。但可能題目假設(shè)每個(gè)漢字占1字符（實(shí)際VB中是雙字節(jié)，但I(xiàn)nStr等函數(shù)按字符位置算）。正確應(yīng)為"VB程"。更正：原字符串"VB編程"共4個(gè)字符（V,B,編,程）。Left(s,2)取前2字符→"VB"；Mid(s,4,2)從第4個(gè)字符開始取2個(gè)，第4個(gè)是"程"，第5個(gè)不存在，所以取"程"。因此s="VB程"。但可能題目預(yù)期"VB編程"是4字符，Mid(4,2)取"編程"？這里可能存在理解差異。正確的Mid函數(shù)參數(shù)是Mid(字符串,起始位置,長度)，起始位置從1開始。"VB編程"的字符位置：1=V，2=B，3=編，4=程。所以Mid(s,4,2)是從位置4開始，取2個(gè)字符，即"程"（只有1個(gè)字符），所以結(jié)果是"VB程"。但可能題目中的"編程"是兩個(gè)字符，所以原字符串長度是4，Mid(4,2)越界，實(shí)際取到"程"。因此答案應(yīng)為"VB程"。7.若要限制文本框只能輸入數(shù)字，應(yīng)在______事件中添加代碼，檢查KeyAscii是否為數(shù)字鍵的ASCII碼（48-57）或退格鍵（8）。答案：KeyPress8.執(zhí)行以下代碼后，數(shù)組b的元素個(gè)數(shù)是______。Dima()AsInteger={1,2,3},b()AsIntegerb=aReDimPreserveb(5)答案：6（原數(shù)組3個(gè)元素，ReDimPreserve到5（索引0-5），共6個(gè)元素）9.以下代碼的輸出結(jié)果是______。DimnAsInteger=5DoWhilen>0n=n2Debug.PrintnLoop答案：3,1,-1（第一次n=5→n=3→輸出3；第二次n=3→n=1→輸出1；第三次n=1→n=-1→輸出-1；n=-1不滿足>0退出）10.要在列表框（ListBox）中添加一個(gè)選項(xiàng)"VB二級(jí)考試"，應(yīng)使用語句：______。答案：List1.AddItem"VB二級(jí)考試"三、編程題（共40分）1.（8分）編寫事件過程，當(dāng)單擊命令按鈕Command1時(shí)，計(jì)算1到100之間所有能被3整除但不能被5整除的數(shù)的和，并將結(jié)果顯示在標(biāo)簽Label1中。答案：PrivateSubCommand1_Click()DimsumAsInteger,iAsIntegersum=0Fori=1To100IfiMod3=0AndiMod5<>0Thensum=sum+iEndIfNextiLabel1.Caption="符合條件的數(shù)之和為："&sumEndSub2.（10分）設(shè)計(jì)一個(gè)子過程SortArray，實(shí)現(xiàn)對整型數(shù)組的升序排序（要求使用冒泡排序算法）。答案：SubSortArray(arr()AsInteger)DimiAsInteger,jAsInteger,tempAsIntegerDimnAsIntegern=UBound(arr)'獲取數(shù)組上界Fori=1Ton1Forj=0Toni1Ifarr(j)>arr(j+1)Thentemp=arr(j)arr(j)=arr(j+1)arr(j+1)=tempEndIfNextjNextiEndSub3.（12分）編寫程序，實(shí)現(xiàn)以下功能：在文本框Text1中輸入一段英文文本，單擊命令按鈕Command1后，統(tǒng)計(jì)其中單詞的個(gè)數(shù)（單詞以空格分隔，假設(shè)無連續(xù)空格），并將結(jié)果顯示在標(biāo)簽Label1中。答案：PrivateSubCommand1_Click()DimstrTextAsString,wordArr()AsStringDimcountAsIntegerstrText=Trim(Text1.Text)'去除首尾空格IfstrText=""ThenLabel1.Caption="單詞個(gè)數(shù)：0"ExitSubEndIfwordArr=Split(strText,"")'按空格分割字符串count=UBound(wordArr)+1'Split返回0索引數(shù)組，元素個(gè)數(shù)為上界+1Label1.Caption="單詞個(gè)數(shù)："&countEndSub4.（10分）編寫代碼，將D盤根目錄下的source.t