2025年中學(xué)信息技術(shù)vb試題及答案一、單項(xiàng)選擇題（每小題2分，共20分）1.以下VB變量聲明正確的是（）A.Dim123numAsIntegerB.Dimname$AsStringC.Dimscore(10)AsSingleD.DimisRight:Boolean2.執(zhí)行語(yǔ)句a=3:b=5:c=a>bAnd10Mod3>1后，c的值為（）A.TrueB.FalseC.1D.03.要使文本框（Text1）只能輸入數(shù)字，應(yīng)設(shè)置的屬性是（）A.Text1.MaxLength=10B.Text1.PasswordChar=""C.Text1.Enabled=FalseD.Text1.KeyPress事件中限制輸入字符4.已知列表框List1中有5個(gè)項(xiàng)目，執(zhí)行List1.RemoveItem2后，列表框剩余項(xiàng)目數(shù)為（）A.4B.3C.5D.25.運(yùn)行以下程序段，輸出結(jié)果是（）DimiAsInteger,sAsIntegers=0Fori=1To5Step2s=s+iNextiPrintsA.9B.6C.15D.106.若要將圖片框Picture1中的內(nèi)容清空，應(yīng)使用的語(yǔ)句是（）A.Picture1.Picture=LoadPicture("")B.Picture1.ClsC.Picture1.Visible=FalseD.Picture1.BackColor=vbWhite7.以下能正確提供10到50之間（含10和50）隨機(jī)整數(shù)的表達(dá)式是（）A.Int(Rnd40)+10B.Int(Rnd41)+10C.Int(Rnd50)+10D.Int(Rnd51)18.分析以下過程，調(diào)用sum(3)的返回值是（）Functionsum(nAsInteger)AsIntegerIfn=1Thensum=1Elsesum=n+sum(n1)EndIfEndFunctionA.6B.3C.1D.109.執(zhí)行語(yǔ)句a="2025":b="信息技術(shù)":c=a&b后，c的值是（）A."2025信息技術(shù)"B.2025信息技術(shù)C."2025"+"信息技術(shù)"D.錯(cuò)誤（類型不匹配）10.以下關(guān)于文件操作的描述，錯(cuò)誤的是（）A.用Open"data.txt"ForInputAs1可打開文件用于讀取B.寫入文件時(shí)，Print語(yǔ)句會(huì)自動(dòng)添加換行符C.文件號(hào)可以是1到511之間的整數(shù)D.關(guān)閉文件時(shí)必須按打開順序關(guān)閉二、填空題（每空2分，共20分）1.表達(dá)式3^2+10\32的結(jié)果是______。2.若Text1.Text="abc"，Text2.Text="123"，則Text1.Text&Text2.Text的結(jié)果是______。3.要使命令按鈕Command1的標(biāo)題顯示為“提交”，應(yīng)設(shè)置其______屬性為“提交”。4.數(shù)組a定義為Dima(3,4)AsInteger，則該數(shù)組共有______個(gè)元素。5.執(zhí)行以下代碼后，Label1.Caption的值是______。DimxAsIntegerx=15IfxMod3=0ThenLabel1.Caption="能被3整除"ElseIfxMod5=0ThenLabel1.Caption="能被5整除"ElseLabel1.Caption="都不能"EndIf6.以下循環(huán)執(zhí)行的次數(shù)是______次。i=1DoWhilei<=5i=i+2Loop7.自定義函數(shù)fun的功能是計(jì)算兩個(gè)數(shù)的平方和，補(bǔ)全代碼：Functionfun(aAsInteger,bAsInteger)AsIntegerfun=______EndFunction8.要將列表框List1中選中的項(xiàng)目刪除，應(yīng)使用的語(yǔ)句是______。9.執(zhí)行Open"d:\score.txt"ForAppendAs1后，向文件中寫入數(shù)據(jù)時(shí)，新數(shù)據(jù)會(huì)添加到文件的______。10.以下程序段用于交換變量a和b的值，補(bǔ)全代碼：t=aa=b______三、程序分析題（每小題10分，共30分）1.分析以下程序，寫出運(yùn)行后窗體上的輸出結(jié)果。PrivateSubForm_Click()DimiAsInteger,jAsInteger,sAsIntegers=0Fori=1To3Forj=1Tois=s+jNextjNextiPrint"s=";sEndSub2.閱讀以下代碼，說明其功能。PrivateSubCommand1_Click()Dimarr(1To5)AsIntegerDimiAsInteger,maxAsIntegerFori=1To5arr(i)=Val(InputBox("輸入第"&i&"個(gè)數(shù)："))Nextimax=arr(1)Fori=2To5Ifarr(i)>maxThenmax=arr(i)EndIfNextiMsgBox"最大值是："&maxEndSub3.以下代碼用于計(jì)算斐波那契數(shù)列前10項(xiàng)（第1項(xiàng)為1，第2項(xiàng)為1），補(bǔ)全缺失的代碼，并寫出前5項(xiàng)的數(shù)值。PrivateSubCommand1_Click()Dimf(1To10)AsLongDimiAsIntegerf(1)=1f(2)=1Fori=3To10f(i)=______NextiFori=1To10Printf(i);NextiEndSub四、編程題（共30分）1.（12分）設(shè)計(jì)一個(gè)VB程序，實(shí)現(xiàn)以下功能：在文本框Text1中輸入若干個(gè)學(xué)生的數(shù)學(xué)成績(jī)（以逗號(hào)分隔），點(diǎn)擊“計(jì)算”按鈕Command1后，在文本框Text2中顯示平均分（保留2位小數(shù)）。要求：（1）輸入驗(yàn)證：若輸入為空或包含非數(shù)字字符，彈出提示框“輸入格式錯(cuò)誤”；（2）平均分計(jì)算使用函數(shù)過程實(shí)現(xiàn)。2.（18分）某班級(jí)需要統(tǒng)計(jì)運(yùn)動(dòng)會(huì)報(bào)名情況，數(shù)據(jù)存儲(chǔ)在d盤的“報(bào)名.txt”文件中，每行格式為“姓名,項(xiàng)目,班級(jí)”（如“李明,100米,3班”）。設(shè)計(jì)程序?qū)崿F(xiàn)以下功能：（1）點(diǎn)擊“讀取數(shù)據(jù)”按鈕Command1，將文件中的數(shù)據(jù)讀取到列表框List1中（每行顯示一條記錄）；（2）點(diǎn)擊“統(tǒng)計(jì)班級(jí)”按鈕Command2，在文本框Text1中顯示“3班”的報(bào)名人數(shù)；（3）點(diǎn)擊“保存篩選”按鈕Command3，將項(xiàng)目為“100米”的記錄寫入d盤的“100米報(bào)名.txt”文件。答案一、單項(xiàng)選擇題1.C2.B3.D4.A5.A6.A7.B8.A9.A10.D二、填空題1.13（解析：3^2=9，10\3=3，32=6，9+6=15？不，原式是3^2+(10\3)2，即9+32=15？但可能我計(jì)算錯(cuò)了。原式應(yīng)為3^2=9，10\3=3，32=6，9+6=15？但用戶可能題目是否有誤？或者我哪里錯(cuò)了？原式是3^2+10\32，運(yùn)算符優(yōu)先級(jí)：乘方>乘除\>加減，所以先算3^2=9，然后10\3=3（整除），32=6，最后9+6=15。所以答案應(yīng)為15？可能我之前寫錯(cuò)了，需要修正。）（更正：第一題填空題正確計(jì)算應(yīng)為3^2=9，10\3=3（整除），32=6，9+6=15，故答案為15）2."abc123"（或abc123，VB中字符串連接結(jié)果無引號(hào)，但題目中Text屬性為字符串，故答案為abc123）3.Caption4.20（3+1行，4+1列，4×5=20）5.能被3整除（15÷3=5，余0）6.3（i=1→3→5→7，當(dāng)i=7時(shí)退出循環(huán)，執(zhí)行了3次）7.a^2+b^28.List1.RemoveItemList1.ListIndex（需確保有選中項(xiàng)）9.末尾（Append模式追加）10.b=t三、程序分析題1.輸出結(jié)果：s=10（解析：外層i=1時(shí)，內(nèi)層j=1，s=1；i=2時(shí)，j=1和2，s=1+1+2=4；i=3時(shí)，j=1、2、3，s=4+1+2+3=10）2.功能：從用戶處輸入5個(gè)整數(shù)，存儲(chǔ)到數(shù)組中，然后找出數(shù)組中的最大值并顯示。3.缺失代碼：f(i-1)+f(i-2)；前5項(xiàng)為1,1,2,3,5。四、編程題1.參考代碼：PrivateSubCommand1_Click()DimstrInputAsString,arr()AsStringDimiAsInteger,sumAsSingle,countAsIntegerstrInput=Text1.TextIfstrInput=""ThenMsgBox"輸入格式錯(cuò)誤"ExitSubEndIfarr=Split(strInput,",")Fori=0ToUBound(arr)IfNotIsNumeric(arr(i))ThenMsgBox"輸入格式錯(cuò)誤"ExitSubEndIfsum=sum+Val(arr(i))count=count+1NextiText2.Text=Format(Avg(sum,count),"0.00")EndSubFunctionAvg(totalAsSingle,numAsInteger)AsSingleIfnum=0ThenAvg=0ElseAvg=total/numEndIfEndFunction2.參考代碼：PrivateSubCommand1_Click()DimstrLineAsStringList1.ClearOpen"d:\報(bào)名.txt"ForInputAs1DoWhileNotEOF(1)LineInput1,strLineList1.AddItemstrLineLoopClose1EndSubPrivateSubCommand2_Click()DimstrLineAsString,arr()AsString,countAsIntegerOpen"d:\報(bào)名.txt"ForInputAs1DoWhileNotEOF(1)LineInput1,strLinearr=Split(strLine,",")Ifarr(2)="3班"Thencount=count+1EndIfLoopClose1Text1.Text=countEndSubPrivateSubCommand3_Click()DimstrLineAsString,arr()AsStringOpen