2025年江蘇全國vb考試試題及答案一、單項(xiàng)選擇題（每小題2分，共30分）1.以下關(guān)于VB變量聲明的正確語句是（）A.DimstAsString5B.Integera=10C.Dim成績AsFloatD.PublicnameAsChar2.若文本框Text1的PasswordChar屬性設(shè)置為""，且Locked屬性為True，則（）A.文本框不可編輯，輸入時(shí)顯示""B.文本框可編輯，輸入時(shí)顯示原字符C.文本框不可編輯，輸入時(shí)顯示原字符D.文本框可編輯，輸入時(shí)顯示""3.表達(dá)式3^2+15\4Mod3的計(jì)算結(jié)果是（）A.10B.9C.8D.74.執(zhí)行以下代碼后，變量x的值為（）DimxAsIntegerx=0DoWhilex<5x=x+1IfxMod2=0ThenExitDoLoopA.1B.2C.3D.45.以下能正確聲明動(dòng)態(tài)數(shù)組arr的語句是（）A.Dimarr()AsInteger:ReDimarr(5)B.Dimarr(5)AsInteger:ReDimarr()C.DimarrAsInteger():arr=Array(1,2,3)D.Staticarr()AsInteger:ReDimPreservearr(10)6.設(shè)有函數(shù)過程：FunctionFun(aAsInteger,bAsInteger)AsIntegerFun=a+bEndFunction調(diào)用時(shí)若寫為Fun(3,4.5)，則參數(shù)b的實(shí)際值為（）A.4.5B.4C.5D.報(bào)錯(cuò)7.要將文件D:\data.txt以追加方式打開用于文本輸出，正確的Open語句是（）A.Open"D:\data.txt"ForOutputAs1B.Open"D:\data.txt"ForAppendAs1C.Open"D:\data.txt"ForInputAs1D.Open"D:\data.txt"ForRandomAs18.以下事件過程中，能響應(yīng)命令按鈕Command1雙擊事件的是（）A.PrivateSubCommand1_Click()B.PrivateSubCommand1_DblClick()C.PrivateSubCommand1_MouseDown()D.PrivateSubCommand1_KeyPress()9.執(zhí)行語句s="VisualBasic"，則Mid(s,7,5)的返回值是（）A."Basic"B."sual"C."alBa"D."VBasi"10.若變量a為模塊級(jí)變量，b為過程級(jí)變量，c為全局變量，則它們的聲明位置分別是（）A.模塊通用聲明段、過程內(nèi)、標(biāo)準(zhǔn)模塊通用聲明段B.過程內(nèi)、模塊通用聲明段、標(biāo)準(zhǔn)模塊通用聲明段C.標(biāo)準(zhǔn)模塊通用聲明段、過程內(nèi)、模塊通用聲明段D.模塊通用聲明段、標(biāo)準(zhǔn)模塊通用聲明段、過程內(nèi)11.以下關(guān)于圖片框（PictureBox）和圖像框（Image）的描述，錯(cuò)誤的是（）A.圖片框可作為容器，圖像框不能B.兩者都支持Print方法C.圖片框能顯示動(dòng)畫，圖像框不能D.圖像框占用內(nèi)存比圖片框少12.執(zhí)行以下代碼后，列表框List1中顯示的項(xiàng)目數(shù)是（）List1.ClearFori=1To3List1.AddItemiList1.AddItemi2NextiA.3B.6C.9D.1213.設(shè)a="2025"，b="江蘇"，c="VB考試"，則表達(dá)式a&b&c的結(jié)果是（）A."2025江蘇VB考試"B."2025+江蘇+VB考試"C."2025,江蘇,VB考試"D.報(bào)錯(cuò)14.以下能正確設(shè)置計(jì)時(shí)器Timer1每隔0.5秒觸發(fā)一次事件的是（）A.Timer1.Interval=50B.Timer1.Interval=500C.Timer1.Interval=5000D.Timer1.Interval=0.515.對于語句Ifx>0Theny=1ElseIfx=0Theny=0Elsey=-1，若x=-3，y的值為（）A.1B.0C.-1D.未定義二、填空題（每空2分，共20分）1.執(zhí)行以下代碼，輸出結(jié)果為______。DimiAsInteger,sAsIntegers=0Fori=1To5Step2s=s+iNextiPrints2.若要聲明一個(gè)包含10個(gè)元素的整型數(shù)組arr（下標(biāo)從1到10），應(yīng)使用語句______。3.文本框Text1的______屬性用于設(shè)置其顯示的文本內(nèi)容，______屬性用于限制輸入的最大字符數(shù)。4.執(zhí)行以下代碼，變量n的值為______。DimnAsIntegern=1DoUntiln>5n=n2Loop5.設(shè)有數(shù)組arr=Array(3,1,4,1,5)，則UBound(arr)的值為______，數(shù)組元素的個(gè)數(shù)為______。6.要將標(biāo)簽Label1的背景設(shè)為透明，應(yīng)設(shè)置其______屬性為True；若要讓標(biāo)簽文字右對齊，應(yīng)設(shè)置______屬性為2（右對齊）。7.執(zhí)行語句a=Int(-3.2)，則a的值為______。三、程序改錯(cuò)題（每小題10分，共20分。指出錯(cuò)誤并給出正確代碼）1.以下代碼試圖計(jì)算1到10的累加和，但存在錯(cuò)誤。DimsumAsIntegersum=0i=1Whilei<=10sum=sum+ii=i++WendPrintsum2.以下代碼試圖將輸入的兩個(gè)數(shù)相乘并輸出結(jié)果，但存在錯(cuò)誤。PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=InputBox("輸入第一個(gè)數(shù)")b=InputBox("輸入第二個(gè)數(shù)")c=abMsgBox"結(jié)果："&cEndSub四、編程題（每小題15分，共30分）1.編寫程序：在窗體上添加兩個(gè)文本框（Text1、Text2）、一個(gè)命令按鈕（Command1）和一個(gè)標(biāo)簽（Label1）。要求：點(diǎn)擊命令按鈕時(shí)，將Text1和Text2中輸入的數(shù)值相加（需驗(yàn)證輸入是否為數(shù)字），結(jié)果顯示在Label1中；若輸入非數(shù)字，彈出提示框"請輸入有效數(shù)字"。2.編寫程序：從文件D:\scores.txt中讀取若干學(xué)生的數(shù)學(xué)成績（每行一個(gè)整數(shù)），計(jì)算平均分（保留2位小數(shù)），并將結(jié)果寫入D:\result.txt（格式："平均分：XX.XX"）。答案一、單項(xiàng)選擇題1-5:AACBA6-10:BBBAA11-15:BBABC二、填空題1.9（1+3+5=9）2.Dimarr(1To10)AsInteger3.Text；MaxLength4.8（循環(huán)過程：n=1→2→4→8，此時(shí)n>5退出）5.4；5（Array默認(rèn)下標(biāo)從0開始，UBound(arr)=4，共5個(gè)元素）6.BackStyle；Alignment7.-4（Int函數(shù)取小于等于該數(shù)的最大整數(shù)）三、程序改錯(cuò)題1.錯(cuò)誤1：i=i++（VB中無++運(yùn)算符）；錯(cuò)誤2：While循環(huán)缺少EndWhile。正確代碼：DimsumAsIntegersum=0i=1Whilei<=10sum=sum+ii=i+1WendPrintsum2.錯(cuò)誤1：InputBox返回值為字符串，需轉(zhuǎn)換為數(shù)值；錯(cuò)誤2：變量c未聲明。正確代碼：PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegera=Val(InputBox("輸入第一個(gè)數(shù)"))b=Val(InputBox("輸入第二個(gè)數(shù)"))c=abMsgBox"結(jié)果："&cEndSub四、編程題1.參考代碼：PrivateSubCommand1_Click()Dimnum1AsDouble,num2AsDouble'驗(yàn)證Text1輸入IfNotIsNumeric(Text1.Text)ThenMsgBox"請輸入有效數(shù)字"Text1.SetFocusExitSubEndIf'驗(yàn)證Text2輸入IfNotIsNumeric(Text2.Text)ThenMsgBox"請輸入有效數(shù)字"Text2.SetFocusExitSubEndIf'計(jì)算并顯示結(jié)果num1=CDbl(Text1.Text)num2=CDbl(Text2.Text)Label1.Caption="結(jié)果："&(num1+num2)EndSub2.參考代碼：PrivateSubCommand1_Click()DimscoreAsInteger,totalAsInteger,countAsIntegerDimavgAsDouble'讀取文件Open"D:\scores.txt"ForInputAs1total=0count=0WhileNotEOF(1)Input1,scoretotal=total+scorecount=count+1WendClose1