2025年計算機二級Visual Basic程序設計沖刺押題訓練試卷

2025年計算機二級VisualBasic程序設計沖刺押題訓練試卷考試時間：______分鐘總分：______分姓名：______一、選擇題1.在VisualBasic中，要設置一個窗體的背景顏色，應設置該窗體的哪個屬性？A.FontB.ForeColorC.BackColorD.Name2.以下哪個不是VisualBasic常用的控件？A.TextBoxB.ComboBoxC.TreeViewD.Label3.在VisualBasic中，若要使一個文本框（Text1）中的內容全部選中，可以使用該文本框的哪個方法？A.SetFocusB.ClearC.SelectD.Text=""4.下列哪個語句用于從字符串"VisualBasic"中提取子串"Basic"？A."VisualBasic"&"Basic"B."VisualBasic"+"Basic"C.Mid("VisualBasic",10,5)D.Left("VisualBasic",5)&Right("VisualBasic",4)5.在VisualBasic中，若要實現當用戶在文本框中輸入內容時觸發某個事件，應將文本框的哪個屬性設置為True？A.EnabledB.VisibleC.DefaultD.Change6.以下哪個循環語句在執行時，至少執行一次循環體？A.For...NextB.While...WendC.Do...LoopD.ForEach...Next7.在VisualBasic中，要暫時中斷正在執行的程序，可以使用哪種方法？A.EndB.StopC.ExitSubD.Reset8.以下哪個運算符的優先級最高？A.+B.*C.=D.Mod9.在VisualBasic中，聲明一個變量用于存儲整數類型的數據，應使用哪個關鍵字？A.SingleB.DoubleC.IntegerD.String10.在VisualBasic中，要向一個列表框（List1）中添加一項內容"Item1"，可以使用哪個方法？A.List1.ClearB.List1.Text="Item1"C.List1.AddItem"Item1"D.List1.Value="Item1"11.如果一個過程定義為`PrivateSubProcName()`，那么該過程能在哪個范圍內被調用？A.整個工程B.本項目中的任何窗體或模塊C.僅本窗體D.僅本模塊12.在VisualBasic中，要使一個按鈕（Command1）在程序運行時不可見，應設置該按鈕的哪個屬性為False？A.EnabledB.VisibleC.DefaultD.DefaultButton13.以下哪個不是VisualBasic支持的文件訪問模式？A.InputB.OutputC.RandomD.Sequential14.在VisualBasic中，使用`Timer`控件實現每隔1秒更新標簽（Label1）上顯示的時間，需要在`Timer1_Timer`事件中編寫什么操作？A.Label1.Caption=TimerB.Label1.Caption=Now()C.Label1.Text=TimerD.Label1.Value=Timer15.在VisualBasic中，要判斷一個變量`x`是否為空值（Empty），應使用哪個運算符？A.IsNullB.IsEmptyC.IsNothingD.Is""二、填空題1.在VisualBasic中，用于聲明全局變量的關鍵字是________。2.若要使一個窗體在程序啟動時自動獲得焦點，應設置該窗體的________屬性為True。3.在VisualBasic中，用于聲明字符型（字符串）變量的關鍵字是________。4.要在VisualBasic程序中顯示一個消息框，詢問用戶是否確定，應使用________函數。5.在使用For...Next循環時，若初值為5，終值為10，步長為1，則循環體將執行________次。6.若要在一個文本框（Text1）中顯示當前系統時間，應將Text1的Text屬性設置為________。7.在VisualBasic中，若要實現兩個窗體之間的數據傳遞，通常可以將一個窗體的某個控件的________屬性設置為另一個窗體實例的名稱。8.在編寫程序時，用于暫時注釋掉某行或某段代碼的符號是________。9.在使用隨機文件訪問方式時，打開文件需要使用________模式。10.若要使一個列表框（List1）中選中的第一項變為不選中狀態，可以使用________方法。三、程序設計題1.編寫一個程序，包含一個標簽（Label1，初始文本為"請輸入姓名："），一個文本框（Text1），一個命令按鈕（Command1，標題為"確定"）。程序運行后，當用戶在文本框中輸入姓名并點擊"確定"按鈕時，若文本框不為空，則在標簽（Label1）下方顯示一個新標簽（Label2），其文本內容為"您好，"加上輸入的姓名；若文本框為空，則顯示一個消息框提示"請輸入姓名！"。2.編寫一個程序，包含一個標簽（Label1，初始文本為"0123456789"），一個命令按鈕（Command1，標題為"反轉"）。程序運行后，點擊"反轉"按鈕，將標簽（Label1）中的數字序列順序反轉，顯示為"9876543210"。3.編寫一個程序，實現簡單的計算器功能。界面包含一個文本框（Text1，用于顯示結果，初始為"0"），四個數字按鈕（Command1,Command2,Command3,Command4，分別代表數字1,2,3,4），一個加號按鈕（Command5），一個等號按鈕（Command6）。程序邏輯要求：用戶點擊數字按鈕時，將其值追加到Text1的當前內容后；點擊加號按鈕時，將當前內容（作為被加數）和加號標記保存下來，并將Text1清空；點擊等號按鈕時，將Text1當前的內容（作為加數）與之前保存的被加數和加號標記進行計算，將結果顯示在Text1中。注意：只實現加法，且結果只顯示整數部分。試卷答案一、選擇題1.C解析：BackColor屬性用于設置窗體的背景顏色。2.C解析：TreeView是WindowsForms控件，而非標準VisualBasic控件。3.C解析：Select方法用于選擇文本框中的內容。4.C解析：Mid函數從指定位置開始提取指定長度的子串。5.D解析：Change事件在控件內容發生變化時觸發。6.C解析：Do...Loop循環至少執行一次，While...Wend至少執行零次。7.B解析：Stop方法用于立即停止程序的執行。8.D解析：Mod（取模）運算符的優先級最高。9.C解析：Integer關鍵字用于聲明整數類型變量。10.C解析：AddItem方法用于向列表框添加項目。11.C解析：Private表示私有過程，只能在定義它的模塊內部調用。12.B解析：Visible屬性控制控件是否可見。13.A解析：VisualBasic文件訪問模式包括Output,Append,Random,Binary。14.B解析：Now函數返回當前系統日期和時間。15.C解析：IsNothing用于判斷對象是否為Nothing（空）。二、填空題1.Global解析：Global關鍵字用于聲明全局（模塊級）變量。2.AutoFocus解析：AutoFocus屬性（盡管在某些版本中可能叫AutoActivate或通過代碼實現）用于設置窗體是否自動獲得焦點。（注：標準VB6中無AutoFocus，通常通過代碼SetFocus調用或在窗體Load中設置首個控件焦點。此處按模擬題可能出現的假設性屬性填寫。）3.String解析：String關鍵字用于聲明字符串變量。4.MsgBox解析：MsgBox函數用于顯示消息框。5.6解析：循環變量從5到10，共6個整數。6.Now()解析：Now函數返回當前日期和時間，賦給Text屬性即可顯示。7.Control解析：通常通過將一個控件的Control屬性設置為另一個窗體實例的名稱來引用該窗體上的控件。8.'解析：'符號用于單行注釋。9.Random解析：Random模式用于打開文件進行隨機訪問。10.ClearSelected解析：ClearSelected方法用于清除列表框中所有選中的項。（注：標準VB6列表框無此方法，通常用Clear清除所有項，清除第一項需結合ListIndex。此處按模擬題可能出現的假設性方法填寫。）三、程序設計題1.代碼示例（使用VB6語法）：```vbPrivateSubCommand1_Click()IfText1.Text<>""ThenDimLabel2AsControlSetLabel2=Forms!Form1.Controls.Add("VB.Label","Label2",False)Label2.Caption="您好，"&Text1.TextLabel2.Left=Label1.LeftLabel2.Top=Label1.Top+Label1.Height+100ElseMsgBox"請輸入姓名！"EndIfEndSub```2.代碼示例（使用VB6語法）：```vbPrivateSubCommand1_Click()DimsAsStrings=Label1.CaptionDimarr()AsStringarr=Split(s,"")ReDimPreservearr(UBound(arr)-1)DimiAsIntegerFori=UBound(arr)To0Step-1s=s&arr(i)&""NextiLabel1.Caption=Left(s,Len(s)-1)EndSub```3.代碼示例（使用VB6語法）：```vbDimlastOpAsStringDimfirstNumAsIntegerPrivateSubCommand1_Click()Text1.Text="1"lastOp=""EndSub'...為Command2,Command3,Command4添加類似的事件