2025年計算機二級VisualBasic程序設(shè)計高分沖刺專項試卷考試時間：______分鐘總分：______分姓名：______一、選擇題（每題1分，共30分）1.在VB中，要設(shè)置一個窗體的背景顏色，應(yīng)修改該窗體的哪個屬性？A.FontB.ForeColorC.BackColorD.BorderStyle2.以下哪個不是VB中合法的變量名？A.intScoreB.2ndNumberC.studentNameD.sum3.VB中用于輸出文本到立即窗口的函數(shù)是？A.PrintB.MsgBoxC.InputBoxD.Show4.若有聲明`Dimarr(4)AsInteger`，則數(shù)組arr包含元素的個數(shù)是？A.4B.5C.6D.75.在VB中，用于聲明自定義函數(shù)的保留字是？A.SubB.FunctionC.DefD.Dim6.以下哪個語句用于從字符串"HelloWorld"中提取前5個字符？A.Right("HelloWorld",5)B.Left("HelloWorld",5)C.Mid("HelloWorld",1,5)D.Len("HelloWorld")-47.在VB中，如果希望一個標簽控件在運行時不可見，應(yīng)將其哪個屬性設(shè)置為False？A.EnabledB.VisibleC.CaptionD.BackColor8.以下哪個控件通常用于顯示多行文本，用戶可以編輯其中的內(nèi)容？A.LabelB.TextBoxC.ListBoxD.ComboBox9.在VB程序中，以下哪個語句用于開啟一個名為"MyData.txt"的順序文件進行寫操作？A.Open"MyData.txt"ForOutputAs#1B.Open"MyData.txt"ForInputAs#1C.Open"MyData.txt"ForAppendAs#1D.Open"MyData.txt"ForBinaryAs#110.若要使一個定時器控件（Timer）每秒觸發(fā)一次其Timer事件，應(yīng)將其哪個屬性設(shè)置為1000？A.IntervalB.EnabledC.TimerD.Visible11.在VB中，若要實現(xiàn)當用戶在文本框中按下回車鍵時觸發(fā)某個事件，可以在該文本框的哪個事件過程中編寫代碼？A.Click事件B.DblClick事件C.KeyPress事件D.Change事件12.以下哪個控件提供了一個標準的文件對話框界面，供用戶選擇文件或目錄？A.CommonDialogB.ListBoxC.ComboBoxD.Frame13.在面向?qū)ο蟪绦蛟O(shè)計中，描述對象核心特征的是？A.變量和函數(shù)B.類和屬性C.事件和方法D.控件和窗體14.在VB中，若要判斷變量x是否為數(shù)值型數(shù)據(jù)，可以使用哪個函數(shù)？A.IsNumeric(x)B.IsNull(x)C.IsArray(x)D.IsEmpty(x)15.以下哪個循環(huán)語句適用于預(yù)先不知道循環(huán)次數(shù)的情況？A.For...NextB.Do...LoopC.While...WendD.ForEach...Next16.若有聲明`DimiAsInteger`，在進入`Fori=1To5`循環(huán)之前，變量i的值應(yīng)該是？A.0B.1C.5D.不確定17.在VB中，若要在過程中返回一個值，應(yīng)使用哪個保留字聲明該過程？A.SubB.FunctionC.PropertyD.Custom18.以下哪個運算符的優(yōu)先級最高？A.+B.*C.=D.MOD19.在VB中，要臨時隱藏一個窗體，但不結(jié)束其運行，應(yīng)設(shè)置該窗體的哪個屬性為False？A.VisibleB.EnabledC.ActiveD.MousePointer20.以下哪個不是VB提供的標準數(shù)據(jù)類型？A.IntegerB.SingleC.StringD.BooleanArray21.以下哪個方法用于將一個記錄指針移動到Recordset對象的第一個記錄？A.MoveFirstB.MoveLastC.MoveNextD.MovePrevious22.若要在一個窗體上繪制一個邊框，通常使用哪個控件來實現(xiàn)？A.TextBoxB.FrameC.LabelD.OptionButton23.在VB中，表達式`Val("123.45")+Int(123.45)`的值是？A.246.45B.246C.123.45D.247.4524.以下哪個語句用于關(guān)閉一個已打開的文件？A.Close#1B.EndFile#1C.CloseFile#1D.End#125.在VB中，使用`SelectCase`語句時，Case語句中的表達式可以使用哪些形式？(多選，請選擇你認為正確的選項對應(yīng)的字母，字母之間用逗號分隔，例如AB)A.字符串常量B.數(shù)值范圍C.一組用逗號分隔的常量D.一個計算表達式26.如果一個過程定義為`PrivateSubMySub()`，那么該過程能在哪些地方被訪問？(多選，請選擇你認為正確的選項對應(yīng)的字母，字母之間用逗號分隔)A.定義它的窗體模塊中B.定義它的標準模塊中C.該程序的任何地方D.該程序的同名子程序所在的模塊中27.在VB中，要使一個菜單項在運行時不可用，應(yīng)設(shè)置其哪個屬性為False？A.CheckedB.EnabledC.VisibleD.Caption28.以下哪個控件沒有Multiline屬性？A.TextBoxB.ListBoxC.ComboBoxD.Label29.在使用ADO連接數(shù)據(jù)庫時，用于表示數(shù)據(jù)庫表的控件通常是？A.TextBoxB.ListBoxC.DataGridView(雖然VB中不常用，但概念相關(guān))D.DataReport30.在VB中，表達式`6Mod4`的值是？A.0B.1C.2D.4二、填空題（每空1分，共10分）1.在VB中，聲明一個整型變量x的語句是________。2.要在窗體的代碼中判斷一個按鈕（名為Command1）是否被點擊，可以檢查________事件是否被觸發(fā)。3.若有數(shù)組聲明`Dimarr(2To5)AsString`，則數(shù)組元素arr(3)的下標是________。4.使用`Mid(strText,3,2)`可以從字符串strText中提取從第________個字符開始的2個字符。5.在VB中，若要實現(xiàn)兩個數(shù)相除并得到整數(shù)結(jié)果，可以使用________運算符。6.若要在標簽控件（名為Label1）中顯示文本"Hello"，應(yīng)設(shè)置其________屬性為"Hello"。7.聲明一個過程不返回值，應(yīng)使用關(guān)鍵字________來聲明該過程。8.在`SelectCase`語句中，使用________關(guān)鍵字來表示“或”的關(guān)系。9.常用的順序文件操作語句有________、______和________。10.若要使定時器控件（Timer1）開始工作，應(yīng)將其________屬性設(shè)置為True。三、程序設(shè)計題（共20分）1.編寫一個完整的VB程序（包括窗體和代碼），實現(xiàn)以下功能：*窗體上有一個標簽（Label1），用于顯示提示信息"請輸入一個整數(shù)："。*窗體上有一個文本框（TextBox1），用于輸入整數(shù)。*窗體上有一個命令按鈕（Command1），標題為"計算平方"。*當用戶在文本框中輸入一個整數(shù)并點擊"計算平方"按鈕時，程序計算該整數(shù)的平方，并將結(jié)果顯示在一個新的消息框中。如果輸入的不是整數(shù)，則消息框提示"輸入錯誤，請輸入整數(shù)"。2.編寫程序代碼部分，實現(xiàn)以下功能：假設(shè)已經(jīng)有一個窗體Form1，上面有一個文本框Text1（Multiline屬性為True，用于顯示多行文本），一個列表框List1和一個命令按鈕Command1（標題為"篩選"）。當用戶點擊"篩選"按鈕時，程序?qū)ext1文本框中所有以大寫字母"A"開頭的單詞復制到列表框List1中。單詞之間用空格分隔。提示：可以使用字符串函數(shù)Split()和Join()或循環(huán)判斷。---試卷答案一、選擇題1.C2.B3.A4.B5.B6.C7.B8.B9.A10.A11.C12.A13.C14.A15.B,C,D16.B17.B18.D19.A20.D21.A22.B23.B24.A25.A,B,C26.A,B,D27.B28.D29.D30.B二、填空題1.DimxAsInteger2.Click3.34.35.Mod6.Caption7.Sub8.Or9.Open,Write,Close10.Enabled三、程序設(shè)計題1.代碼如下：```vbPrivateSubCommand1_Click()DiminputStrAsStringDimnumAsIntegerDimresultAsIntegerinputStr=TextBox1.TextIfIsNumeric(inputStr)Thennum=Val(inputStr)result=num*numMsgBox"輸入整數(shù)的平方是:"&resultElseMsgBox"輸入錯誤，請輸入整數(shù)"EndIfEndSub```解析思路：a.在按鈕的點擊事件中獲取文本框的內(nèi)容。b.使用IsNumeric函數(shù)判斷輸入的內(nèi)容是否為數(shù)值型。若是，則使用Val函數(shù)將其轉(zhuǎn)換為數(shù)值。c.計算該數(shù)值的平方。d.使用MsgBox函數(shù)顯示結(jié)果。若輸入不是數(shù)值，則提示錯誤。2.代碼如下：```vbPrivateSubCommand1_Click()Dimwords()AsStringDimwordAsStringDimiAsInteger'從文本框獲取文本并按空格分割成單詞數(shù)組words=Split(Text1.Text,"")'清空列表框List1.Clear'循環(huán)遍歷每個單詞Fori=0ToUBound(words)word=words(i)'檢查單詞是否為空且第一個字母是否為大寫AIfLen(word)>0AndUCase(Left(word,1))="A"Then