2025年VB語言應用試題及答案一、單項選擇題（每小題2分，共20分）1.以下關于VB變量聲明的描述中，正確的是（）。A.使用Dim聲明的變量默認作用域為模塊級B.在過程內部用Static聲明的變量僅在該過程調用期間保留值C.全局變量必須在標準模塊的聲明部分用Public聲明D.變體類型（Variant）變量不能存儲日期型數(shù)據(jù)2.執(zhí)行以下代碼后，變量a的值是（）。```vbDimaAsIntegera=123Mod73+5\2```A.4B.5C.6D.73.若要求循環(huán)體至少執(zhí)行一次，應使用的循環(huán)結構是（）。A.For...NextB.DoWhile...LoopC.Do...LoopWhileD.While...Wend4.定義數(shù)組`Dimarr(3,2To5)AsInteger`，則該數(shù)組的元素個數(shù)為（）。A.12B.16C.20D.245.以下關于過程的描述中，錯誤的是（）。A.函數(shù)過程（Function）可以返回多個值B.子過程（Sub）不能通過參數(shù)返回值C.過程的參數(shù)傳遞方式包括按值傳遞（ByVal）和按地址傳遞（ByRef）D.遞歸過程需要設置終止條件以避免棧溢出6.要將文本文件D:\data.txt以輸入模式打開，正確的語句是（）。A.Open"D:\data.txt"ForInputAs1B.Open"D:\data.txt"ForOutputAs1C.Open"D:\data.txt"ForAppendAs1D.Open"D:\data.txt"ForRandomAs17.執(zhí)行以下代碼后，立即窗口輸出的結果是（）。```vbDimxAsInteger,yAsIntegerx=10:y=20CallSwap(x,y)Debug.Printx&","&ySubSwap(aAsInteger,bAsInteger)DimtempAsIntegertemp=a:a=b:b=tempEndSub```A.10,20B.20,10C.0,0D.運行時錯誤8.在VB中連接Access數(shù)據(jù)庫時，若使用ADO對象，正確的連接字符串是（）。A."Provider=SQLOLEDB;DataSource=test.accdb"B."Provider=Microsoft.ACE.OLEDB.12.0;DataSource=test.accdb"C."Driver={MicrosoftAccessDriver(.mdb)};DBQ=test.accdb"D."Server=test.accdb;Database=test;Trusted_Connection=Yes"9.以下關于菜單設計的描述中，正確的是（）。A.菜單控件的Visible屬性為False時，菜單會被禁用但仍顯示B.可以通過設置菜單控件的Checked屬性添加復選標記C.彈出式菜單只能通過MenuEdit控件創(chuàng)建D.菜單的Name屬性用于設置顯示的文本內容10.執(zhí)行以下代碼后，變量s的值是（）。```vbDimsAsString,iAsIntegers="VBProgramming"Fori=1ToLen(s)Step2s=s&Mid(s,i,1)Nexti```A."VBProgrammingVBPrgamn"B."VBProgrammingVPrormn"C."VBProgrammingVBPrormn"D."VBProgrammingVPrgamn"二、填空題（每空2分，共20分）1.若要聲明一個枚舉類型`ColorType`，包含Red、Green、Blue三個成員，聲明語句為：__________。2.執(zhí)行`MsgBox"歡迎使用VB！",vbOKCancel+vbInformation,"提示"`后，消息框的按鈕組合是__________。3.讀取順序文件時，若要逐行讀取數(shù)據(jù)，應使用__________語句。4.若要將動態(tài)數(shù)組`arr`的大小重新定義為5個元素且保留原有數(shù)據(jù)，應使用__________語句。5.在VB中，定時器（Timer）控件的__________屬性用于設置觸發(fā)事件的時間間隔（單位：毫秒）。6.數(shù)據(jù)庫查詢中，使用參數(shù)化SQL語句可以防止__________攻擊。7.當文本框（TextBox）的__________屬性設置為True時，輸入的文本會顯示為密碼字符（如）。8.若要在圖片框（PictureBox）中顯示圖片文件D:\logo.jpg，應設置其__________屬性為該文件路徑。9.事件處理過程的一般格式為：__________事件名(參數(shù)列表)。10.執(zhí)行`a="123":b=456:c=a+b`后，變量c的值為__________（填寫數(shù)據(jù)類型及值）。三、程序改錯題（共20分，每處錯誤4分）以下代碼的功能是從文本文件D:\scores.txt中讀取學提供績（每行一個整數(shù)），計算平均分并輸出到立即窗口。請找出并修正其中的5處錯誤。```vbPrivateSubCommand1_Click()DimscoreAsInteger,totalAsInteger,countAsIntegerDimavgAsSingleOpen"D:\scores.txt"ForOutputAs1'錯誤1total=0:count=0DoUntilEOF(1)Input1,score'錯誤2total=total+scorecount=count+1LoopClose1Ifcount=0ThenDebug.Print"無數(shù)據(jù)"Elseavg=total/countDebug.Print"平均分："&avgEndIfEndSub```四、編程題（共40分）1.（15分）設計一個VB程序，實現(xiàn)以下功能：在文本框Text1中輸入一個正整數(shù)n（n≤100），點擊命令按鈕Command1后，在列表框List1中輸出1到n之間所有能被3整除但不能被5整除的數(shù)。要求：輸入時進行有效性檢查（非數(shù)字、n>100時提示錯誤）；使用For循環(huán)結構實現(xiàn)；結果按每行5個數(shù)的格式顯示。2.（25分）設計一個學生信息管理系統(tǒng)的VB模塊，要求：連接Access數(shù)據(jù)庫（數(shù)據(jù)庫路徑：D:\student.accdb，表名：Students，字段：學號（文本型）、姓名（文本型）、成績（數(shù)值型））；實現(xiàn)“查詢”功能：在文本框Text2中輸入學號，點擊Command2后，在標簽Label1中顯示對應學生的姓名和成績（若不存在則提示“無此學生”）；實現(xiàn)“修改”功能：在文本框Text3（姓名）、Text4（成績）中輸入新信息，點擊Command3后，更新對應學號學生的信息（要求使用參數(shù)化查詢，處理可能的異常）；使用ADO對象實現(xiàn)數(shù)據(jù)庫操作。答案一、單項選擇題1.C2.B3.C4.A5.B6.A7.B8.B9.B10.D二、填空題1.`EnumColorType:Red:Green:Blue:EndEnum`2.確定（OK）和取消（Cancel）3.LineInput4.ReDimPreservearr(4)5.Interval6.SQL注入7.PasswordChar8.Picture9.對象名_10.變體類型（Variant），值為"123456"三、程序改錯題錯誤1：文件打開模式錯誤，應使用Input模式讀取文件。修正：`Open"D:\scores.txt"ForInputAs1`錯誤2：未使用FreeFile獲取可用文件號，可能導致文件號沖突。修正：`DimfileNoAsInteger:fileNo=FreeFile:Open"D:\scores.txt"ForInputAsfileNo`（后續(xù)EOF、Input、Close語句中的文件號均改為fileNo）錯誤3：Do循環(huán)的終止條件錯誤，EOF函數(shù)在文件指針到達末尾時返回True，應使用`DoWhileNotEOF(fileNo)`。修正：`DoWhileNotEOF(fileNo)`錯誤4：變量count未初始化（雖然代碼中已賦值0，但實際編程中需注意作用域）。（注：原題中count初始化為0，此處可能為冗余錯誤，實際錯誤應為文件號未使用FreeFile）錯誤5：文件關閉語句未使用正確的文件號（若修正了錯誤2）。修正：`ClosefileNo`四、編程題1.參考代碼：```vbPrivateSubCommand1_Click()DimnAsInteger,iAsInteger,cntAsIntegerList1.Clear'清空列表框'有效性檢查IfNotIsNumeric(Text1.Text)ThenMsgBox"請輸入有效數(shù)字！",vbExclamationText1.SetFocusExitSubEndIfn=Val(Text1.Text)Ifn<=0Orn>100ThenMsgBox"n應在1到100之間！",vbExclamationText1.SetFocusExitSubEndIf'遍歷并輸出符合條件的數(shù)cnt=0Fori=1TonIfiMod3=0AndiMod5<>0Thencnt=cnt+1List1.AddItemi&IIf(cntMod5=0,vbCrLf,"")'每行5個數(shù)EndIfNextiEndSub```2.參考代碼（需在工程中引用MicrosoftActiveXDataObjects庫）：```vbDimconnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetPrivateSubForm_Load()'初始化數(shù)據(jù)庫連接conn.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;DataSource=D:\student.accdb;PersistSecurityInfo=False"conn.OpenEndSubPrivateSubCommand2_Click()'查詢功能DimstunoAsStringstuno=Text2.TextIfstuno=""ThenMsgBox"請輸入學號！",vbExclamationExitSubEndIf'執(zhí)行查詢rs.Open"SELECT姓名,成績FROMStudentsWHERE學號='"&stuno&"'",conn,adOpenStatic,adLockReadOnlyIfrs.EOFThenLabel1.Caption="無此學生"ElseLabel1.Caption="姓名："&rs("姓名")&"，成績："&rs("成績")EndIfrs.CloseEndSubPrivateSubCommand3_Click()'修改功能DimstunoAsString,snameAsString,scoreAsDoublestuno=Text2.Text'假設學號在Text2中輸入sname=Text3.TextIfNotIsNumeric(Text4.Text)ThenMsgBox"成績應為數(shù)字！",vbExclamationExitSubEndIfscore=Val(Text4.Text)'參數(shù)化查詢防止SQL注入DimcmdAsNewADODB.Commandcmd.ActiveConnection=conncmd.Com