【正文】 As String*10 Telnum As Integer Telnum As Integer End Type End Telbook C） Type Telbook D） Typedef Telbook Name String*10 Name String*10 Telnum Integer Telnum Integer End Type Telbook End Type （ 7）以下聲明語句中錯誤的是 A） Const Var1=123 B） Dim Var2 = 39。 (5) 將 C 盤根目錄下的圖形文件 裝入圖片框 Picture1 的語句是【 7】 。 （ 5）計時器控件能有規(guī)律的以一定時間間隔觸發(fā) 【 5】 事件，并執(zhí)行該事件過程中的程序代碼。程序運行后，如果單擊滾動條兩端的箭頭，則在標簽 Lable2 中顯示滾動條的值 ，如圖所示。以下能實現(xiàn)該操作的事件過程是 A) Private Sub Text1_Keypress(Keyascii As Integer) If Keyascii 65 Or Keyascii 90 Then Msgbox 請輸入大寫字母 Keyascii = 0 End If End Sub B) Private Sub Text1_Keydown(Keycode As Integer, Shift As Integer) If Keycode 65 Or Keycode 90 Then Msgbox 請輸入大寫字母 Keycode = 0 End If End Sub C) Private Sub Text1_Mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Asc() 65 Or Asc() 90 Then Msgbox 請輸入大寫字母 End If End Sub D) Private Sub Text1_Change() If Asc() 64 And Asc() 91 Then Msgbox 請輸入大寫字母 End If End Sub 2022 年 9 月二級 VB (1) 設窗體上有一個文本框 ，名稱為 Text1,程序運行后，要求該文本框不能接受鍵盤輸入，但能輸出信息，以下屬性設置正確的是： A)=0 B)=False C)= False D)=0 (2) 以下能在窗體 Form1的標題欄中顯示 “Visualbasic 窗體 的語句是 全國計算機等級考試二級 VB 筆試試卷匯編 第 11 頁 共 81 頁 A) =Visualbasic 窗體 B) =Visualbasic窗體 C) =Visualbasic 窗體 D) =Visualbasic 窗體 ” (3) 在窗體上畫一個名稱為 Text1 的文本框，然后畫一個名稱為 Hscroll1的滾動條，其 Min和 Max屬性分別為 0和 100。為了在運行時隱藏該菜單項 ，應使用的語句是 A) =True B) =False C) =True D) =False (29) 以下敘述中錯誤的是 A) 在程序運行時，通用對話框控件是不可見的 B) 在同一個程序中，用不同的方法 (如 Showopen 或 Showsave 等）打開的通用對話框具有不同的作用 C) 調(diào)用通用對話框控件的 Showopen 方法，可以直接打開在該通用對話框中指定的文件 D) 調(diào)用通用對話框控件的 Showcolor 方法，可以打開顏色對話框 (30) 在用通用對話框控件建立 “打開 ”或 “保存 ”文件對話框時，如果需要指定文件列表框所列出的文件類型是文本文件 (即 .Txt 文件 )，則正確的描述格式是 A) “Text (.Txt)|*.Txt)” B)“文本文件 ( .Txt) | (.Txt)” C) “Text(.Txt)||(*.Txt)” D)“Text(.Txt)(*.Txt)” 2022 年 4 月二級 VB （ 9）表示滾動條控件取值范圍最大值的屬性是 A） Max B） Largechange C） Value D） MaxMin （ 10）在窗體上畫一個名稱為 List1 的列表框，一個名稱為 Label1 的標簽。要求單擊命令按鈕時，打開一個保存文件的通用對話框。Open D) 把 Name屬性設置為 Oamp。 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的文本框。 （ 3）在窗體上畫一個標簽（名稱為 Label1）和一個計時器（名稱為 Timer1），然后編寫如下幾個事件過程： 全國計算機等級考試二級 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 程序運行后，單擊窗體，將在標簽中顯示當前時間，每隔 1秒鐘變換一次。ABC39。 (4) 與數(shù)學表達式 對應的 Visual Basic 表達式是【 6】 。 Private Sub Form_Load() ”北京 ” ”上海 ” ”湖北 ” End Sub Private Sub [14] () = [15] End Sub 2022 年 4 月二級 VB （ 4）為了在運行時把 D:\Pic 文件夾下的圖形文件 裝入圖片框 Picture1，所使用的語句為 【 4】 。以下正確的事件過程是 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。影響 Text1 的 Tab 順序的屬性是 A) Tabstop B)Enabled C) Visible D)Tabindex (4) 在窗體上畫一個名稱為 List1 的列表框，為了對列表框中的每個項目都能進行處理，應使用的循環(huán)語句為 A) For I=0 To …… Next B) For I=0 To Listcount1 Next C) For I=1 To 全國計算機等級考試二級 VB 筆試試卷匯編 第 9 頁 共 81 頁 Next D) For I=1 To Listcount Next (6) 以下關于圖片框控件的說法中，錯誤的是 A) 可以通過 Print 方法在圖片框中輸出文本 B) 清空圖片框控件中圖形的方法之一是加載一個空圖形 C) 圖片框控件可以作為容器使用 D) 用 Stretch 屬性可以自動調(diào)整圖片框中圖形的大小 (8) 以下敘述中錯誤的是 A) 下拉式菜單和彈出式菜單都用菜單編輯器建立 B) 在多窗體程序中，每個窗體都可以建立自己的菜單系統(tǒng) C) 除分隔線外，所有菜單項都能接收 Click 事件 D) 如果把一個菜單項的 Enabled 屬性設置為 False，則該菜單項不可見 (10) 以下敘述中錯誤的是 A) 一個工程可以包括多種類型的文件 B) Visual Basic 應用程序既能以編譯方式執(zhí)行，也能以解釋方式執(zhí)行 C) 程序運行后，在內(nèi)存中只能駐留一個窗體 D) 對于事件驅(qū)動型應用程序，每次運行時的執(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) 在窗體上畫一個文本框、一個標簽和一個命令按鈕，其名稱分別為 Text Label1 和 Command1，然后編寫如下兩個事件過程： Private Sub Command1_Click() Strtext = Inputbox(請輸入 ) = Strtext End Sub 全國計算機等級考試二級 VB 筆試試卷匯編 第 10 頁 共 81 頁 Private Sub Text1_Change() = Right(Trim(), 3) End Sub Abcdef，則在標簽中顯示的內(nèi)容是 A)空 B) Abcdef C) Abc D) Def (22) 在窗體上畫一個名稱為 Text1 的文本框，要求文本框只能接收大寫字母的輸入?！彼龑У淖帜钢该髁嗽L問該菜單項的訪問鍵 C) 程序運行過程中，可以重新設置菜單的 Visible 屬性 D) 彈出式菜單也在菜單編輯器中定義 (28) 設在菜單編輯器中定義了一個菜單項，名為 Menu1。該窗口的標題為 Save，缺省文件名為 Savefile，在 文件類 型 欄中顯示 *.Txt。Pen (7)在窗體上畫一個名稱為 Timer1的計時器控件，要求每隔 ，則以下正確的屬性設置語句是 A） = B) =5 C) =50 D) =500 (9) 以下關于多重窗體程序的敘述中，錯誤的是 A)用 Hide方法不但可以隱藏窗體，而且能清除內(nèi)存中的窗體 全國計算機等級考試二級 VB 筆試試卷匯編 第 12 頁 共 81 頁 B）在多重窗體程序中，各窗體的菜單是彼此獨立的 C）在多重窗體程序中，可以根據(jù)需要指定啟動窗體 D） 在 多重窗體程序中，需要單獨