2025年計算機(jī)二級VB編程思路開闊試題及答案一、選擇題（每題2分，共20分）1.以下關(guān)于VB變量聲明的描述中，正確的是（）。A.用Dim聲明的變量僅在事件過程中有效B.用Static聲明的變量在過程調(diào)用結(jié)束后值會保留C.全局變量必須在標(biāo)準(zhǔn)模塊中用Public聲明，不能在窗體模塊中聲明D.變量名“2025Score”符合VB命名規(guī)則2.若文本框Text1的Multiline屬性設(shè)置為True，ScrollBars屬性設(shè)置為2（垂直滾動條），則以下說法錯誤的是（）。A.文本框可以輸入多行文本B.文本框會同時顯示水平和垂直滾動條C.文本框的Text屬性可能包含換行符（Chr(13)&Chr(10)）D.通過代碼修改Text1.Text時，需確保換行符格式正確3.執(zhí)行以下代碼后，變量a的值是（）。DimaAsIntegera=IIf(3>5,"A",IIf(7Mod3=1,100,200))A."A"B.100C.200D.編譯錯誤4.列表框List1的ListIndex屬性為-1時，表示（）。A.列表框中沒有選中任何項B.列表框的當(dāng)前選中項是第一個元素C.列表框的Items集合為空D.列表框處于不可編輯狀態(tài)5.以下關(guān)于VB文件操作的描述中，正確的是（）。A.用Open"data.txt"ForInputAs1語句打開文件時，若文件不存在則報錯B.用Write語句向文件寫入數(shù)據(jù)時，字符串會自動添加雙引號C.文件號的取值范圍是1~255，可通過FreeFile函數(shù)動態(tài)獲取可用文件號D.以上說法均正確6.要使命令按鈕Command1在按下鍵盤Enter鍵時觸發(fā)Click事件，需設(shè)置其（）屬性為True。A.DefaultB.CancelC.EnabledD.Visible7.以下代碼段的輸出結(jié)果是（）。DimsAsString,iAsIntegers="VB2025Program"Fori=1ToLen(s)Step2IfMid(s,i,1)Like"[A-Z]"Thens=s&Mid(s,i,1)EndIfNextiPrintsA.VB2025ProgramVBB.VB2025ProgramVBPC.VB2025ProgramVBPrD.VB2025ProgramVBPro8.若要將數(shù)組arr（已賦值）中的元素逆序存放，以下代碼正確的是（）。A.Fori=0ToUBound(arr)\2temp=arr(i)arr(i)=arr(UBound(arr)i)arr(UBound(arr)i)=tempNextiB.Fori=0ToUBound(arr)temp=arr(i)arr(i)=arr(UBound(arr)i)arr(UBound(arr)i)=tempNextiC.Fori=0ToUBound(arr)1Forj=i+1ToUBound(arr)temp=arr(i)arr(i)=arr(j)arr(j)=tempNextjNextiD.Fori=0ToUBound(arr)arr(i)=arr(UBound(arr)i)Nexti9.以下關(guān)于VB數(shù)據(jù)庫操作的描述中，錯誤的是（）。A.使用ADODB.Connection對象連接數(shù)據(jù)庫時，需要設(shè)置ConnectionString屬性B.執(zhí)行SQL查詢語句可用Execute方法，執(zhí)行更新語句可用Open方法C.記錄集（Recordset）的CursorType屬性設(shè)置為adOpenStatic可創(chuàng)建靜態(tài)游標(biāo)D.關(guān)閉數(shù)據(jù)庫連接時，應(yīng)先關(guān)閉記錄集，再關(guān)閉連接對象10.在VB中，以下關(guān)于事件驅(qū)動機(jī)制的描述中，錯誤的是（）。A.事件是對象可以識別的動作（如Click、Load）B.一個對象可以有多個事件過程C.事件過程的名稱格式為“對象名_事件名”D.所有對象的默認(rèn)事件都是Click事件二、填空題（每空3分，共15分）1.執(zhí)行以下代碼后，變量x的值是______。DimxAsIntegerx=1DoWhilex<=5IfxMod2=0Thenx=x+3ExitDoEndIfx=x+1Loop2.要將文本框Text1中的內(nèi)容按行讀取到數(shù)組lines中，可使用以下代碼：Dimlines()AsStringlines=Split(______,vbCrLf)3.以下代碼實現(xiàn)對數(shù)組a的升序排序（冒泡排序），請補(bǔ)全空白處：Dima()AsInteger={5,3,8,1,4}DimiAsInteger,jAsInteger,tempAsIntegerFori=0ToUBound(a)1Forj=0To______Ifa(j)>a(j+1)Thentemp=a(j)a(j)=a(j+1)a(j+1)=tempEndIfNextjNexti4.以下代碼實現(xiàn)計算1到n的累加和（n由輸入框輸入），請補(bǔ)全空白處：DimnAsInteger,sumAsIntegern=Val(InputBox("請輸入n："))sum=0Fori=1Tonsum=______NextiMsgBox"累加和為："&sum5.在VB中，若要將圖片框Picture1中的圖像保存為BMP文件，可使用______方法。三、編程題（共65分）1.（20分）設(shè)計一個VB程序，實現(xiàn)以下功能：窗體上有兩個文本框（Text1、Text2）、一個命令按鈕（Command1）和一個列表框（List1）。點擊Command1時，檢查Text1和Text2是否為空：若為空，彈出提示框“輸入不能為空”；否則，將Text1和Text2的內(nèi)容拼接（格式為“Text1內(nèi)容-Text2內(nèi)容”），添加到List1中，并清空Text1和Text2。要求：輸入檢查使用自定義函數(shù)CheckInput(str1AsString,str2AsString)AsBoolean，若都不為空返回True，否則返回False。2.（25分）編寫一個VB程序，讀取D盤根目錄下的“scores.txt”文件（每行格式為“姓名,數(shù)學(xué),英語,計算機(jī)”，如“張三,85,90,78”），完成以下功能：計算每個學(xué)生的總分（數(shù)學(xué)+英語+計算機(jī)），并將結(jié)果按“姓名,數(shù)學(xué),英語,計算機(jī),總分”格式寫入D盤根目錄下的“total.txt”文件。在窗體上用標(biāo)簽（Label1）顯示“處理完成，共處理X條記錄”（X為實際處理的記錄數(shù)）。要求：使用文件號變量，通過FreeFile函數(shù)獲取可用文件號；處理過程中若文件不存在，彈出提示框“文件不存在”。3.（20分）設(shè)計一個VB程序，實現(xiàn)數(shù)組操作功能：窗體加載時，提供一個包含20個隨機(jī)整數(shù)（范圍1~100）的數(shù)組arr。點擊命令按鈕Command1時，在文本框Text1中顯示數(shù)組中的最大值和最小值（格式：“最大值：X，最小值：Y”）。點擊命令按鈕Command2時，將數(shù)組按降序排序，并在列表框List1中顯示排序后的數(shù)組元素（每行一個元素）。答案--一、選擇題1.B2.B3.B4.A5.D6.A7.B8.A9.B10.D二、填空題1.42.Text1.Text3.UBound(a)1i4.sum+i5.SavePicture三、編程題1.參考代碼：```vbPrivateSubCommand1_Click()Dimstr1AsString,str2AsStringstr1=Text1.Textstr2=Text2.TextIfCheckInput(str1,str2)ThenList1.AddItemstr1&"-"&str2Text1.Text=""Text2.Text=""ElseMsgBox"輸入不能為空"EndIfEndSubPrivateFunctionCheckInput(str1AsString,str2AsString)AsBooleanCheckInput=(str1<>""Andstr2<>"")EndFunction```2.參考代碼：```vbPrivateSubForm_Load()DimfsAsInteger,fsWriteAsIntegerDimlineAsString,fields()AsStringDimcountAsIntegerDimtotalAsIntegerfs=FreeFileOnErrorGoToFileErrorOpen"D:\scores.txt"ForInputAsfsfsWrite=FreeFileOpen"D:\total.txt"ForOutputAsfsWritecount=0DoWhileNotEOF(fs)LineInputfs,linefields=Split(line,",")IfUBound(fields)>=3Thentotal=Val(fields(1))+Val(fields(2))+Val(fields(3))PrintfsWrite,fields(0)&","&fields(1)&","&fields(2)&","&fields(3)&","&totalcount=count+1EndIfLoopClosefsClosefsWriteLabel1.Caption="處理完成，共處理"&count&"條記錄"ExitSubFileError:MsgBox"文件不存在"EndSub```3.參考代碼：```vbDimarr(19)AsInteger'聲明全局?jǐn)?shù)組PrivateSubForm_Load()DimiAsIntegerRandomizeFori=0To19arr(i)=Int(Rnd100)+1NextiEndSubPrivateSubCommand1_Click()DimmaxAsInteger,minAsIntegermax=arr(0)min=arr(0)Fori=1To19Ifarr(i)>maxThenmax=arr(i)Ifarr(i)<minThenmin=arr(i)NextiText1.Text="最大值："&max&"，最小值："&minEndSubPrivateSubCommand2_Click()DimiAsInteger,jAsInteger,tempAsInteger'降序冒泡排序Fori=0To18Fo