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