2025年計(jì)算機(jī)vb試題及答案一、單項(xiàng)選擇題（每題2分，共30分）1.以下關(guān)于VB變量聲明的描述中，正確的是（）A.使用Dim聲明的變量作用域僅限于當(dāng)前過程B.Static聲明的變量在過程結(jié)束后會(huì)被釋放C.Public聲明的變量可在整個(gè)工程的所有模塊中使用D.在窗體模塊中用Private聲明的變量僅能在本窗體的事件過程中訪問2.執(zhí)行語句a="123"+"45"后，變量a的數(shù)據(jù)類型和值分別為（）A.字符串型，"12345"B.數(shù)值型，168C.字符串型，"168"D.數(shù)值型，123453.已知x=5，y=3，執(zhí)行z=IIf(x>y,x+y,xy)后，z的值為（）A.8B.15C.5D.34.要使文本框（Text1）中的內(nèi)容不可編輯但可復(fù)制，應(yīng)設(shè)置的屬性是（）A.Text1.Locked=TrueB.Text1.Enabled=FalseC.Text1.Visible=FalseD.Text1.ReadOnly=True5.以下循環(huán)結(jié)構(gòu)中，循環(huán)體至少執(zhí)行一次的是（）A.Fori=1To10Step2B.Whilea>0C.DoWhilea>0D.DoUntila>06.聲明二維數(shù)組arr(3,4)后，該數(shù)組的元素個(gè)數(shù)是（）A.12B.20C.15D.247.以下關(guān)于過程的描述中，錯(cuò)誤的是（）A.子過程（Sub）可以通過參數(shù)返回多個(gè)值B.函數(shù)過程（Function）必須有返回值C.使用Call語句調(diào)用子過程時(shí)，參數(shù)列表必須加括號(hào)D.過程的參數(shù)默認(rèn)按地址傳遞（ByRef）8.執(zhí)行以下代碼后，輸出結(jié)果是（）DimsAsString,iAsIntegers="VBProgramming"Fori=1ToLen(s)Step2s=s&Mid(s,i,1)NextiPrintLen(s)A.13B.18C.20D.269.要將列表框（List1）中選中的項(xiàng)目刪除，應(yīng)使用的語句是（）A.List1.RemoveItemList1.ListIndexB.List1.ClearC.List1.RemoveItemList1.TextD.List1.DeleteList1.Selected10.以下文件操作語句中，正確的是（）A.Open"data.txt"ForInputAs1B.Open"data.txt"ForWriteAs1C.Open"data.txt"ForAppendAs0D.Open1ForInputAs"data.txt"11.設(shè)a=3，b=5，執(zhí)行以下語句后，a和b的值分別為（）a=aXorbb=aXorba=aXorbA.3,5B.5,3C.8,8D.0,012.以下關(guān)于對(duì)象事件的描述中，正確的是（）A.按鈕（CommandButton）的Click事件在鼠標(biāo)按下時(shí)觸發(fā)B.文本框（TextBox）的Change事件在內(nèi)容改變后失去焦點(diǎn)時(shí)觸發(fā)C.窗體（Form）的Load事件在窗體顯示前觸發(fā)D.計(jì)時(shí)器（Timer）的Tick事件觸發(fā)頻率由Interval屬性決定，單位為秒13.執(zhí)行以下代碼后，輸出結(jié)果是（）DimnAsInteger,sumAsIntegern=1DoWhilen<=5IfnMod2=1Thensum=sum+nElsesum=sumnEndIfn=n+1LoopPrintsumA.1B.3C.5D.714.以下關(guān)于數(shù)組的描述中，正確的是（）A.動(dòng)態(tài)數(shù)組聲明時(shí)必須指定大小B.使用ReDim語句可以改變靜態(tài)數(shù)組的大小C.Erase語句會(huì)將動(dòng)態(tài)數(shù)組的存儲(chǔ)空間釋放D.數(shù)組的下界只能是0或115.要在圖片框（PictureBox）中繪制一個(gè)紅色實(shí)心圓，應(yīng)設(shè)置的屬性和方法是（）A.PictureBox.ForeColor=vbRed:PictureBox.Circle(100,100),50B.PictureBox.FillColor=vbRed:PictureBox.FillStyle=0:PictureBox.Circle(100,100),50C.PictureBox.BackColor=vbRed:PictureBox.Circle(100,100),50D.PictureBox.DrawStyle=4:PictureBox.Circle(100,100),50二、填空題（每空2分，共20分）1.表達(dá)式3^2+5Mod324的結(jié)果是（）。2.若要將文本框的滾動(dòng)條設(shè)置為水平和垂直同時(shí)顯示，應(yīng)將ScrollBars屬性設(shè)置為（）。3.設(shè)有數(shù)組arr(1To5)={2,4,6,8,10}，執(zhí)行arr(3)=arr(1)+arr(5)后，arr(3)的值為（）。4.函數(shù)過程Fun的定義為：FunctionFun(aAsInteger,bAsInteger)AsInteger，調(diào)用時(shí)使用語句x=Fun(3,5)，則參數(shù)傳遞方式為（）（填“按值”或“按地址”）。5.執(zhí)行語句s="HelloWorld":Mid(s,3,4)="VB"后，變量s的值為（）。6.要使計(jì)時(shí)器控件每隔0.5秒觸發(fā)一次Tick事件，應(yīng)將Interval屬性設(shè)置為（）。7.打開順序文件時(shí)，若要向文件末尾添加數(shù)據(jù)，文件模式應(yīng)設(shè)置為（）。8.設(shè)有語句SelectCasex，當(dāng)x=7時(shí)，會(huì)執(zhí)行Case5To10分支，該分支的寫法應(yīng)為（）。9.執(zhí)行以下代碼后，數(shù)組a的元素個(gè)數(shù)為（）。ReDima(2To5,1To3)10.以下代碼的功能是統(tǒng)計(jì)字符串中數(shù)字字符的個(gè)數(shù)，請(qǐng)補(bǔ)全空白處：DimsAsString,cntAsInteger,iAsIntegers="2025VBExam123"cnt=0Fori=1ToLen(s)IfMid(s,i,1)>="0"AndMid(s,i,1)<="9"Thencnt=cnt+1EndIfNexti三、程序分析題（每題8分，共24分）1.分析以下程序的運(yùn)行結(jié)果。PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegera=2:b=3:c=4CallSwap(a,b)CallSwap(b,c)Printa;b;cEndSubSubSwap(xAsInteger,yAsInteger)DimtAsIntegert=x:x=y:y=tEndSub2.分析以下程序的輸出結(jié)果。PrivateSubForm_Click()DimiAsInteger,jAsInteger,sAsStringFori=1To3s=""Forj=1To2i1s=s&""NextjPrintsNextiEndSub3.分析以下程序的功能，并寫出當(dāng)輸入5時(shí)的輸出結(jié)果。PrivateSubCommand1_Click()DimnAsInteger,fAsLongn=Val(InputBox("請(qǐng)輸入一個(gè)正整數(shù)："))f=1DoWhilen>1f=fnn=n1LoopMsgBox"結(jié)果："&fEndSub四、編程題（共26分）1.（10分）設(shè)計(jì)一個(gè)VB程序，實(shí)現(xiàn)以下功能：在文本框Text1中輸入一個(gè)字符串，單擊“統(tǒng)計(jì)”按鈕Command1后，在標(biāo)簽Label1中顯示字符串中大寫字母、小寫字母和數(shù)字的個(gè)數(shù)（例如“統(tǒng)計(jì)結(jié)果：大寫字母3個(gè)，小寫字母5個(gè)，數(shù)字2個(gè)”）。2.（16分）編寫一個(gè)VB程序，從D盤根目錄下的“score.txt”文件中讀取學(xué)提供績（每行一個(gè)成績，如“85”“92”等），計(jì)算平均分并統(tǒng)計(jì)不及格（<60）、及格（60-79）、良好（80-89）、優(yōu)秀（≥90）的人數(shù)，最后將統(tǒng)計(jì)結(jié)果寫入D盤根目錄下的“report.txt”文件（格式示例：“總?cè)藬?shù)：30，平均分：82.5；不及格：2，及格：10，良好：12，優(yōu)秀：6”）。答案一、單項(xiàng)選擇題1.C2.A3.A4.A5.D6.B7.C8.C9.A10.A11.B12.D13.B14.C15.B二、填空題1.3^2=9，5Mod3=2，24=8，9+2-8=3→32.3（0無，1水平，2垂直，3兩者）3.arr(1)=2，arr(5)=10，2+10=12→124.按地址（默認(rèn)ByRef）5.原字符串"HelloWorld"，Mid(3,4)即第3-6個(gè)字符"lloW"，替換為"VB"后變?yōu)?HeVBorld"→"HeVBorld"6.500（Interval單位為毫秒）7.Append8.Case5To109.行數(shù)：5-2+1=4，列數(shù)：3-1+1=3，總個(gè)數(shù)4×3=12→1210.正確（代碼已完整）三、程序分析題1.Swap過程按地址傳遞參數(shù)，第一次交換a和b后，a=3，b=2；第二次交換b和c（b=2，c=4），交換后b=4，c=2。最終輸出：3422.外層循環(huán)i=1到3，內(nèi)層循環(huán)j=1到2i-1：i=1時(shí)j=1→""；i=2時(shí)j=1到3→""；i=3時(shí)j=1到5→""。輸出：3.功能：計(jì)算輸入正整數(shù)的階乘。輸入5時(shí)，f=5×4×3×2×1=120。輸出：結(jié)果：120四、編程題1.參考代碼：PrivateSubCommand1_Click()DimsAsString,upAsInteger,lowAsInteger,numAsInteger,iAsIntegers=Text1.Textup=0:low=0:num=0Fori=1ToLen(s)DimcAsStringc=Mid(s,i,1)Ifc>="A"Andc<="Z"Thenup=up+1ElseIfc>="a"Andc<="z"Thenlow=low+1ElseIfc>="0"Andc<="9"Thennum=num+1EndIfNextiLabel1.Caption="統(tǒng)計(jì)結(jié)果：大寫字母"&up&"個(gè)，小寫字母"&low&"個(gè)，數(shù)字"&num&"個(gè)"EndSub2.參考代碼：PrivateSubCommand1_Click()DimscoreAsInteger,totalAsInteger,countAsIntegerDimfailAsInteger,passAsInteger,goodAsInteger,excellentAsIntegerDimavgAsSingle'讀取文件Open"D:\score.txt"ForInputAs1total=0:count=0fail=0:pass=0:good=0:excellent=0DoWhileNotEOF(1)Input1,score