2025年計算機二級VisualBasic程序設(shè)計專項訓(xùn)練真題沖刺試卷考試時間：______分鐘總分：______分姓名：______一、選擇題（每小題2分，共40分。請將正確選項的字母填入題后的括號內(nèi)。）1.在VisualBasic中，要改變控件的名稱，應(yīng)該設(shè)置該控件的（）屬性。A.NameB.CaptionC.FontD.Visible2.以下哪個語句在VisualBasic中用于聲明一個整數(shù)變量？A.DimiAsIntegerB.iAsIntegerC.IntegeriD.BothAandB3.在VisualBasic中，`iMod2=0`這個表達式用于判斷變量i是否為（）。A.正數(shù)B.負數(shù)C.偶數(shù)D.奇數(shù)4.以下哪個循環(huán)語句是先執(zhí)行循環(huán)體，再進行條件判斷？A.For...NextB.While...WendC.Do...LoopD.Alloftheabove5.在VisualBasic中，`MsgBox("Hello",vbInformation,"Greeting")`這個語句將彈出一個消息框，其標(biāo)題欄顯示的是（）。A."Hello"B."Greeting"C."Information"D.""6.以下哪個控件通常用于顯示多行文本？A.TextBoxB.LabelC.ListBoxD.ComboBox7.在VisualBasic中，`Array`函數(shù)用于創(chuàng)建（）。A.字符串?dāng)?shù)組B.數(shù)值數(shù)組C.字典D.集合8.以下哪個語句在VisualBasic中用于退出當(dāng)前過程？A.ExitSubB.EndSubC.ExitFunctionD.BothAandC9.在VisualBasic中，`Type`關(guān)鍵字用于聲明（）。A.數(shù)組B.結(jié)構(gòu)體C.類D.控件10.以下哪個屬性用于設(shè)置控件的字體？A.FontB.ForeColorC.BackColorD.Picture11.在VisualBasic中，`InputBox`函數(shù)用于（）。A.彈出消息框B.彈出輸入框C.彈出警告框D.彈出對話框12.以下哪個語句在VisualBasic中用于打開一個文件？A.OpenB.CloseC.ReadD.Write13.在VisualBasic中，`With`語句用于（）。A.循環(huán)處理多個控件B.簡化對對象的多次調(diào)用C.聲明變量D.定義函數(shù)14.以下哪個控件通常用于顯示一個目錄列表？A.TextBoxB.ListBoxC.ComboBoxD.DirListBox15.在VisualBasic中，`MsgBox`函數(shù)返回值的類型是（）。A.字符串B.數(shù)值C.布爾值D.對象16.以下哪個語句在VisualBasic中用于選擇一個分支執(zhí)行？A.If...Then...ElseB.For...NextC.While...WendD.Do...Loop17.在VisualBasic中，`Len`函數(shù)用于返回（）的長度。A.字符串B.數(shù)值C.布爾值D.對象18.以下哪個屬性用于設(shè)置控件的背景顏色？A.FontB.ForeColorC.BackColorD.Picture19.在VisualBasic中，`Mod`運算符用于計算（）。A.兩個數(shù)值的商B.兩個數(shù)值的余數(shù)C.兩個數(shù)值的和D.兩個數(shù)值的差20.以下哪個方法用于在列表框中添加一項？A.AddItemB.RemoveItemC.ClearD.Item二、填空題（每空2分，共20分。請將答案填入題后的橫線上。）1.在VisualBasic中，默認的窗體模塊的名稱是________。2.語句`x=x+1`可以寫成________語句。3.控件的`Caption`屬性用于設(shè)置________。4.在VisualBasic中，________是一種數(shù)據(jù)類型，用于存儲邏輯值（True或False）。5.語句`Ifx>0Theny=1Elsey=-1`可以用________語句來簡化。6.控件的`Visible`屬性用于設(shè)置控件是否________。7.在VisualBasic中，`Not`是一個________運算符，用于對布爾值取反。8.語句`Fori=1To10Step2`將使變量i從1開始，每次增加________，循環(huán)________次。9.控件的`Name`屬性用于設(shè)置控件的________。10.在VisualBasic中，`Dima(1To10)AsInteger`聲明了一個有________個元素的整數(shù)數(shù)組。三、程序閱讀理解題（每小題10分，共20分。請閱讀下列程序，并回答問題。）1.閱讀以下程序段：```vbDimiAsIntegerFori=1To5Printi*2Nexti```該程序段運行后，在窗體上輸出的結(jié)果是________。2.閱讀以下程序段：```vbDimsAsStrings="VisualBasic"IfInStr(s,"Basic")>0ThenPrint"Found"ElsePrint"NotFound"EndIf```該程序段運行后，輸出結(jié)果是________。解釋原因。四、程序設(shè)計題（每小題25分，共50分。請根據(jù)題目要求編寫程序代碼。）1.編寫一個程序，在一個文本框（Text1）中輸入任意文本，當(dāng)用戶點擊一個按鈕（Command1）時，將文本框中的所有小寫字母轉(zhuǎn)換為大寫字母，并將結(jié)果顯示在一個標(biāo)簽（Label1）中。2.編寫一個程序，創(chuàng)建一個列表框（ListBox1），并使用循環(huán)語句向列表框中添加1到100之間所有能被3整除的整數(shù)。用戶選擇列表框中的一項后，在另一個標(biāo)簽（Label1）中顯示該項的平方值。---試卷結(jié)束---試卷答案一、選擇題1.A解析：Name屬性用于設(shè)置控件的名稱。2.A解析：DimiAsInteger是聲明整數(shù)變量的標(biāo)準語法。3.C解析：iMod2=0判斷i除以2的余數(shù)是否為0，即為偶數(shù)。4.C解析：Do...Loop循環(huán)先執(zhí)行循環(huán)體，然后判斷條件是否成立。5.B解析：第三個參數(shù)"Greeting"是MsgBox函數(shù)的標(biāo)題。6.C解析：ListBox控件用于顯示多行文本列表。7.B解析：Array函數(shù)用于創(chuàng)建數(shù)值數(shù)組。8.D解析：ExitSub和ExitFunction都用于退出當(dāng)前過程。9.B解析：Type關(guān)鍵字用于聲明結(jié)構(gòu)體。10.A解析：Font屬性用于設(shè)置控件的字體。11.B解析：InputBox函數(shù)用于彈出一個輸入框。12.A解析：Open語句用于打開一個文件進行操作。13.B解析：With語句用于簡化對同一個對象的多次調(diào)用。14.D解析：DirListBox控件用于顯示目錄列表。15.B解析：MsgBox函數(shù)返回一個數(shù)值，表示用戶點擊的按鈕。16.A解析：If...Then...Else語句用于根據(jù)條件選擇分支執(zhí)行。17.A解析：Len函數(shù)返回字符串的長度。18.C解析：BackColor屬性用于設(shè)置控件的背景顏色。19.B解析：Mod運算符返回兩個數(shù)值相除的余數(shù)。20.A解析：AddItem方法用于在列表框中添加一項。二、填空題1.Form1解析：默認的窗體模塊名稱通常是Form1。2.Incx解析：Incx是x=x+1的簡寫形式。3.控件的標(biāo)題解析：Caption屬性用于設(shè)置控件的標(biāo)題，即顯示的文字。4.Boolean解析：Boolean是用于存儲邏輯值（True或False）的數(shù)據(jù)類型。5.SelectCasex解析：SelectCase語句可以根據(jù)x的值選擇不同的分支執(zhí)行，比If...Then...Else更簡化。6.可見解析：Visible屬性用于設(shè)置控件是否在界面上可見。7.邏輯非解析：Not是一個邏輯非運算符，用于對布爾值取反。8.2，5解析：Step2表示每次增加2，從1到10共9個數(shù)，但包括1和10，所以循環(huán)5次。9.標(biāo)識符解析：Name屬性用于設(shè)置控件的標(biāo)識符，即程序中使用的名稱。10.10解析：Dima(1To10)聲明了一個下標(biāo)從1到10的數(shù)組，共有10個元素。三、程序閱讀理解題1.246810解析：For循環(huán)從1開始，每次增加2，循環(huán)5次，輸出1*2,2*2,3*2,4*2,5*2的結(jié)果。2.Found解析：InStr函數(shù)在字符串s中查找"Basic"，找到其位置（大于0），所以輸出"Found"。四、程序設(shè)計題1.```vbPrivateSubCommand1_Click()Text1.Text=UCase(Text1.Text)Label1.Caption=Text1.TextEndSub```解析：Command1點擊事件中，將Text1中的文本轉(zhuǎn)換為大寫并賦值給Text1（因為UCase是大小寫轉(zhuǎn)換函數(shù)，賦值后文本框內(nèi)容更新），然后將轉(zhuǎn)換后的文本賦值給Label1的Caption屬性顯示出來。2.```vbPrivateSubForm_Load()DimiAsIntegerFori=1To100IfiMod3=0ThenListBox1.AddItemiEndIfNextiEndSubPrivateSubListBox1_Click()DimselectedAsI