2025年VB考試預習試題及答案一、單項選擇題（每小題2分，共30分）1.以下關于VB變量聲明的描述中，正確的是（）。A.用Dim聲明的變量作用域為整個工程B.未聲明的變量默認類型為IntegerC.使用Static聲明的變量在過程結(jié)束后會保留值D.全局變量必須在標準模塊中用Public聲明2.執(zhí)行語句a=3:b=5:c=a>b?a:b后，c的值為（）。A.3B.5C.TrueD.False3.若x=5，y=3，執(zhí)行x=y:y=x后，x和y的值分別為（）。A.5,3B.3,5C.3,3D.5,54.以下循環(huán)結(jié)構(gòu)中，一定會執(zhí)行至少一次循環(huán)體的是（）。A.For...NextB.While...WendC.Do...LoopWhileD.DoWhile...Loop5.定義數(shù)組Dimarr(3,4)AsInteger，該數(shù)組的元素個數(shù)是（）。A.12B.15C.20D.246.執(zhí)行以下代碼段后，輸出結(jié)果是（）。```vbs="VisualBasic"n=Len(s)k=InStr(s,"Basic")Printnk+1```A.6B.7C.8D.97.以下關于過程的描述中，錯誤的是（）。A.子過程（Sub）可以通過參數(shù)返回多個值B.函數(shù)過程（Function）必須有返回值C.過程的參數(shù)默認按值傳遞（ByVal）D.調(diào)用無參數(shù)過程時，過程名后仍需保留括號8.若要將文本框Text1的內(nèi)容清空，正確的語句是（）。A.Text1.Text=""B.Text1.ClearC.Text1.Value=""D.Text1=""9.以下能觸發(fā)文本框Text1的Change事件的操作是（）。A.用鍵盤輸入字符B.通過代碼修改Text1.TextC.文本框獲得焦點D.文本框失去焦點10.執(zhí)行以下代碼后，數(shù)組a中的元素是（）。```vbDima(5)AsIntegerFori=1To5a(i)=i21Nextia(3)=a(1)+a(5)```A.[0,1,3,5,7,9]B.[0,1,3,10,7,9]C.[0,1,10,5,7,9]D.[0,1,3,5,7,10]11.以下關于文件操作的描述中，正確的是（）。A.用Open"test.txt"ForInputAs1打開文件時，若文件不存在會報錯B.用Write語句寫入數(shù)據(jù)時，不同數(shù)據(jù)間用分號分隔C.EOF函數(shù)用于判斷文件是否到達末尾，其參數(shù)是文件號D.關閉文件時可以只使用Close語句，無需指定文件號12.設x為整型變量，能正確表示“x是偶數(shù)且x小于10”的表達式是（）。A.xMod2=0Andx<10B.x/2=0Andx<10C.xMod2=0Orx<10D.x\2=0Andx<1013.以下事件中，當窗體加載時觸發(fā)的是（）。A.ClickB.LoadC.ActivateD.Initialize14.執(zhí)行以下代碼段后，輸出結(jié)果是（）。```vbDimiAsInteger,sumAsIntegersum=0Fori=1To5Step2sum=sum+iNextiPrintsum```A.9B.10C.15D.615.若要將標簽Label1的背景色設置為紅色，正確的語句是（）。A.Label1.BackColor=vbRedB.Label1.ForeColor=vbRedC.Label1.Color=vbRedD.Label1.BackStyle=vbRed二、填空題（每空2分，共20分）1.VB中，用于將字符串轉(zhuǎn)換為數(shù)值的函數(shù)是______。2.若a=7，b=3，執(zhí)行a=a+b:b=ab:a=ab后，a的值為______，b的值為______。3.定義二維數(shù)組Dimarr(2To4,1To3)AsInteger，該數(shù)組的行數(shù)是______，列數(shù)是______。4.文本框的PasswordChar屬性用于設置密碼顯示字符，若要使其顯示“”，應將該屬性值設置為______。5.若要在列表框List1中添加一個條目“VB程序設計”，應使用的語句是______。6.執(zhí)行以下代碼后，變量s的值是______。```vbs=0Fori=1To3Forj=1Tois=s+jNextjNexti```三、程序分析題（每小題6分，共30分）1.分析以下代碼，寫出輸出結(jié)果。```vbPrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=10:y=20Callswap(x,y)Print"x=";x;"y=";yEndSubSubswap(aAsInteger,bAsInteger)DimtAsIntegert=a:a=b:b=tEndSub```2.分析以下代碼，寫出輸出結(jié)果。```vbPrivateSubForm_Click()DimnAsInteger,sAsIntegern=5:s=0DoWhilen>0s=s+nn=n1LoopPrint"s=";sEndSub```3.分析以下代碼，寫出文本框Text1中最終顯示的內(nèi)容。```vbPrivateSubCommand1_Click()DimstrAsString,iAsIntegerstr="abc123def456"Fori=1ToLen(str)IfMid(str,i,1)Like"[0-9]"ThenText1.Text=Text1.Text&Mid(str,i,1)EndIfNextiEndSub```4.分析以下代碼，寫出立即窗口中輸出的內(nèi)容。```vbPrivateSubCommand2_Click()Dimarr()AsInteger,iAsIntegerarr=Array(1,3,5,7,9)Fori=0ToUBound(arr)Ifarr(i)>5ThenExitForDebug.Printarr(i)NextiEndSub```5.分析以下代碼，寫出文件test.txt中的內(nèi)容。```vbPrivateSubCommand3_Click()Open"test.txt"ForOutputAs1Fori=1To3Print1,"Line"&iNextiClose1EndSub```四、編程題（每小題8分，共20分）1.編寫程序：輸入一個整數(shù)n（n≥1），計算1!+2!+…+n!的值，并將結(jié)果顯示在標簽Label1中。（要求使用循環(huán)嵌套）2.編寫程序：在文本框Text1中輸入一個字符串，點擊命令按鈕Command1后，統(tǒng)計該字符串中大寫字母、小寫字母和數(shù)字的個數(shù)，并將結(jié)果分別顯示在標簽Label2（大寫字母數(shù)）、Label3（小寫字母數(shù)）、Label4（數(shù)字數(shù)）中。3.編寫程序：從文件data.txt中讀取若干學生的數(shù)學成績（每行一個成績，如“90”“85”），計算平均分，并將平均分（保留2位小數(shù)）寫入文件result.txt中。--答案及解析一、單項選擇題1.C（Static變量在過程結(jié)束后保留值；Dim默認作用域為當前過程或模塊；未聲明變量默認類型為Variant；全局變量可用Public或Global聲明。）2.B（VB中沒有三元運算符，題目假設為偽代碼，實際應使用IIf函數(shù)，IIf(a>b,a,b)結(jié)果為5。）3.C（x=y后x=3，y=x后y=3。）4.C（Do...LoopWhile先執(zhí)行循環(huán)體再判斷條件，至少執(zhí)行一次。）5.C（二維數(shù)組行數(shù)0-3共4行，列數(shù)0-4共5列，4×5=20個元素。）6.B（Len("VisualBasic")=11，InStr找"Basic"起始位置為7，11-7+1=5？原題可能筆誤，實際InStr("VisualBasic","Basic")返回7，Len(s)=11，11-7+1=5，但選項無5，可能題目中s為"VisualBasic"（無空格），則Len=10，InStr返回6，10-6+1=5。需根據(jù)實際代碼調(diào)整，此處假設正確選項為B。）7.C（參數(shù)默認按地址傳遞ByRef。）8.A（文本框清空用Text屬性賦值空字符串。）9.A（Change事件在文本內(nèi)容改變時觸發(fā)，鍵盤輸入會觸發(fā)，代碼修改也會觸發(fā)，但部分教材可能認為代碼修改不觸發(fā)，需根據(jù)考綱判斷，此處選A。）10.B（初始數(shù)組a(1)=1,a(2)=3,a(3)=5,a(4)=7,a(5)=9；修改a(3)=a(1)+a(5)=1+9=10，故數(shù)組為[0,1,3,10,7,9]。）11.A（Input模式打開不存在的文件會報錯；Write用逗號分隔；EOF參數(shù)是文件號；Close不指定文件號會關閉所有打開的文件。）12.A（Mod判斷奇偶，And表示“且”。）13.B（Load事件在窗體加載時觸發(fā)。）14.A（i取1,3,5，sum=1+3+5=9。）15.A（BackColor設置背景色，vbRed是系統(tǒng)常量。）二、填空題1.Val2.3；7（交換a和b的值）3.3（2-4共3行）；3（1-3共3列）4.""（注意引號）5.List1.AddItem"VB程序設計"6.10（i=1時j=1，s=1；i=2時j=1,2，s=1+1+2=4；i=3時j=1,2,3，s=4+1+2+3=10）三、程序分析題1.輸出：x=10y=20（Sub過程默認按地址傳遞，但swap過程未正確交換，因VB中參數(shù)傳遞為雙向，但此處代碼正確交換了a和b的值，實際應輸出x=20y=10?？赡茴}目中swap過程正確，故輸出x=20y=10。）（注：原解析可能有誤，正確swap過程應交換參數(shù)值，因此實際輸出x=20y=10。）2.輸出：s=15（n從5遞減到0，s=5+4+3+2+1=15）3.Text1顯示“123456”（提取字符串中的數(shù)字字符）4.立即窗口輸出：135（當i=3時arr(i)=7>5，ExitFor退出循環(huán)，前三個元素1,3,5被輸出）5.test.txt內(nèi)容：Line1Line2Line3（每行一個"Line"后接i的值）四、編程題1.參考代碼：```vbPrivateSubCommand1_Click()DimnAsInteger,iAsInteger,jAsIntegerDimfactAsLong,sumAsLongn=Val(InputBox("請輸入n："))sum=0Fori=1Tonfact=1Forj=1Toifact=factjNextjsum=sum+factNextiLabel1.Caption="1!+2!+…+"&n&"!="&sumEndSub```2.參考代碼：```vbPrivateSubCommand1_Click()DimstrAsString,cAsStringDimupperAsInteger,lowerAsInteger,digitAsIntegerstr=Text1.Textupper=0:lower=0:digit=0Fori=1ToLen(str)c=Mid(str,i,1)Ifc>="A"Andc<="Z"Thenupper=upper+1ElseIfc>="a"Andc<="z"Thenlower=lower+1ElseIfc>="0"Andc<="9"Thendigit=digit+1