【文章內(nèi)容簡介】 在多重窗體程序中，各窗體的菜單是彼此獨立的 C）在多重窗體程序中，可以根據(jù)需要指定啟動窗體 D） 在 多重窗體程序中，需要單獨保存每個窗體 (11) 以下敘述中錯誤的是 A）事件過程是響應特定事件的一段程序 B）不同的對象可以具有相同名稱的方法 C）對象的方法是執(zhí)行指定操作的過程 D）對象事件的名稱可以由編程者指定 (13) 當一個復選框被選中時，它的 Value屬性的值是 A) 3 B) 2 C) 1 D) 0 (18) 以下敘述中錯誤的是 A) 在 Keypress事件過程中不能識別鍵盤的按下與釋放 B) 在 Keypress 事件過程中不能識別回車鍵 C) 在 Keydown和 Keyup事件過程中，將鍵盤輸入的 A和 A視作相同的字母 D) 在 Keydown和 Keyup事件過程中，從大鍵盤上輸入的 1和從右側小鍵盤上輸入的 1被視作不同的字符 (20)在 窗體上畫一個名稱為 Commanddialog1的通用對話框，一個名稱為 Command1的命令按鈕。然后編寫如下事件過程： Private Sub Command1_Click() = =All File|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt =2 =Vbtest =1 End Sub 對于這個程序，以下敘述中錯誤的是 A） 該對話框被設置為 “ 打開 ” 對話框 B） 在該對話框中指定的默認文件名為空 C） 該對話框的標題為 Vbtest D） 在該對話框中指定的默認文件類型為文本文件 (*.Txt) (27) 在窗體上畫一個名稱為 Label標題為 “Visual Basic考試 ” 的標簽，兩個名稱分別為 Command1和 Command標題分別為 “ 開始 ” 和 “ 停止 ” 的命令按鈕，然后畫一個名稱為 Timer1的計時器控件，并把其 Interval屬性設置為 500,如 圖所示。 編寫如下程序： 全國計算機等級考試二級 VB 筆試試卷匯編 第 13 頁 共 81 頁 Private Sub Form_Load() =False End Sub Private Sub Command1_Click() =True End Sub Private Sub Timer1_Timer() If Width Then = + 20 Else =0 End If End Sub 程序運行后，單擊 “ 開始 ” 按鈕，標簽在窗體中移動。對于這個程序，以下敘述中錯誤的是 A) 標簽的移動方向為自右向左 B）單擊 “ 停止 ” 按鈕后再單擊 “ 開始 ” 按鈕，標簽從停止的位置繼續(xù)移動 C) 當標簽全部移出窗體后，將從窗體的另一端出現(xiàn)并重新移動 D）標簽按指定的時間時隔移動 2022 年 4 月二級 VB （ 11）在窗體（名稱為 Form1）上畫一個名稱為 Text1 的文本框和一個名 稱為 Command1 的命令按鈕，然后編寫一個事件過程。程序運行以后，如果在文本框中輸入一個字符，則把命令按鈕的標題設置為“計算機等級考試”。以下能實現(xiàn)上述操作的事件過程是： A)Private Sub Text1_Change() =”計算機等級考試 ” End Sub B) Private Sub Command1_Click() Caption=”計算機等級考試 ” End Sub C) Private Sub Form1_Click() =”計算機等級考試 ” 全國計算機等級考試二級 VB 筆試試卷匯編 第 14 頁 共 81 頁 End Sub D) Private Sub Command1_Click() =”計算機等級考試 ” End Sub (16)為了使命令按鈕 (名稱為 Command1)右移 200，應使用的語句是 A) 200 B) 200 C) = +200 D) = （ 18）在 窗體上畫一個文本框和一個計時器控件，名稱分別為 Text1 和 Timer1,在屬性窗口中把計時器的Interval 屬性設置為 1000， Enabled 屬性設置為 False,程序運行后，如果單擊命令按鈕，則每隔一秒鐘在文本框中顯示一次當前的時間。以下是實現(xiàn)上述操作的程序： Private Sub Command1_Click() End Sub Private Sub Timer1_Timer() = Time End Sub 在 ______處應填入的 內(nèi)容是 A)Enabled=True B)Enabled=False C)Visible=True D)Visible=False (19)假定在圖片框 Picture1 中裝入了一個圖形，為了清除該圖形（不刪除圖片框），應采用的正確方法是： A)選擇圖片框，然后按 Del 鍵 B)執(zhí)行語句 =Loadpicture(“”) C)執(zhí)行語句 =”” D)選擇圖片框，在屬性窗口中選擇 Picture 屬性，然后按回車鍵 （ 20）在窗體上畫一個 List1 的列表框，一個名稱為 Label1 的標簽，列表框中顯示若干個項目，當單擊列表框中的某個項目時，在標簽中顯示被選中的項目的名稱，下列能正確實現(xiàn)上述操作的程序是 A) Private Sub List1_Click() = End Sub B) Private Sub List1_Click() = End Sub C) Private Sub List1_Click() = End Sub 全國計算機等級考試二級 VB 筆試試卷匯編 第 15 頁 共 81 頁 D) Private Sub List1_Click() = End Sub （ 24）在 Visual Basic 工程中，可以作為啟動對象的程序是 A)任何窗體或標準模塊 B)任何窗體或過程 C)Sub Main 過程或其他任何模塊 D)Sub Main 過程或任何窗體 (25)假定建立了一個名為 Command1 的命令按鈕數(shù)組，則以下說法中錯誤的是 A)數(shù)組中每個命令按鈕的名稱 (名稱屬性 )均為 Command1 B)數(shù) 組中每個命令按鈕的標題 (Caption 屬性 )都一樣 C)數(shù)組中所有命令按鈕可以使用同一個事件過程 D)用名稱 Command1(下標 )可以訪問數(shù)組中的每個命令按鈕 (26)把窗體的 Keypreview 屬性設置為 True，然后編寫如下事件過程 : Private Sub Form_Keypress(Keyascii As Integer) Dim Ch As String Ch = Chr(Keyascii) Keyascii = Asc(Ucase(Ch)) Print Chr(Keyascii + 2) End Sub 程序運行后 ,按鍵盤上的 ”A”鍵 ,則在窗體上顯示的內(nèi)容是 A)A B)B C)C D)D 2022 年 9 月二級 VB （ 19）在窗體上畫一個列表框和一個命令按鈕，其名稱分別為 List1 和 Command1，然后編寫如下事件過程： Private Sub Form_Load() Item 1 Item 2 Item 3 End Sub Private Sub Command1_Click() () = AAAA End Sub A）把字符串 “AAAA”添加到列表框中，但位置不能確定 B）把字符串 “AAAA”添加到列表框的最后（即 “Item 3”的后面） C）把列表框中原有的最后一項改為 “AAAA” 全國計算機等級考試二級 VB 筆試試卷匯編 第 16 頁 共 81 頁 D）把字符串 “AAAA”插入到列表框的最前面（即 “Item 1”的前面） （ 29）以下關于 Keypress 事件過 程中參數(shù) Keyascii 的敘述中正確的是 A） Keyascii 參數(shù)是所按鍵的 ASCII 碼 B） Keyascii 參數(shù)的數(shù)據(jù)類型為字符串 C） Keyascii 參數(shù)可以省略 D） Keyascii 參數(shù)是所按鍵上標注的字符 （ 30）設窗體上有一個名為 Text1 的文本框，并編寫如下程序： Private Sub Form_Load() Show = End Sub Private Sub Form_Mouseup(Button As Integer, _ Shift As Integer, X As Single, Y As Single) Print 程序設計 End Sub Private Sub Text1_Keydown(Keycode As Integer, Shift As Integer) Print Visual Basic。 End Sub “A”，然后單擊窗體，則在窗體上顯示的內(nèi)容是 A） Visual Basic B）程序設計 C） Visual Basic 程序設計 D） A 程序設計 （ 31）假定有下表所列的菜單結構： ━━━━━━━━━━━━━━━━━━━━ 名稱 層次 Appear 1（主菜單） Bigicon 2（子菜單） Smallicon 2（子菜單） “大圖標 ”，則在該菜單項前添加一個 “214?！薄Ｒ韵抡_的事件過程是 A） Private Sub Bigicon_Click() = False End Sub B） Private Sub Bigicon_Click() Me. = True 全國計算機等級考試二級 VB 筆試試卷匯編 第 17 頁 共 81 頁 End Sub C） Private Sub Bigicon_Click() = True End Sub D） Private Sub Bigicon_Click() = True End Sub （ 32）假定通用對話框的名稱為 Commondialog1，命令按鈕的名稱為 Command1，則單擊命令按鈕后，能使打開的對話框的標題為 “New Title”的事件過程是 A） Private Sub Command1_Click() = New Title End Sub B） Private Sub Command1_Click() = New Title End Sub C） Private Sub Command1_Click() = New Title End Sub D） Private Sub Command1_Click() = New Title End Sub 填空題 2022 年 9 月二級 VB (1) 在窗體上畫兩個標簽，其名稱分別為 Label1和 Label2,Caption屬性分別為 “ 數(shù)值 ” 及空白；然后畫一個名稱為 Hscoll1的水平滾動條，其 Min的值為 0， Max 的值為 100。程序運行后，如果單擊滾動條兩端的箭頭，則在標簽 Lable2 中顯示滾動條的值 ，如圖所示。請在 [1] 和 [2] 處填入適當?shù)膬?nèi)容，將程序補充完整。 全國計算機等級考試二級 VB 筆試試卷匯編 第 18 頁 共 81 頁 Private Sub Hscroll1_ [1] () =Hscroll1. [2] End Sub (2) 在窗體上畫一個名稱為 Command標題為 “ 計算 ” 的命令按鈕；畫兩個文 本框，名稱分別為 Text1和Text2；然后畫 4個標簽，名稱分別為 Label Label Label3和 Label4，標題分別為 “ 操作數(shù) 1” 、“ 操作數(shù) 2” 、 “ 運算結果 ” 和空白；再建立一個含有 4個單選按紐的控件數(shù)組，名稱為 Option1，標題分別為 “+” 、 “ ” 、 “*” 和 “/” 。程序運行后，在 Text Text2中輸入兩個數(shù)值，選中一個單選按鈕后單擊命令按鈕，相應的計算結果顯示在 Label4，程序運行情況如圖所示。請在 [3] 、 [4] 和 [5] 處填入適當?shù)膬?nèi)容，將程序補充完整。 Private Sub Command1_Click() For I=0 To 3 If [3] =True Then Opt=Option1(I).Caption End If Next Select Case [4] Case ”+” Result=Val()+Val() Case ” ” Result=Val