【正文】 行后，單擊命令按鈕，其輸出結果為：答案：3 6 ，然后編寫如下事件過程：Private Sub Command1_Click()Dim m As Integer, n As IntegerFor j = 1 To 4Print Tab(5 j)。Next jPrintNext iEnd Sub程序運行后，單擊命令按鈕，其輸出結果為：答案：BBBBBB（如圖所示），然后編寫如下事件過程：Private Sub Command1_Click()Dim a(3) As Single, s As StringFor i = 0 To 3a(i) = Val(InputBox(輸入第 amp。 End Sub程序運行后，如果選擇Check1和Check2兩個復選框，然后單擊命令按鈕，則文本框中顯示的內(nèi)容為： 答案：愛好體育音樂，輸出的結果為： i = 0 j = 10 Do While i = j i = i + 1 j = j 1 k = i + j Loop Print k答案：10(內(nèi)容為空)和一個名稱為Picture1的圖片框，如圖所示，然后編寫如下事件過程：Private Sub Text1_Change() End Sub則程序運行后，在文本框中依次輸入1234，則圖片框中顯示的內(nèi)容為：答案：1121231234，然后編寫如下通用過程和命令按鈕的事件過程：Public Function f(x As Integer)Dim y As Integerx = 5y = 4f = x * yEnd Function Private Sub Command1_Click()Static x As Integerx = 2y = 3y = f(x)Print x。然后編寫如下事件過程： Private Sub Command1_Click()x = Select Case xCase 2, 4, 6, 8, 10y = 1Case 6y = 2Case Is 6y = 3Case Is 6y = 4End SelectText2 = yEnd Sub程序運行后，如果在文本框Text1中輸入6，然后單擊命令按鈕，則在文本框Text2中顯示的內(nèi)容為：答案：1：Private Sub Form_Click()y = 10For x = 5 To Step 7y = y + xNext xPrint xEnd Sub 程序運行后，單擊窗體，輸出結果為：答案：2（當前驅(qū)動器為C:），一個名稱為Text1的文本框(內(nèi)容為空)和一個名稱為label1的標簽，如圖所示。 x$ m = m + 1 Next k答案： 1 ***2 **3 *，然后編寫如下兩個事件過程：Private Sub Form_Load() 325 234 163 537 = End Sub Private Sub List1_DblClick()a = Print a + End Sub運行后，在文本框中輸入“432”（如下圖所示），然后雙擊列表框中的“234”，則輸出結果為：答案：234432，標題為“刪除”的命令按鈕，組合框在設計階段已添加6項內(nèi)容，如圖所示：然后編寫如下事件過程：Private Sub Command1_Click()For i = 1 To 3 iNext iEnd Sub程序運行后，單擊刪除按鈕，組合框的內(nèi)容為：答案：AAACCCEEE，然后編寫如下事件過程：Private Sub Command1_Click()x = 0n = InputBox()For i = 1 To nFor j = 1 To ix = x + 1Next jNext iPrint xEnd Sub運行后，單擊命令按鈕，如果從InputBox對話框中輸入3，則在窗體上顯示的內(nèi)容是：答案：6，然后編寫如下事件過程：Private Sub Command1_Click()Dim i As Integer, x As IntegerFor i = 1 To 5If i = 1 Then x = iIf i = 3 Thenx = x + 1Elsex = x 1End IfNext iPrint xEnd Sub運行后，單擊命令按鈕，其輸出結果為：答案：2 ，標題為“確定”的命令按鈕，組合框在設計階段已添加5項內(nèi)容，如圖所示：然后編寫如下事件過程：Private Sub Command1_Click() = 2Print Print ()End Sub程序運行后，單擊確定按鈕，則窗體上顯示的內(nèi)容為：答案：歡歡歡歡，然后編寫如下事件過程：Private Sub Command1_Click()Dim s As Long, i As Integers = 0i = 10Do While i = 1 If i Mod 2 = 0 Then s = s + i End If i = i 1LoopPrint sEnd Sub運行后，單擊命令按鈕，其輸出結果為：答案：30 ，然后編寫如下事件過程：Private Sub Command1_Click()Dim x As Integer, i As Integeri = 3x = 5Do i = i + 2 x = x + 3Loop Until i = 9Print xEnd Sub運行后，單擊命令按鈕，其輸出結果為：答案：14，然后編寫如下事件過程：Private Sub Command1_Click()Dim re As Integerre = MsgBox(請選擇, vbOKCancel + vbQuestion, 結束)If re = 1 ThenPrint OKElsePrint CancelEnd IfEnd Sub運行時單擊命令按扭（Command1），顯示的消息框如圖所示，然后單擊取消按鈕，窗體上顯示的內(nèi)容為：答案：Cancel，然后編寫如下事件過程：Private Sub Command1_Click()Dim m As Integer, n As Integerm = 4n = 2Do m = m + n n = n + 1Loop While m 10Print m。iEnd Sub程序運行后，單擊命令按鈕，窗體上顯示的是：答案：6 7：Private Sub Command1_Click()For n = 1 To 4Print Tab(2 * n + 2)。本窗體有如下的兩個事件過程：Private Sub Cmd1_Click()Opt1(1).Value = 1End SubPrivate Sub Opt1_Click(Index As Integer) = 三大火爐之一 amp。且本窗體有如下的兩個事件過程：Private Sub Form_Load() AAA BBBEnd SubPrivate Sub Cmd1_Click() DDD, 1 EEE, 1End Sub運行后的界面如下圖所示，當單擊命令按鈕后，