2025年vb期末試題及答案一、單項選擇題（每題2分，共30分）1.以下合法的VB變量名是（）。A.2025ScoreB.ForLoopC.x-yD.姓名$2.設(shè)a=5，b=3，執(zhí)行語句c=a>bAndbMod2=1后，c的值是（）。A.TrueB.FalseC.1D.03.要聲明一個模塊級整型變量x，正確的語句是（）。A.DimxAsIntegerB.PublicxAsIntegerC.StaticxAsIntegerD.PrivatexAsInteger4.執(zhí)行以下循環(huán)后，變量i的值是（）。Fori=1To5Step2PrintiNextiA.5B.6C.7D.45.若要在列表框List1中添加一個項目“VB期末”，正確的語句是（）。A.List1.AddItem"VB期末"B.List1.Text="VB期末"C.List1.Items.Add"VB期末"D.List1.List="VB期末"6.以下關(guān)于數(shù)組的描述中，錯誤的是（）。A.靜態(tài)數(shù)組聲明時大小必須是常量B.動態(tài)數(shù)組使用ReDim語句重新定義大小時，原有數(shù)據(jù)會丟失（未使用Preserve關(guān)鍵字）C.二維數(shù)組的元素個數(shù)等于行數(shù)乘以列數(shù)D.數(shù)組下標(biāo)的默認(rèn)下界是17.設(shè)s="VisualBasic2025"，則Mid(s,7,5)的返回值是（）。A."Basic"B."sual"C."alBa"D."VBasi"8.要使文本框Text1不可編輯但可顯示內(nèi)容，應(yīng)設(shè)置（）屬性為True。A.LockedB.EnabledC.VisibleD.MultiLine9.以下關(guān)于過程的說法中，正確的是（）。A.子過程（Sub）可以返回多個值B.函數(shù)過程（Function）必須有返回值C.過程的參數(shù)傳遞默認(rèn)是按值傳遞（ByVal）D.過程內(nèi)部不能定義與全局變量同名的局部變量10.執(zhí)行Open"data.txt"ForOutputAs1后，對文件data.txt的操作是（）。A.讀取文件內(nèi)容B.向文件追加內(nèi)容C.覆蓋原有內(nèi)容并寫入新數(shù)據(jù)D.隨機訪問文件11.設(shè)a=3，b=5，執(zhí)行交換操作后a=5，b=3，以下能實現(xiàn)該功能的語句是（）。A.a=b:b=aB.t=a:a=b:b=tC.a=a+b:b=ab:a=abD.選項B和C都可以12.以下事件中，在窗體加載時觸發(fā)的是（）。A.ClickB.LoadC.ActivateD.Unload13.要將命令按鈕Command1的背景顏色設(shè)置為紅色，應(yīng)設(shè)置（）屬性。A.BackColorB.ForeColorC.FontColorD.BorderColor14.設(shè)數(shù)組arr(5)為0到5的整數(shù)，以下能正確遍歷數(shù)組所有元素的循環(huán)是（）。A.Fori=0To5:Printarr(i):NextiB.ForEachitemInarr:Printitem:NextitemC.選項A和B都可以D.以上都不正確15.以下關(guān)于Do循環(huán)的描述中，錯誤的是（）。A.DoWhile...Loop先判斷條件再執(zhí)行循環(huán)體B.Do...LoopWhile先執(zhí)行循環(huán)體再判斷條件C.DoUntil...Loop當(dāng)條件為False時繼續(xù)循環(huán)D.Do...LoopUntil至少執(zhí)行一次循環(huán)體二、填空題（每題2分，共20分）1.VB中，字符串常量需要用______符號括起來。2.表達式3+52^3Mod4的計算結(jié)果是______。3.若要將變量x的值限制為0到100之間（包含0和100），可使用______函數(shù)。4.在SelectCase語句中，判斷變量x是否在10到20之間（包含邊界），應(yīng)使用的表達式是______。5.靜態(tài)數(shù)組在聲明時使用______關(guān)鍵字，動態(tài)數(shù)組使用______語句重新定義大小。6.過程參數(shù)傳遞中，ByVal表示______傳遞，ByRef表示______傳遞。7.要將文本框Text1的內(nèi)容清空，可設(shè)置______屬性為空字符串。8.讀取順序文件時，使用______語句將文件中的數(shù)據(jù)讀入變量。9.設(shè)s="HelloWorld"，則Len(s)的返回值是______，InStr(s,"lo")的返回值是______。10.窗體的______事件在關(guān)閉窗體時觸發(fā)，______事件在窗體顯示前觸發(fā)。三、程序填空題（每空3分，共18分）1.以下程序用于判斷輸入的正整數(shù)是否為素數(shù)，補全代碼。```vbPrivateSubCommand1_Click()DimnAsInteger,iAsInteger,flagAsBooleann=Val(Text1.Text)flag=TrueIfn<=1Thenflag=FalseElseFori=2To______IfnModi=0Thenflag=FalseExitForEndIfNextiEndIfIfflagThenLabel1.Caption=n&"是素數(shù)"ElseLabel1.Caption=n&"不是素數(shù)"EndIfEndSub```2.以下程序?qū)崿F(xiàn)對數(shù)組a的升序冒泡排序，補全代碼。```vbPrivateSubCommand2_Click()Dima()AsInteger={5,3,8,1,6}DimiAsInteger,jAsInteger,tempAsIntegerFori=0ToUBound(a)1Forj=0To______Ifa(j)>a(j+1)Thentemp=a(j)a(j)=a(j+1)a(j+1)=tempEndIfNextjNexti'輸出排序結(jié)果（代碼略）EndSub```3.以下程序?qū)⑽谋究騼?nèi)容寫入文件并讀取顯示，補全代碼。```vbPrivateSubCommand3_Click()DimstrAsString,pathAsStringpath="C:\scores.txt"'寫入文件OpenpathFor______As1Print1,Text2.TextClose1'讀取文件OpenpathForInputAs1DoWhileNotEOF(1)LineInput1,strText3.Text=Text3.Text&str&vbCrLfLoopClose1EndSub```四、編程題（共32分）1.（10分）設(shè)計一個窗體，包含兩個文本框（Text1、Text2）、一個命令按鈕（Command1）和一個標(biāo)簽（Label1）。要求：輸入兩個整數(shù)，點擊按鈕后，在標(biāo)簽中顯示兩數(shù)的最大公約數(shù)和最小公倍數(shù)。2.（12分）編寫程序統(tǒng)計學(xué)提供績。要求：定義數(shù)組存儲10名學(xué)生的數(shù)學(xué)成績（0-100）；輸入成績（可通過輸入框或文本框）；計算平均分、優(yōu)秀率（90分及以上）；在列表框（List1）中顯示所有成績及統(tǒng)計結(jié)果。3.（10分）編寫程序?qū)崿F(xiàn)文本文件操作。要求：讀取D盤根目錄下的“students.txt”文件（每行一個學(xué)生姓名）；統(tǒng)計文件中的學(xué)生人數(shù)；將人數(shù)和所有姓名寫入“result.txt”文件（路徑自定）。答案一、單項選擇題1.B2.A3.D4.C5.A6.D7.A8.A9.B10.C11.D12.B13.A14.C15.C二、填空題1.雙引號（""）2.11（計算順序：2^3=8，58=40，40Mod4=0，3+0=3？更正：原題表達式應(yīng)為3+52^3Mod4，正確計算：2^3=8，58=40，40Mod4=0，3+0=3？可能題目有誤，正確答案應(yīng)為3？但根據(jù)常見優(yōu)先級，乘方>乘除>Mod>加減，所以58=40，40Mod4=0，3+0=3。但可能用戶原題意圖不同，此處以實際計算為準(zhǔn)，假設(shè)正確答案為3）3.IIf（或Clamp，VB中無Clamp，正確為IIf(x<0,0,IIf(x>100,100,x))）4.Case10To205.Dim；ReDim6.按值；按地址7.Text8.Input（或LineInput）9.11；4（"HelloWorld"長度11，"lo"在第4位開始）10.Unload；Load三、程序填空題1.Int(Sqr(n))（或Sqr(n)取整）2.UBound(a)i1（冒泡排序內(nèi)層循環(huán)邊界）3.Output（寫入模式）四、編程題1.參考代碼：```vbPrivateSubCommand1_Click()DimaAsInteger,bAsInteger,mAsInteger,nAsInteger,tempAsIntegera=Val(Text1.Text)b=Val(Text2.Text)m=a:n=b'求最大公約數(shù)（歐幾里得算法）DoWhilen<>0temp=mModnm=nn=tempLoop'最小公倍數(shù)=ab/最大公約數(shù)Label1.Caption="最大公約數(shù)："&m&"，最小公倍數(shù)："&(ab)/mEndSub```2.參考代碼：```vbPrivateSubCommand1_Click()Dimscores(9)AsInteger,iAsInteger,sumAsInteger,avgAsSingle,countAsIntegerList1.Clear'輸入成績（假設(shè)通過輸入框）Fori=0To9scores(i)=Val(InputBox("輸入第"&i+1&"名學(xué)提供績："))List1.AddItem"學(xué)生"&i+1&"："&scores(i)sum=sum+scores(i)Ifscores(i)>=90Thencount=count+1Nextiavg=sum/10List1.AddItem"平均分："&avgList1.AddItem"優(yōu)秀率："&Format(count/10,"0.0%")EndSub```3.參考代碼：```vbPrivateSubCommand1_Click()DimnameAsString,countAsInteger,pathInAsString,pathOutAsStringpathIn="D:\students.txt"pathOut="D:\result.txt"count=0'讀取文件OpenpathInForInputAs1DoWhileNotEOF(1)LineInput1,nameco