2025年VB程序設(shè)計(jì)核心試題及答案一、單項(xiàng)選擇題（每題2分，共20分）1.以下關(guān)于VB變量聲明的描述中，正確的是（）。A.用Dim聲明的變量?jī)H在當(dāng)前過(guò)程中有效B.用Static聲明的變量在程序運(yùn)行期間持續(xù)保留值C.用Public聲明的變量可在所有模塊中使用，但需在標(biāo)準(zhǔn)模塊中聲明D.用Private聲明的變量只能在類模塊中使用答案：C2.執(zhí)行語(yǔ)句a=3:b=5:c=a>bAndbMod2=1后，c的值為（）。A.TrueB.FalseC.0D.1答案：B3.設(shè)有數(shù)組聲明語(yǔ)句Dimarr(3,2To4)AsInteger，則數(shù)組arr的元素個(gè)數(shù)是（）。A.12B.9C.15D.10答案：A（第一維0-3共4個(gè)，第二維2-4共3個(gè)，4×3=12）4.以下關(guān)于過(guò)程調(diào)用的描述，錯(cuò)誤的是（）。A.調(diào)用Sub過(guò)程時(shí)，參數(shù)傳遞方式默認(rèn)是按地址傳遞B.Function過(guò)程必須通過(guò)Return語(yǔ)句返回值C.可以用Call語(yǔ)句調(diào)用Sub過(guò)程，也可以直接使用過(guò)程名調(diào)用D.嵌套過(guò)程調(diào)用時(shí)，內(nèi)層過(guò)程結(jié)束后返回外層調(diào)用點(diǎn)答案：B（VB中Function通過(guò)函數(shù)名返回值，Return語(yǔ)句可選）5.若要將文本框Text1的內(nèi)容寫(xiě)入D盤(pán)“data.txt”文件（覆蓋原有內(nèi)容），正確的代碼是（）。A.Open"D:\data.txt"ForInputAs1:Print1,Text1.Text:Close1B.Open"D:\data.txt"ForOutputAs1:Write1,Text1.Text:Close1C.Open"D:\data.txt"ForAppendAs1:Print1,Text1.Text:Close1D.Open"D:\data.txt"ForBinaryAs1:Put1,,Text1.Text:Close1答案：B（Output模式覆蓋寫(xiě)入，Write更適合結(jié)構(gòu)化數(shù)據(jù)，Print也可但Write更規(guī)范）6.執(zhí)行以下代碼后，標(biāo)簽Label1的Caption屬性值是（）。DimsAsString="VB程序設(shè)計(jì)"Label1.Caption=Mid(s,3,2)&Right(s,2)A."程序設(shè)計(jì)"B."程序計(jì)設(shè)"C."程序設(shè)計(jì)"D."程序計(jì)設(shè)"答案：A（Mid("VB程序設(shè)計(jì)",3,2)取第3個(gè)字符開(kāi)始的2個(gè)字符即"程序"，Right取最后2個(gè)字符"設(shè)計(jì)"，拼接為"程序設(shè)計(jì)"）7.以下事件過(guò)程中，能響應(yīng)文本框Text1中輸入內(nèi)容變化的是（）。A.PrivateSubText1_Click()B.PrivateSubText1_Change()C.PrivateSubText1_LostFocus()D.PrivateSubText1_KeyPress()答案：B（Change事件在內(nèi)容變化時(shí)觸發(fā)）8.設(shè)有函數(shù)定義：Functionf(nAsInteger)AsIntegerIfn<=1Thenf=1Elsef=nf(n1)EndIfEndFunction調(diào)用f(4)后返回值是（）。A.4B.12C.24D.6答案：C（遞歸計(jì)算4!=24）9.執(zhí)行DoWhilei<=5:i=i+2:Loop后，變量i的初始值若為1，則循環(huán)執(zhí)行次數(shù)是（）。A.1B.2C.3D.4答案：B（i=1→3→5→7，當(dāng)i=5時(shí)執(zhí)行循環(huán)體，i變?yōu)?，下次判斷i<=5不成立，共執(zhí)行2次）10.以下關(guān)于錯(cuò)誤處理的描述，正確的是（）。A.OnErrorResumeNext會(huì)跳過(guò)錯(cuò)誤語(yǔ)句，繼續(xù)執(zhí)行下一條語(yǔ)句B.錯(cuò)誤處理代碼必須放在過(guò)程的最開(kāi)始位置C.發(fā)生錯(cuò)誤時(shí)，Err.Number屬性會(huì)自動(dòng)重置為0D.使用OnErrorGoTo0可以禁用當(dāng)前過(guò)程的錯(cuò)誤處理答案：D（A中ResumeNext是繼續(xù)執(zhí)行下一條，不是跳過(guò)；B錯(cuò)誤處理代碼一般放在過(guò)程末尾；C錯(cuò)誤發(fā)生時(shí)Err.Number會(huì)被賦值）二、填空題（每空2分，共20分）1.VB中表示邏輯“或”的運(yùn)算符是______。答案：Or2.若要將變量x聲明為單精度浮點(diǎn)數(shù)，應(yīng)使用的聲明語(yǔ)句是______。答案：DimxAsSingle3.執(zhí)行語(yǔ)句s="2025":n=Val(s)+Len(s)后，n的值為_(kāi)_____。答案：2025+4=20294.數(shù)組arr的聲明為Dimarr()AsInteger，若要將其重新定義為包含5個(gè)元素的數(shù)組（保留原有數(shù)據(jù)），應(yīng)使用______語(yǔ)句。答案：ReDimPreservearr(4)（索引0-4共5個(gè)元素）5.設(shè)有命令按鈕Command1，其單擊事件過(guò)程的標(biāo)準(zhǔn)名稱是______。答案：PrivateSubCommand1_Click()6.若要從順序文件中讀取一行文本，應(yīng)使用______語(yǔ)句。答案：LineInput文件號(hào),變量名7.執(zhí)行以下代碼后，變量sum的值是______。sum=0Fori=1To5Step2sum=sum+iNexti答案：1+3+5=98.設(shè)有函數(shù)：FunctionMax(aAsInteger,bAsInteger)AsIntegerIfa>bThenMax=aElseMax=bEndIfEndFunction調(diào)用Max(Max(3,5),4)的返回值是______。答案：5（先比較3和5得5，再比較5和4得5）9.文本框Text1的PasswordChar屬性設(shè)置為""時(shí)，輸入的字符會(huì)顯示為星號(hào)，但該屬性僅在______屬性為T(mén)rue時(shí)有效。答案：UseSystemPasswordChar（或直接寫(xiě)True，但正確屬性是UseSystemPasswordChar，當(dāng)設(shè)置為T(mén)rue時(shí)PasswordChar生效）10.執(zhí)行以下代碼后，列表框List1中第一項(xiàng)的內(nèi)容是______。List1.AddItem"數(shù)學(xué)"List1.AddItem"語(yǔ)文"List1.AddItem"英語(yǔ)"List1.RemoveItem1答案："數(shù)學(xué)"（索引從0開(kāi)始，RemoveItem1刪除"語(yǔ)文"，剩余"數(shù)學(xué)""英語(yǔ)"，第一項(xiàng)是索引0的"數(shù)學(xué)"）三、程序分析題（每題10分，共30分）1.分析以下代碼的輸出結(jié)果。PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,sAsStringFori=1To3s=""Forj=1Tois=s&""NextjPrintsNextiEndSub答案：（外層循環(huán)i=1到3，內(nèi)層循環(huán)j=1到i，每次拼接""，輸出每行的星號(hào)數(shù)等于i的值）2.分析以下代碼執(zhí)行后數(shù)組arr的各元素值。PrivateSubForm_Load()Dimarr(4)AsInteger,kAsIntegerarr(0)=1Fork=1To4arr(k)=arr(k1)2+1NextkEndSub答案：arr(0)=1arr(1)=1×2+1=3arr(2)=3×2+1=7arr(3)=7×2+1=15arr(4)=15×2+1=31（遞推計(jì)算，每個(gè)元素是前一個(gè)元素的2倍加1）3.分析以下函數(shù)的功能，并寫(xiě)出調(diào)用f(3)的返回值。Functionf(nAsInteger)AsIntegerIfn=0Thenf=1ElseIfn=1Thenf=1Elsef=f(n1)+f(n2)EndIfEndFunction答案：功能：計(jì)算斐波那契數(shù)列的第n項(xiàng)（從0開(kāi)始計(jì)數(shù)）。f(3)=f(2)+f(1)=[f(1)+f(0)]+1=(1+1)+1=3（斐波那契數(shù)列：f(0)=1,f(1)=1,f(2)=2,f(3)=3）四、編程題（每題15分，共30分）1.設(shè)計(jì)一個(gè)VB程序，實(shí)現(xiàn)以下功能：在文本框Text1中輸入若干以逗號(hào)分隔的整數(shù)（如"5,3,8,1"），單擊命令按鈕Command1后，在標(biāo)簽Label1中顯示這些數(shù)的最大值，在標(biāo)簽Label2中顯示平均值（保留2位小數(shù)）。答案：PrivateSubCommand1_Click()DimstrAsString,arr()AsString,nums()AsIntegerDimmaxAsInteger,sumAsInteger,avgAsDoubleDimiAsInteger'分割輸入字符串str=Text1.TextIfstr=""ThenMsgBox"請(qǐng)輸入數(shù)據(jù)"ExitSubEndIfarr=Split(str,",")'轉(zhuǎn)換為整數(shù)數(shù)組ReDimnums(UBound(arr))Fori=0ToUBound(arr)nums(i)=Val(arr(i))Nexti'計(jì)算最大值和總和max=nums(0)sum=0Fori=0ToUBound(nums)sum=sum+nums(i)Ifnums(i)>maxThenmax=nums(i)Nexti'計(jì)算平均值avg=sum/(UBound(nums)+1)'顯示結(jié)果Label1.Caption="最大值："&maxLabel2.Caption="平均值："&Format(avg,"0.00")EndSub2.編寫(xiě)一個(gè)VB程序，實(shí)現(xiàn)從D盤(pán)“scores.txt”文件中讀取學(xué)提供績(jī)（每行格式為“姓名,數(shù)學(xué),英語(yǔ)”，如“張三,85,90”），并將數(shù)學(xué)成績(jī)大于80分的學(xué)生信息寫(xiě)入D盤(pán)“high_math.txt”文件（格式與原文件相同）。答案：PrivateSubCommand2_Click()DimnameAsString,mathAsInteger,englishAsIntegerDimlineAsString,fields()AsStringDiminFileAsInteger,outFileAsInteger'分配文件號(hào)inFile=FreeFileoutFile=FreeFile'讀取原文件并篩選OnErrorGoToErrorHandlerOpen"D:\scores.txt"ForInputAsinFileOpen"D:\high_math.txt"ForOutputAsoutFileDoWhileNotEOF(inFile)LineInputinFile,linefields=Split(line,",")IfUBound(fields)>=2Thenname=fields(0)math=Val(fields(1))english=Val(fields(2))Ifmath>80Then