(2025年)計(jì)算機(jī)Vb語(yǔ)言考試題及答案一、單項(xiàng)選擇題（每小題2分，共20分）1.以下關(guān)于VB變量聲明的描述中，正確的是（）。A.用Dim聲明的變量?jī)H在過(guò)程內(nèi)有效B.用Static聲明的變量在過(guò)程結(jié)束后會(huì)被釋放C.用Public聲明的變量可在所有模塊中使用D.用Private聲明的變量只能在類(lèi)模塊中使用2.執(zhí)行語(yǔ)句“a=3:b=5:c=a>b”后，c的值是（）。A.TrueB.FalseC.0D.-13.若要將文本框Text1的內(nèi)容清空，正確的語(yǔ)句是（）。A.Text1.Text=""B.Text1.ClearC.Text1.Value=""D.Text1=""4.以下循環(huán)結(jié)構(gòu)中，一定會(huì)執(zhí)行至少一次循環(huán)體的是（）。A.Fori=1To10Step2B.DoWhileFalse...LoopC.Do...LoopWhileFalseD.WhileFalse...Wend5.設(shè)數(shù)組arr聲明為“Dimarr(3,4)AsInteger”，則該數(shù)組的元素個(gè)數(shù)是（）。A.12B.15C.20D.246.以下關(guān)于過(guò)程參數(shù)傳遞的描述中，錯(cuò)誤的是（）。A.ByVal傳遞時(shí)，形參的修改不影響實(shí)參B.ByRef傳遞時(shí)，形參和實(shí)參共享內(nèi)存地址C.若未指定傳遞方式，默認(rèn)按ByVal傳遞D.數(shù)組作為參數(shù)時(shí)，默認(rèn)按地址傳遞7.執(zhí)行“MsgBox"歡迎",vbOKCancel+vbInformation,"提示"”后，消息框的圖標(biāo)是（）。A.錯(cuò)誤圖標(biāo)B.信息圖標(biāo)C.警告圖標(biāo)D.問(wèn)號(hào)圖標(biāo)8.若要打開(kāi)D盤(pán)下的“data.txt”文件進(jìn)行讀操作，正確的語(yǔ)句是（）。A.Open"D:\data.txt"ForInputAs1B.Open"D:\data.txt"ForOutputAs1C.Open"D:data.txt"ForInputAs1D.Open"D:\data.txt"ForAppendAs19.以下關(guān)于VB對(duì)象事件的描述中，正確的是（）。A.文本框的Change事件在內(nèi)容改變時(shí)觸發(fā)B.按鈕的Click事件只能通過(guò)鼠標(biāo)點(diǎn)擊觸發(fā)C.窗體的Load事件在窗體顯示后觸發(fā)D.列表框的DblClick事件在選中項(xiàng)時(shí)觸發(fā)10.執(zhí)行以下代碼后，變量s的值是（）。```vbs=0Fori=1To5IfiMod2=0ThenExitFors=s+iNexti```A.1B.3C.6D.10二、填空題（每空2分，共20分）1.VB中，將字符串"123"轉(zhuǎn)換為數(shù)值的函數(shù)是______。2.若要限制文本框只能輸入數(shù)字，應(yīng)設(shè)置其______屬性為“0-Numeric”。3.表達(dá)式3^2+5Mod3的結(jié)果是______。4.動(dòng)態(tài)數(shù)組聲明時(shí)需使用______關(guān)鍵字，重新定義大小時(shí)需用______語(yǔ)句。5.若要在列表框List1中添加一個(gè)條目“蘋(píng)果”，應(yīng)使用的語(yǔ)句是______。6.過(guò)程分為子過(guò)程（Sub）和______，其中后者可以返回值。7.順序文件讀取時(shí)，使用______語(yǔ)句讀取一行文本，使用______語(yǔ)句讀取指定數(shù)量的字符。三、程序改錯(cuò)題（每小題5分，共15分。指出錯(cuò)誤并給出正確代碼）1.以下代碼試圖計(jì)算1到10的累加和，但存在錯(cuò)誤：```vbsum=0i=1DoUntili>10sum=sum+ii=i1LoopPrintsum```2.以下代碼試圖交換兩個(gè)變量a和b的值，但存在錯(cuò)誤：```vbSubSwap(aAsInteger,bAsInteger)Dimtempa=temptemp=bb=aEndSub```3.以下代碼試圖從文件中讀取數(shù)據(jù)并顯示，但存在錯(cuò)誤：```vbOpen"D:\test.txt"ForInputAs2DoWhileNotEOF(1)LineInput2,strText1.Text=Text1.Text&str&vbCrLfLoopClose1```四、編程題（共45分）1.（10分）編寫(xiě)一個(gè)VB程序，在文本框Text1中輸入一個(gè)整數(shù)n（n≥1），點(diǎn)擊命令按鈕Command1后，在標(biāo)簽Label1中顯示1到n的所有奇數(shù)的和。2.（15分）設(shè)計(jì)一個(gè)學(xué)提供績(jī)管理程序，功能要求：界面包含文本框（輸入姓名）、數(shù)值框（輸入數(shù)學(xué)成績(jī)，范圍0-100）、命令按鈕（“添加”）和列表框（顯示已添加的學(xué)生信息）。點(diǎn)擊“添加”按鈕時(shí)，若姓名為空或成績(jī)超出范圍，彈出錯(cuò)誤提示；否則將“姓名：XXX，數(shù)學(xué)：XX分”添加到列表框中。3.（20分）編寫(xiě)一個(gè)VB程序，讀取D盤(pán)下“scores.txt”文件（每行格式為“姓名,數(shù)學(xué),英語(yǔ)”），統(tǒng)計(jì)并輸出：數(shù)學(xué)平均分（保留2位小數(shù)）。英語(yǔ)成績(jī)最高的學(xué)生姓名（若有多個(gè)，輸出第一個(gè)）。答案一、單項(xiàng)選擇題1.C2.B3.A4.C5.C6.C7.B8.A9.A10.A二、填空題1.Val2.KeyPress3.104.Dim；ReDim5.List1.AddItem"蘋(píng)果"6.函數(shù)過(guò)程（Function）7.LineInput；Input三、程序改錯(cuò)題1.錯(cuò)誤：循環(huán)中i遞減（i=i1）導(dǎo)致無(wú)法退出循環(huán)。正確代碼：將“i=i1”改為“i=i+1”。2.錯(cuò)誤：temp未賦值，交換邏輯錯(cuò)誤。正確代碼：```vbSubSwap(aAsInteger,bAsInteger)DimtempAsIntegertemp=aa=bb=tempEndSub```3.錯(cuò)誤：文件號(hào)不匹配（Open用2，EOF和Close用1）。正確代碼：將“EOF(1)”改為“EOF(2)”，“Close1”改為“Close2”。四、編程題1.參考代碼：```vbPrivateSubCommand1_Click()DimnAsInteger,sumAsInteger,iAsIntegern=Val(Text1.Text)sum=0Fori=1TonStep2sum=sum+iNextiLabel1.Caption="1到"&n&"的奇數(shù)和為："&sumEndSub```2.參考界面設(shè)計(jì)：文本框Name：TextName數(shù)值框（設(shè)置Min=0，Max=100）Name：TextMath命令按鈕Name：CmdAdd列表框Name：List1參考代碼：```vbPrivateSubCmdAdd_Click()DimnameAsString,scoreAsIntegername=TextName.Textscore=TextMath.ValueIfname=""ThenMsgBox"姓名不能為空！",vbExclamation,"錯(cuò)誤"ExitSubEndIfIfscore<0Orscore>100ThenMsgBox"成績(jī)范圍應(yīng)為0-100！",vbExclamation,"錯(cuò)誤"ExitSubEndIfList1.AddItem"姓名："&name&"，數(shù)學(xué)："&score&"分"EndSub```3.參考代碼：```vbPrivateSubCommand1_Click()DimfileNameAsString,strLineAsStringDimmathSumAsDouble,countAsInteger,maxEngAsInteger,maxNameAsStringDimarr()AsStringfileName="D:\scores.txt"mathSum=0count=0maxEng=-1OpenfileNameForInputAs1DoWhileNotEOF(1)LineInput1,strLinearr=Split(strLine,",")'驗(yàn)證數(shù)據(jù)格式IfUBound(arr)=2ThenmathSum=mathSum+Val(arr(1))count=count+1'統(tǒng)計(jì)英語(yǔ)最高分IfVal(arr(2))>maxEngThenmaxEng=Val(arr(2))maxName=arr(0)EndIfEndIfLoopClose1'