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