【正文】 器中定義了一個菜單項，名為 Menu1。則能夠滿足上述要求的程序是 A） Private Sub Command1_Click() = Savefile = All Files|*.*|(*.Txt)|*.Txt|(*.Doc)|*.Doc = 2 = Save = 2 End Sub B） Private Sub Command1_Click() = Savefile = All Files|*.*|(*.Txt)|*.Txt|(*.Doc)|*.Doc 全國計算機(jī)等級考試二級 VB 筆試試卷匯編 第 6 頁 共 81 頁 = 1 = Save = 2 End Sub C） Private Sub Command1_Click() = Save = All Files|*.*|(*.Txt)|*.Txt|(*.Doc)|*.Doc = 2 = Savefile = 2 End Sub D） Private Sub Command1_Click() = Savefile = All Files|*.*|(*.Txt)|*.Txt|(*.Doc)|*.Doc = 1 = Save = 1 End Sub 2022 年 9 月二級 VB （ 3）以下敘述中錯誤的是 A）雙擊鼠標(biāo)可以觸發(fā) Dblclick事件 B）窗體或控件的事件的名稱可以由編程人員確定 C）移動鼠標(biāo)時，會觸發(fā) Mousemove事件 D）控件的名稱可以由編程人員設(shè)定 （ 8） 設(shè)窗體上有一個列表框控件 List1， 且其中含有若干列表項。影響 Text1 的 Tab 順序的屬性是 A) Tabstop B)Enabled C) Visible D)Tabindex (4) 在窗體上畫一個名稱為 List1 的列表框，為了對列表框中的每個項目都能進(jìn)行處理，應(yīng)使用的循環(huán)語句為 A) For I=0 To …… Next B) For I=0 To Listcount1 Next C) For I=1 To 全國計算機(jī)等級考試二級 VB 筆試試卷匯編 第 9 頁 共 81 頁 Next D) For I=1 To Listcount Next (6) 以下關(guān)于圖片框控件的說法中，錯誤的是 A) 可以通過 Print 方法在圖片框中輸出文本 B) 清空圖片框控件中圖形的方法之一是加載一個空圖形 C) 圖片框控 件可以作為容器使用 D) 用 Stretch 屬性可以自動調(diào)整圖片框中圖形的大小 (8) 以下敘述中錯誤的是 A) 下拉式菜單和彈出式菜單都用菜單編輯器建立 B) 在多窗體程序中，每個窗體都可以建立自己的菜單系統(tǒng) C) 除分隔線外，所有菜單項都能接收 Click 事件 D) 如果把一個菜單項的 Enabled 屬性設(shè)置為 False，則該菜單項不可見 (10) 以下敘述中錯誤的是 A) 一個工程可以包括多種類型的文件 B) Visual Basic 應(yīng)用程序 既能以編譯方式執(zhí)行，也能以解釋方式執(zhí)行 C) 程序運行后，在內(nèi)存中只能駐留一個窗體 D) 對于事件驅(qū)動型應(yīng)用程序，每次運行時的執(zhí)行順序可以不一樣 (13) 確定一個控件在窗體上的位置的屬性是 A) Width 和 Height B) Width 或 Height C) Top 和 Left D) Top 或 Left (14) 在窗體上畫一個名稱為 Text1 的文本框和一個名稱為 Command1 的命令按鈕，然后編寫如下事件過程 Private Sub Command1_Click() = Visual = Basic Text1 = Program End Sub A) Visual B) Basic C) Program D) 出錯 (17) 在窗體上畫一個文本框、一個標(biāo)簽和一個命令按鈕，其名稱分別為 Text Label1 和 Command1，然后編寫如下兩個事件過程： Private Sub Command1_Click() Strtext = Inputbox(請輸入 ) = Strtext End Sub 全國計算機(jī)等級考試二級 VB 筆試試卷匯編 第 10 頁 共 81 頁 Private Sub Text1_Change() = Right(Trim(), 3) End Sub Abcdef，則在標(biāo)簽中顯示的內(nèi)容是 A)空 B) Abcdef C) Abc D) Def (22) 在窗體上畫一個名稱為 Text1 的文本框，要求文本框只能接收大寫字母的輸入。然后編寫如下事件過程： Private Sub Command1_Click() = =All File|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt =2 =Vbtest =1 End Sub 對于這個程序，以下敘述中錯誤的是 A） 該對話框被設(shè)置為 “ 打開 ” 對話框 B） 在該對話框中指定的默認(rèn)文件名為空 C） 該對話框的標(biāo)題為 Vbtest D） 在該對話框中指定的默認(rèn)文件類型為文本文件 (*.Txt) (27) 在窗體上畫一個名稱為 Label標(biāo)題為 “Visual Basic考試 ” 的標(biāo)簽，兩個名稱分別為 Command1和 Command標(biāo)題分別為 “ 開始 ” 和 “ 停止 ” 的命令按鈕，然后畫一個名稱為 Timer1的計時器控件，并把其 Interval屬性設(shè)置為 500,如圖所示。以下 正確的事件過程是 A） Private Sub Bigicon_Click() = False End Sub B） Private Sub Bigicon_Click() Me. = True 全國計算機(jī)等級考試二級 VB 筆試試卷匯編 第 17 頁 共 81 頁 End Sub C） Private Sub Bigicon_Click() = True End Sub D） Private Sub Bigicon_Click() = True End Sub （ 32）假定通用對話框的名稱為 Commondialog1，命令按鈕的名稱為 Command1，則單擊命令按鈕后，能使打開的對話框的標(biāo)題為 “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) 在窗體上畫兩個標(biāo)簽，其名稱分別為 Label1和 Label2,Caption屬性分別為 “ 數(shù)值 ” 及空白；然后畫一個名稱為 Hscoll1的水平滾動條，其 Min的值為 0， Max 的值為 100。當(dāng)向文框中輸入任何字符時，命令按鈕 Command1變?yōu)榭捎谩? Private Sub Form_Load() ”北京 ” ”上海 ” ”湖北 ” End Sub Private Sub [14] () = [15] End Sub 2022 年 4 月二級 VB （ 4）為了在運行時把 D:\Pic 文件夾下的圖形文件 裝入圖片框 Picture1，所使用的語句為 【 4】 。 （ 4）在窗體上畫一個文本框、一個標(biāo)簽和一個命令按鈕，其名稱分別為 Text Label1和 Command1，然后編寫如下兩個事件過程： Private Sub Command1_Click() S$ = Inputbox(請輸入一個字符串 ) = S$ End Sub Private Sub Text1_Change() = Ucase(Mid(, 7)) End Sub 程序運行后，單擊命令按鈕，將顯示一個輸入對話框，如果在該對話框中輸入字符串 Visualbasic，則在標(biāo)簽中顯示的內(nèi)容是 【 8】 。 (4) 與數(shù)學(xué)表達(dá)式 對應(yīng)的 Visual Basic 表達(dá)式是【 6】 。 2022 年 4 月二級 VB (6)以下語句的輸出結(jié)果是 : 【 6】 Print Int(*100+)/100 四、 分支、循環(huán) 2022 年 9 月二級 VB (15) 在窗體上畫一個命令按鈕，名稱為 Command1。ABC39。以下是實現(xiàn)上述功能的程序，請?zhí)羁铡? （ 3）在窗體上畫一個標(biāo)簽（名稱為 Label1）和一個計時器（名稱為 Timer1），然后編寫如下幾個事件過程： 全國計算機(jī)等級考試二級 VB 筆試試卷匯編 第 21 頁 共 81 頁 Private Sub Form_Load() = False = 【 5】 End Sub Private Sub Form_Click() = 【 6】 End Sub Private Sub Timer1_Timer() = 【 7】 End Sub 程序運行后，單擊窗體，將在標(biāo)簽中顯示當(dāng)前時間，每隔 1秒鐘變換一次。當(dāng)雙擊列表框中的某個項目時，在標(biāo)簽 Label1 中顯示所選中的項目，如圖所示。 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()Val() Case ”*” Result=Val()*Val() Case ”/” Result=Val()/Val() End Select [5] =Result End Sub (3) 在窗體上畫一個名稱為 Command1 的命令按鈕和一個名稱 為 Text1的文本框。 End Sub “A”，然后單擊窗體，則在窗體上顯示的內(nèi)容是 A） Visual Basic B）程序設(shè)計 C） Visual Basic 程序設(shè)計 D） A 程序設(shè)計 （ 31）假定有下表所列的菜單結(jié)構(gòu)： ━━━━━━━━━━━━━━━━━━━━ 名稱 層次 Appear 1（主菜單） Bigicon 2（子菜單） Smallicon 2（子菜單） “大圖標(biāo) ”，則在該菜單項前添加一個 “214。Open D) 把 Name屬性設(shè)置為 Oamp。以下不能實現(xiàn)上述功能的事件過程是 A） Private Sub Command1_Click() = Str(Val( )*Val( )) End Sub B） Private Sub Command1_Click() = * End Sub C） Private Sub Command1_Click() = Hscroll1 * Hscroll2 End Sub D） Private Sub Command1_Click() = Hscroll1. Text * End Sub （ 28）在窗體上畫一個名稱為 Text1的文本框，并編寫如下程序： 全國計算機(jī)等級考試二級 VB 筆試試卷匯編 第 8 頁 共 81 頁 Private Sub Form_Load() Show = End Sub Private Sub Form_Mouseup(Button As Integer, Shift As Integer, X As Single, Y As Single) Print 程序設(shè)計 End Sub Private Sub Text1_Keydown(Keycode As Integer, Shift As Integer)