【正文】 然后編寫如下程序： Private Sub Command1_Click() For I=1 To 4 For J=0 To I Print Chr$(65+I)。單擊命令按鈕時(shí)，執(zhí)行如下事件過程： Private Sub Command1_Click() A$ = Software And Hardware B$ = Right(A$, 8) C$ = Mid(A$, 1, 8) Msgbox A$, , B$, C$, 1 End Sub 則在彈出的信息框的標(biāo)題欄中顯示的信息是 A） Software And Hardware B） Software C） Hardware D） 1 （ 8）執(zhí)行語句： A = Inputbox(Today, Tomorrow, Yesterday, , , Day Before Yesterday, 5) 將顯示一個(gè)輸入對(duì)話框，在對(duì)話框的輸入?yún)^(qū)中顯示的信息是 A） Today B） Tomorrow C） Yesterday D） Day Before Yesterday （ 17）以下敘述中錯(cuò)誤的是 A）用 Shell 函數(shù)可以調(diào)用能夠在 Windows 下運(yùn)行的應(yīng)用程序 B）用 Shell 函數(shù) 可以調(diào)用可執(zhí)行文件，也可以調(diào)用 Visual Basic 的內(nèi)部函數(shù) C）調(diào)用 Shell 函數(shù)的格式應(yīng)為： 變量名 =Shell (……) D）用 Shell 函數(shù)不能執(zhí)行 DOS 命令 2022 年 9 月二級(jí) VB （ 6）以下能正確定義數(shù)據(jù)類型 Telbook的代碼是 A） Type Telbook B） Type Telbook Name As String*10 Name 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）以下聲明語句中錯(cuò)誤的是 A） Const Var1=123 B） Dim Var2 = 39。 (5) 將 C 盤根目錄下的圖形文件 裝入圖片框 Picture1 的語句是【 7】 。 (2) 在菜單編輯器中建立一個(gè)菜單，其主菜單項(xiàng)的名稱為 Mnuedit， Visible 屬性為 False，程序運(yùn)行后，如全國計(jì)算機(jī)等級(jí)考試二級(jí) VB 筆試試卷匯編 第 22 頁 共 81 頁 果用鼠標(biāo)右鍵單擊窗體，則彈出與 Mnuedit 相應(yīng)的菜單。 （ 5）在窗體上畫一個(gè)列表框、一個(gè)命令按鈕和一個(gè)標(biāo)簽，其名稱分別為 List Command1 和 Label1，通過屬性窗口把列表框中的項(xiàng)目設(shè)置為： 第一個(gè)項(xiàng)目 、 第二個(gè)項(xiàng)目 、 第三個(gè)項(xiàng)目 、 第四個(gè)項(xiàng)目 。 Private Sub Combo1_ 【 12】 (Keyascii As Integer) If Keyascii = 13 Then For I = 0 To If = 【 13】 Then = 輸入項(xiàng)已在組合框中 Exit Sub End If Next I = 已成功添加輸入項(xiàng) Combo1. 【 14】 End If End Sub 2022 年 9 月二級(jí) VB （ 2）把窗體的 Keypreview屬性設(shè)置為 True，然后編寫如下兩個(gè)事件過程： Private Sub Form_Keydown(Keycode As Integer, Shift As Integer) Print Chr(Keycode) End Sub Private Sub Form_Keypress(Keyascii As Integer) Print Chr(Keyascii) End Sub 程序運(yùn)行后，如果直接按鍵盤上的 A鍵（即不按住 Shift 鍵），則在窗體上輸出的字符分別是 【 3】 和 【 4】 。 （ 5）計(jì)時(shí)器控件能有規(guī)律的以一定時(shí)間間隔觸發(fā) 【 5】 事件，并執(zhí)行該事件過程中的程序代碼。程序運(yùn)行后，在列表框中添加若干列表項(xiàng)。請(qǐng)?jiān)? [6] 處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。請(qǐng)?jiān)? [3] 、 [4] 和 [5] 處填入適當(dāng)?shù)膬?nèi)容，將程序補(bǔ)充完整。程序運(yùn)行后，如果單擊滾動(dòng)條兩端的箭頭，則在標(biāo)簽 Lable2 中顯示滾動(dòng)條的值 ，如圖所示。以下是實(shí)現(xiàn)上述操作的程序： Private Sub Command1_Click() End Sub Private Sub Timer1_Timer() = Time End Sub 在 ______處應(yīng)填入的 內(nèi)容是 A)Enabled=True B)Enabled=False C)Visible=True D)Visible=False (19)假定在圖片框 Picture1 中裝入了一個(gè)圖形，為了清除該圖形（不刪除圖片框），應(yīng)采用的正確方法是： A)選擇圖片框，然后按 Del 鍵 B)執(zhí)行語句 =Loadpicture(“”) C)執(zhí)行語句 =”” D)選擇圖片框，在屬性窗口中選擇 Picture 屬性，然后按回車鍵 （ 20）在窗體上畫一個(gè) List1 的列表框，一個(gè)名稱為 Label1 的標(biāo)簽，列表框中顯示若干個(gè)項(xiàng)目，當(dāng)單擊列表框中的某個(gè)項(xiàng)目時(shí)，在標(biāo)簽中顯示被選中的項(xiàng)目的名稱，下列能正確實(shí)現(xiàn)上述操作的程序是 A) Private Sub List1_Click() = End Sub B) Private Sub List1_Click() = End Sub C) Private Sub List1_Click() = End Sub 全國計(jì)算機(jī)等級(jí)考試二級(jí) VB 筆試試卷匯編 第 15 頁 共 81 頁 D) Private Sub List1_Click() = End Sub （ 24）在 Visual Basic 工程中，可以作為啟動(dòng)對(duì)象的程序是 A)任何窗體或標(biāo)準(zhǔn)模塊 B)任何窗體或過程 C)Sub Main 過程或其他任何模塊 D)Sub Main 過程或任何窗體 (25)假定建立了一個(gè)名為 Command1 的命令按鈕數(shù)組，則以下說法中錯(cuò)誤的是 A)數(shù)組中每個(gè)命令按鈕的名稱 (名稱屬性 )均為 Command1 B)數(shù) 組中每個(gè)命令按鈕的標(biāo)題 (Caption 屬性 )都一樣 C)數(shù)組中所有命令按鈕可以使用同一個(gè)事件過程 D)用名稱 Command1(下標(biāo) )可以訪問數(shù)組中的每個(gè)命令按鈕 (26)把窗體的 Keypreview 屬性設(shè)置為 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 程序運(yùn)行后 ,按鍵盤上的 ”A”鍵 ,則在窗體上顯示的內(nèi)容是 A)A B)B C)C D)D 2022 年 9 月二級(jí) VB （ 19）在窗體上畫一個(gè)列表框和一個(gè)命令按鈕，其名稱分別為 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）把列表框中原有的最后一項(xiàng)改為 “AAAA” 全國計(jì)算機(jī)等級(jí)考試二級(jí) VB 筆試試卷匯編 第 16 頁 共 81 頁 D）把字符串 “AAAA”插入到列表框的最前面（即 “Item 1”的前面） （ 29）以下關(guān)于 Keypress 事件過 程中參數(shù) Keyascii 的敘述中正確的是 A） Keyascii 參數(shù)是所按鍵的 ASCII 碼 B） Keyascii 參數(shù)的數(shù)據(jù)類型為字符串 C） Keyascii 參數(shù)可以省略 D） Keyascii 參數(shù)是所按鍵上標(biāo)注的字符 （ 30）設(shè)窗體上有一個(gè)名為 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 程序設(shè)計(jì) End Sub Private Sub Text1_Keydown(Keycode As Integer, Shift As Integer) Print Visual Basic。 編寫如下程序： 全國計(jì)算機(jī)等級(jí)考試二級(jí) 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 程序運(yùn)行后，單擊 “ 開始 ” 按鈕，標(biāo)簽在窗體中移動(dòng)。Pen C) 把 Name屬性設(shè)置為 amp。以下能實(shí)現(xiàn)該操作的事件過程是 A) Private Sub Text1_Keypress(Keyascii As Integer) If Keyascii 65 Or Keyascii 90 Then Msgbox 請(qǐng)輸入大寫字母 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)輸入大寫字母 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)輸入大寫字母 End If End Sub D) Private Sub Text1_Change() If Asc() 64 And Asc() 91 Then Msgbox 請(qǐng)輸入大寫字母 End If End Sub 2022 年 9 月二級(jí) VB (1) 設(shè)窗體上有一個(gè)文本框 ，名稱為 Text1,程序運(yùn)行后，要求該文本框不能接受鍵盤輸入，但能輸出信息，以下屬性設(shè)置正確的是： A)=0 B)=False C)= False D)=0 (2) 以下能在窗體 Form1的標(biāo)題欄中顯示 “Visualbasic 窗體 的語句是 全國計(jì)算機(jī)等級(jí)考試二級(jí) VB 筆試試卷匯編 第 11 頁 共 81 頁 A) =Visualbasic 窗體 B) =Visualbasic窗體 C) =Visualbasic 窗體 D) =Visualbasic 窗體 ” (3) 在窗體上畫一個(gè)名稱為 Text1 的文本框，然后畫一個(gè)名稱為 Hscroll1的滾動(dòng)條，其 Min和 Max屬性分別為 0和 100。當(dāng)單擊命令按鈕 計(jì)算 時(shí)，對(duì)標(biāo)簽 Label Label2中顯示的兩個(gè)值求積，并將結(jié)果顯示在 Label3中。則以下能表示當(dāng)前被選中的列表項(xiàng)內(nèi)容的是 A） B） C） D） List1. Text （ 9）程序運(yùn)行后，在窗體上單擊鼠標(biāo)，此時(shí)窗體不會(huì)接收到的 事件是 A） Mousedown B） Mouseup C） Load D） Click （ 11）如果要改變窗體的標(biāo)題，則需要設(shè)置的屬性是