2025年VB考試重點沖刺試題及答案一、基礎(chǔ)語法與變量操作1.指出以下VB代碼中的錯誤并修正：```vbDimtotalAsIntegertotal="123"+456Dimname$="張三":age%=20If10>5Thenprint"條件成立"```答案：錯誤1：字符串"123"與數(shù)值456直接相加，需轉(zhuǎn)換為數(shù)值類型。修正為`total=Val("123")+456`。錯誤2：`print`語句需首字母大寫為`Print`（VB區(qū)分部分關(guān)鍵字大小寫）。修正后代碼：```vbDimtotalAsIntegertotal=Val("123")+456Dimname$="張三":Dimage%=20'或合并聲明為Dimname$="張三",age%=20If10>5ThenPrint"條件成立"```2.寫出以下代碼的執(zhí)行結(jié)果：```vbDimaAsDouble,bAsStringa=3.1415926b=Format(a,"0.00%")PrintLen(b);Mid(b,3,2)```答案：執(zhí)行結(jié)果為`614`。解析：`Format(a,"0.00%")`將3.1415926轉(zhuǎn)換為百分比格式（314.16%），字符串長度為6（"314.16%"）；`Mid(b,3,2)`從第3位開始取2個字符，即"14"。二、流程控制結(jié)構(gòu)3.編寫VB代碼，計算1到100中所有能被3整除但不能被5整除的數(shù)的和。答案：```vbDimsumAsInteger,iAsIntegersum=0Fori=1To100IfiMod3=0AndAlsoiMod5<>0Thensum=sum+iEndIfNextiPrint"符合條件的數(shù)之和為："&sum'結(jié)果為1368（驗證：3+6+9+12+…+99中排除15、30…90，計算得1368）```4.輸入一個年份，判斷是否為閏年（閏年條件：能被4整除但不能被100整除，或能被400整除）。要求用SelectCase語句實現(xiàn)。答案：```vbDimyearAsIntegeryear=InputBox("請輸入年份：")SelectCaseTrueCaseyearMod400=0Printyear&"是閏年"CaseyearMod100=0Printyear&"不是閏年"CaseyearMod4=0Printyear&"是閏年"CaseElsePrintyear&"不是閏年"EndSelect```三、數(shù)組與數(shù)據(jù)結(jié)構(gòu)5.聲明一個5×5的二維數(shù)組，用隨機(jī)函數(shù)（Rnd）提供1-100的整數(shù)填充，計算并輸出主對角線（i=j）元素的平均值。答案：```vbDimarr(4,4)AsInteger,sumAsInteger,countAsInteger,iAsInteger,jAsIntegerRandomizeFori=0To4Forj=0To4arr(i,j)=Int(Rnd100)+1NextjNextisum=0:count=0Fori=0To4sum=sum+arr(i,i)count=count+1NextiPrint"主對角線平均值為："&sum/count'count固定為5，結(jié)果為sum/5```6.對一維數(shù)組a（元素為15,8,23,4,19,30）進(jìn)行升序冒泡排序，寫出每一輪排序后的數(shù)組狀態(tài)及最終結(jié)果。答案：初始數(shù)組：[15,8,23,4,19,30]第1輪（比較5次）：8,15,4,19,23,30（交換15?8，23?4，23?19）第2輪（比較4次）：8,4,15,19,23,30（交換15?4）第3輪（比較3次）：4,8,15,19,23,30（無交換）第4輪（比較2次）：無交換，提前結(jié)束最終排序結(jié)果：[4,8,15,19,23,30]四、過程與函數(shù)7.編寫一個Function過程`GCD(mAsInteger,nAsInteger)`，計算兩個正整數(shù)的最大公約數(shù)（要求用輾轉(zhuǎn)相除法）。答案：```vbFunctionGCD(mAsInteger,nAsInteger)AsIntegerDimtempAsIntegerWhilen<>0temp=mModnm=nn=tempEndWhileGCD=mEndFunction'示例調(diào)用：PrintGCD(24,36)輸出12```8.設(shè)計一個Sub過程`Swap(ByRefxAsInteger,ByValyAsInteger)`，交換x和y的值，并說明參數(shù)傳遞方式的區(qū)別。答案：```vbSubSwap(ByRefxAsInteger,ByValyAsInteger)DimtempAsIntegertemp=xx=yy=temp'y為按值傳遞，修改不影響外部變量EndSub'參數(shù)區(qū)別：ByRef（引用傳遞）會同步修改外部變量值；ByVal（值傳遞）僅修改過程內(nèi)副本，不影響外部。'示例：調(diào)用前a=5,b=10；調(diào)用Swap(a,b)后，a=10，b仍為10（因y是值傳遞）。```五、文件操作9.現(xiàn)有文本文件"scores.txt"（路徑為D:\），每行存儲一個學(xué)生的數(shù)學(xué)成績（如"95","88","76"），編寫代碼讀取所有成績，計算平均分并寫入"average.txt"（同路徑）。答案：```vbDimscoreAsString,sumAsDouble,countAsInteger,avgAsDoubleOpen"D:\scores.txt"ForInputAs1sum=0:count=0WhileNotEOF(1)LineInput1,scoresum=sum+Val(score)count=count+1WendClose1Ifcount>0Thenavg=sum/countElseavg=0EndIfOpen"D:\average.txt"ForOutputAs2Print2,"平均分："&avgClose2```10.用隨機(jī)文件方式存儲3名學(xué)生的信息（學(xué)號：字符串，長度10；姓名：字符串，長度8；成績：整數(shù)），編寫代碼寫入并讀取第一條記錄。答案：```vbTypeStudentIDAsString10NameAsString8ScoreAsIntegerEndTypeDimsAsStudent,iAsInteger'寫入Open"D:\students.dat"ForRandomAs1Len=Len(s)Fori=1To3s.ID="S"&Format(i,"000")s.Name=InputBox("輸入第"&i&"名學(xué)生姓名：")s.Score=Val(InputBox("輸入第"&i&"名學(xué)提供績："))Put1,i,sNextiClose1'讀取第一條記錄Open"D:\students.dat"ForRandomAs1Len=Len(s)Get1,1,sPrint"學(xué)號："&s.ID&"姓名："&s.Name&"成績："&s.ScoreClose1```六、對象與事件處理11.設(shè)計一個窗體，包含兩個文本框（Text1、Text2）和一個按鈕（Command1）。要求：輸入兩個數(shù)值后點擊按鈕，若數(shù)值為正整數(shù)則計算其乘積并顯示在Text2；否則彈出錯誤提示。答案：窗體代碼：```vbPrivateSubCommand1_Click()Dimnum1AsInteger,num2AsInteger,productAsIntegerIfIsNumeric(Text1.Text)AndAlsoText1.Text>0AndAlsoInt(Text1.Text)=Text1.TextThennum1=Val(Text1.Text)ElseMsgBox"請輸入正整數(shù)！"Text1.SetFocusExitSubEndIfIfIsNumeric(Text2.Text)AndAlsoText2.Text>0AndAlsoInt(Text2.Text)=Text2.TextThennum2=Val(Text2.Text)ElseMsgBox"請輸入正整數(shù)！"Text2.SetFocusExitSubEndIfproduct=num1num2Text2.Text=productEndSub```七、錯誤處理12.編寫代碼讀取用戶輸入的數(shù)值并計算其平方根，要求加入錯誤處理（捕獲非數(shù)值輸入、負(fù)數(shù)輸入等異常）。答案：```vbDiminputNumAsDouble,resultAsDoubleOnErrorGoToErrorHandlerinputNum=Val(InputBox("請輸入一個非負(fù)數(shù)："))IfinputNum<0ThenErr.Raise5,"平方根計算","輸入不能為負(fù)數(shù)"'自定義錯誤EndIfresult=Sqr(inputNum)Print"平方根為："&resultExitSubError