2025年VB考試高分技巧試題及答案一、單項選擇題（每題2分，共20分）1.以下關(guān)于VB變量聲明的描述中，正確的是（）。A.模塊級變量必須使用Public聲明B.過程內(nèi)用Static聲明的變量在過程結(jié)束后值會保留C.未使用OptionExplicit時，變量可直接使用，類型默認為IntegerD.數(shù)組變量聲明時必須指定初始大小答案：B解析：模塊級變量可用Dim或Private聲明（Public用于類模塊），A錯誤；未聲明變量默認類型為Variant（非Integer），C錯誤；動態(tài)數(shù)組聲明時可不指定大?。ㄈ鏒imarr()AsInteger），后續(xù)用ReDim調(diào)整，D錯誤；Static變量在過程結(jié)束后保留值，下次調(diào)用時延續(xù)，B正確。2.執(zhí)行以下代碼后，文本框Text1的內(nèi)容是（）。```vbDimaAsInteger,bAsIntegera=1:b=3Ifa+b>3ThenIfab<5ThenText1.Text="A"ElseIfa/b>0ThenText1.Text="B"EndIf```A."A"B."B"C.空D.報錯答案：C解析：a+b=4>3，進入外層If；內(nèi)層第一個條件ab=3<5，應(yīng)執(zhí)行Text1.Text="A"，但注意VB中If...ElseIf的結(jié)構(gòu)需嚴格配對。原代碼外層If缺少EndIf（外層If的ElseIf屬于外層結(jié)構(gòu)），實際代碼因缺少EndIf會導(dǎo)致語法錯誤，因此運行時報錯，Text1內(nèi)容為空（D選項描述“報錯”更準確，但題目可能假設(shè)代碼結(jié)構(gòu)正確。若修正結(jié)構(gòu)，外層If包含內(nèi)層If，內(nèi)層If無Else，當(dāng)ab<5為真時執(zhí)行"A"，否則不執(zhí)行。本題代碼因缺少EndIf，實際運行報錯，選C）。3.以下能正確實現(xiàn)“將數(shù)組arr（5個元素）逆序存儲”的代碼是（）。A.```vbFori=0To4temp=arr(i)arr(i)=arr(4i)arr(4i)=tempNexti```B.```vbFori=0To2temp=arr(i)arr(i)=arr(4i)arr(4i)=tempNexti```C.```vbFori=0To5temp=arr(i)arr(i)=arr(5i)arr(5i)=tempNexti```D.```vbFori=1To5temp=arr(i)arr(i)=arr(6i)arr(6i)=tempNexti```答案：B解析：數(shù)組索引0~4（5個元素），逆序需交換第i個和第4-i個元素（i從0到2即可，因i=0與4交換，i=1與3交換，i=2與2交換，后續(xù)重復(fù)）。A選項i到4時，i=3會交換arr(3)和arr(1)（已交換過），導(dǎo)致恢復(fù)原順序；C選項i到5越界（索引最大4）；D選項索引1~5（假設(shè)數(shù)組聲明為arr(1to5)，但題目未說明，默認0~4），錯誤。4.關(guān)于VB文件操作，以下說法錯誤的是（）。A.用Input模式打開文件時，若文件不存在會報錯B.Append模式打開文件時，寫入位置在文件末尾C.隨機文件的記錄長度需與記錄類型的字節(jié)數(shù)一致D.二進制文件讀寫時，必須按記錄類型讀取答案：D解析：二進制文件（Binary模式）可讀寫任意字節(jié)數(shù)據(jù)，無需按固定記錄類型，D錯誤；其他選項均正確。5.以下代碼運行后，MsgBox顯示的內(nèi)容是（）。```vbFunctionf(xAsInteger)AsIntegerStaticnAsIntegern=n+xf=nEndFunctionPrivateSubCommand1_Click()MsgBoxf(2)&f(3)&f(1)EndSub```A."231"B."256"C."236"D."6"答案：B解析：Static變量n在函數(shù)調(diào)用間保留值。第一次f(2)：n=0+2=2，返回2；第二次f(3)：n=2+3=5，返回5；第三次f(1)：n=5+1=6，返回6。拼接結(jié)果為"256"。6.要使列表框List1中選中的項被刪除，正確的代碼是（）。A.List1.RemoveItemList1.ListIndexB.List1.RemoveItemList1.TextC.List1.DeleteItemList1.ListIndexD.List1.DeleteList1.Text答案：A解析：列表框刪除選中項用RemoveItem方法，參數(shù)為選中項的索引（ListIndex屬性），A正確；Text是選中項的內(nèi)容，非索引，B錯誤；VB中無DeleteItem或Delete方法。7.以下能正確連接Access數(shù)據(jù)庫的代碼是（）。A.```vbDimconnAsNewADODB.Connectionconn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=test.mdb"conn.Open```B.```vbDimconnAsADODB.ConnectionSetconn=NewConnectionconn.Provider="SQLOLEDB"conn.Open"test.mdb"```C.```vbDimconnAsNewADODB.Connectionconn.ConnectionString="Driver={MicrosoftAccessDriver(.mdb)};DBQ=test.mdb"conn.Open```D.```vbDimconnAsADODB.Connectionconn.Open"Provider=SQLServer;DataSource=test.mdb"```答案：A解析：Access數(shù)據(jù)庫（.mdb）的OLEDB連接字符串需指定Provider為Microsoft.Jet.OLEDB.4.0（或ACE.OLEDB.12.0for.accdb），DataSource為文件路徑，A正確；B的Provider是SQLServer，錯誤；C是ODBC驅(qū)動寫法（非OLEDB），VB中常用OLEDB；D的Provider錯誤。8.執(zhí)行以下代碼后，變量s的值是（）。```vbDimsAsString,aAsStringa="abc123"s=UCase(Mid(a,4,2))&LCase(Right(a,2))```A."123"B."123"C."1233"D."1233"答案：D（實際應(yīng)為"1233"，但需計算）解析：Mid(a,4,2)從第4個字符開始取2個字符，a="abc123"，第4字符是'1'，第5是'2'，結(jié)果"12"；UCase轉(zhuǎn)換為"12"。Right(a,2)取最后2個字符"3"（原a長度6，Right(a,2)是"23"？原a是"abc123"，字符位置1:a,2:b,3:c,4:1,5:2,6:3。Right(a,2)是第5、6位"23"，LCase后"23"。拼接結(jié)果"12"+"23"="1223"?？赡茴}目有誤，正確應(yīng)為"1223"，但選項未列出，需確認。9.以下關(guān)于異常處理的代碼中，能捕獲“除以零”錯誤的是（）。A.```vbOnErrorResumeNextx=5/0IfErr.Number=11ThenMsgBox"錯誤"```B.```vbOnErrorGoTo0x=5/0MsgBox"錯誤"```C.```vbOnErrorGoToHandlex=5/0ExitSubHandle:IfErr.Description="類型不匹配"ThenMsgBox"錯誤"```D.```vbOnErrorResumeNextx=5/0IfErr.Number=424ThenMsgBox"錯誤"```答案：A解析：除以零錯誤號是11（Err.Number=11），A中OnErrorResumeNext跳過錯誤，檢查Err.Number=11，正確；B中OnErrorGoTo0禁用錯誤處理，運行時報錯；C中錯誤描述是“除以零”非“類型不匹配”，條件不滿足；D中錯誤號424是“要求對象”，錯誤。10.要使文本框Text1只能輸入數(shù)字，且最多輸入5位，應(yīng)設(shè)置的屬性是（）。A.Text1.MaxLength=5，Text1.KeyPress事件中限制非數(shù)字字符B.Text1.Length=5，Text1.Valid事件中檢查C.Text1.MaxLength=5，Text1.Locked=TrueD.Text1.Enabled=True，Text1.MultiLine=False答案：A解析：MaxLength設(shè)置最大輸入長度，KeyPress事件中通過判斷KeyAscii是否為數(shù)字字符（48~57）或退格（8）來限制輸入，A正確；Length是只讀屬性，B錯誤；Locked是鎖定文本框，不能輸入，C錯誤；Enabled控制是否可用，與輸入內(nèi)容無關(guān)，D錯誤。二、填空題（每空2分，共10分）1.聲明一個模塊級字符串變量strName，應(yīng)使用的語句是：________。答案：PrivatestrNameAsString（或DimstrNameAsString，模塊級變量默認作用域為Private）2.計算1到100中所有能被3整除的數(shù)的和，補全循環(huán)代碼：```vbDimsumAsInteger,iAsIntegersum=0Fori=1To100If________Thensum=sum+iNexti```答案：iMod3=03.打開D盤下的“data.txt”文件用于追加寫入，應(yīng)使用的語句是：________。答案：Open"d:\data.txt"ForAppendAs14.定義一個函數(shù)，返回兩個整數(shù)中的較大值，補全代碼：```vbFunctionMax(aAsInteger,bAsInteger)AsIntegerMax=________EndFunction```答案：IIf(a>b,a,b)（或Ifa>bThenaElseb）5.在VB中，處理異常的基本結(jié)構(gòu)是：OnError________，配合Err對象。答案：GoTo標簽名（或ResumeNext）三、程序改錯題（每題5分，共15分）1.以下代碼試圖計算n!（n的階乘），但存在錯誤，請修正。```vbPrivateSubCommand1_Click()DimnAsInteger,iAsInteger,sAsIntegern=Val(Text1.Text)s=1Fori=1Ton1s=siNextiText2.Text=sEndSub```錯誤分析：階乘應(yīng)計算1×2×…×n，循環(huán)應(yīng)到n而非n-1。修正：將“Fori=1Ton1”改為“Fori=1Ton”。2.以下代碼試圖將列表框List1中的內(nèi)容寫入順序文件“l(fā)ist.txt”，但存在錯誤，請修正。```vbPrivateSubCommand2_Click()Open"list.txt"ForInputAs1Fori=0ToList1.ListCount1Print1,List1.List(i)NextiClose1EndSub```錯誤分析：寫入文件應(yīng)使用Output或Append模式（Input是讀取）；未指定文件路徑（默認當(dāng)前路徑，可能無寫入權(quán)限）。修正：將“ForInput”改為“ForOutput”；建議指定完整路徑（如“d:\list.txt”）。3.以下代碼試圖連接數(shù)據(jù)庫并查詢學(xué)生表，存在錯誤，請修正。```vbPrivateSubCommand3_Click()DimconnAsADODB.ConnectionDimrsAsADODB.RecordsetSetconn=NewADODB.Connectionconn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=student.accdb"conn.Openrs.Open"SELECTFROM學(xué)生",connList1.AddItemrs.Fields("姓名")rs.Closeconn.CloseEndSub```錯誤分析：Access2007+的.accdb文件需使用ACE.OLEDB.12.0提供程序；Recordset未初始化（需Setrs=NewADODB.Recordset）；未遍歷記錄（只讀取第一條）。修正：①conn.ConnectionString改為“Provider=Microsoft.ACE.OLEDB.12.0;DataSource=student.accdb”；②添加“Setrs=NewADODB.Recordset”；③遍歷記錄：```vbDoWhileNotrs.EOFList1.AddItemrs.Fields("姓名")rs.MoveNextLoop```四、編程題（共55分）1.（15分）設(shè)計一個VB程序，實現(xiàn)以下功能：在文本框Text1中輸入若干個用逗號分隔的整數(shù)（如“12,34,5,67,8”），點擊按鈕Command1后，在文本框Text2中顯示這些數(shù)的最大值、最小值和平均值（保留2位小數(shù)）。參考代碼：```vbPrivateSubCommand1_Click()DimstrInputAsString,arr()AsString,nums()AsIntegerDimiAsInteger,maxAsInteger,minAsInteger,sumAsInteger,avgAsDoublestrInput=Text1.TextIfstrInput=""ThenMsgBox"請輸入數(shù)據(jù)！"ExitSubEndIfarr=Split(strInput,",")'按逗號分割字符串ReDimnums(UBound(arr))AsInteger'動態(tài)數(shù)組存儲數(shù)值Fori=0ToUBound(arr)nums(i)=Val(arr(i))'轉(zhuǎn)換為整數(shù)Ifi=0Thenmax=nums(i)min=nums(i)ElseIfnums(i)>maxThenmax=nums(i)Ifnums(i)<minThenmin=nums(i)EndIfsum=sum+nums(i)Nextiavg=sum/(UBound(arr)+1)'計算平均值（元素個數(shù)=UBound+1）Text2.Text="最大值："&max&"，最小值："&min&"，平均值："&Format(avg,"0.00")EndSub```2.（20分）編寫一個VB程序，實現(xiàn)“學(xué)提供績管理”功能：界面包含：文本框（輸入姓名）、3個文本框（輸入語文、數(shù)學(xué)、英語成績）、按鈕（“添加”“顯示最高分”）、列表框（顯示所有學(xué)生信息）?！疤砑印卑粹o：將輸入的姓名和成績存入數(shù)組，并在列表框中顯示（格式：“姓名：張三，語文：85，數(shù)學(xué)：90，英語：88”）?！帮@示最高分”按鈕：在標簽中顯示總分最高的學(xué)生姓名及其總分。參考代碼（關(guān)鍵部分）：```vbDimstudents()AsStudent'假設(shè)已定義自定義類型：TypeStudent:NameAsString:ChineseAsInteger:MathAsInteger:EnglishAsInteger:TotalAsInteger:EndTypeDimcountAsInteger'學(xué)生數(shù)量PrivateSubCommand1_Click()'添加按鈕DimsAsStudents.Name=Text1.Texts.Chinese=Val(Text2.Text):s.Math=Val(Text3.Text):s.English=Val(Text4.Text)s.Total=s.Chinese+s.Math+s.Englishcount=count+1ReDimPreservestudents(1Tocount)'動態(tài)數(shù)組，索引從1開始students(count)=sList1.AddItem"姓名："&s.Name&"，語文："&s.Chinese&"，數(shù)學(xué)："&s.Math&"，英語："&s.EnglishEndSubPrivateSubCommand2_Click()'顯示最高分按鈕DimmaxTotalAsInteger,maxIndexAsInteger,iAsIntegerIfcount=0ThenMsgBox"無學(xué)生數(shù)據(jù)！"ExitSubEndIfmaxTotal=students(1).Total:maxIndex=1Fori=2TocountIfstudents(i).Total>maxTotalThenmaxTotal=students(i).TotalmaxIndex=iEndIfNextiLabel1.Caption="總分最高："&students(maxIndex).Name&"，總分："&maxTotalEndSub```3.（20分）編寫VB代碼，連接Access數(shù)據(jù)庫（文件路徑：“d:\school.accdb”，包含“成績表”，字段：學(xué)號（文本）、姓名（文本）、數(shù)學(xué)（數(shù)值）、英語（數(shù)值）），實現(xiàn)以下功能：點擊按鈕時，查詢數(shù)學(xué)成績大于80分且英語成績大于70分的學(xué)生，將結(jié)果顯示在列表框中（格式：“學(xué)號：001，姓名：張三，數(shù)學(xué)：85