【正文】 Next j Next i = sEnd Sub運(yùn)行后，先后單擊“按鈕一”和“按鈕二”，則文本框的輸出結(jié)果是：答案：21，其名稱為Command1，然后編寫如下程序： Private Sub Command1_Click() Dim a(10)As Integer Dim x As Integer For i=1 To 10 a(i)=5+i Next ix=2 Print a(f(x)+x) End Sub Function f(x As Integer) x=x+3 f=x End Function 程序運(yùn)行后，單擊命令按鈕，在窗體上顯示的是：答案：15：Private Sub Command1_Click() Dim a a = Array(1, 2, 3, 4, 5) For i = LBound(a) To UBound(a) a(i) = a(i) + 1 Next i Print i。 LBound(a) End Sub程序的執(zhí)行結(jié)果是：答案：5 0，然后編寫如下的事件過程和通用過程：Private Sub Command1_Click() x = InputBox(請輸入整數(shù)) a = f1(Val(x)) Print aEnd SubFunction f1(ByRef b As Integer) If b Mod 2 = 0 Then f1 = 0 Else f1 = 1 End IfEnd Function運(yùn)行后，單擊命令按鈕，如果從InputBox對話框中輸入6，輸出結(jié)果是：答案：0，標(biāo)題為“確定”的命令按鈕和一個名稱為Text1的文本框(內(nèi)容為空)，如圖所示。然后編寫如下的事件過程和通用過程：Private Sub Command1_Click() n = Val() If n \ 3 = n / 3 Then f = f1(n) Else f = f2(n) End If Print f。 nEnd SubPublic Function f1(ByRef x) x = x + 2 f1 = x * xEnd FunctionPublic Function f2(ByVal x) x = x + 4 f2 = x * x * xEnd Function運(yùn)行后，在文本框中輸入6，然后單擊命令按鈕，則窗體上顯示的是：答案：64 8，輸出的結(jié)果為： For i = 1 To 10 If i Mod 5 0 Then n = n + i Next i Print n 答案：40，標(biāo)題為“確定”的命令按鈕和一個名稱為Text1的文本框(內(nèi)容為空)，如圖所示。然后編寫如下的事件過程和通用過程：Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer x = 3 y = 5 z = 0 Call p1(x, y, z) = Str(z)End SubSub p1(ByVal a As Integer, ByVal b As Integer, c As Integer) c = a + bEnd Sub程序運(yùn)行后，單擊命令按鈕，則文本框中顯示的內(nèi)容為：答案：8，標(biāo)題為“確定”的命令按鈕和一個名稱為Text1的文本框(內(nèi)容為空)，還有一個標(biāo)簽，如圖所示，然后編寫如下的事件過程和通用過程：Private Function even(x As Long) As Boolean If x Mod 2 = 0 Then even = True Else even = False End IfEnd FunctionPrivate Sub Command1_Click() Dim n As Long n = Val() p = IIf(even(n), 偶數(shù), 奇數(shù)) = n amp。 是一個 amp。 pEnd Sub運(yùn)行后，在文本框中輸入28，然后單擊命令按鈕，則標(biāo)簽上顯示的內(nèi)容是：答案：28是一個偶數(shù)(內(nèi)容為空)和一個名稱為Picture1的圖片框，如圖所示，然后編寫如下的兩個事件過程：Private Sub Form_Click() = 祝你快樂End SubPrivate Sub Text1_Change() End Sub運(yùn)行后，單擊窗體，則圖片框上顯示的內(nèi)容是：答案：祝你快樂，標(biāo)題為“顯示”的命令按鈕和一個名稱為List1的列表框(內(nèi)容為空)，如圖所示，然后編寫如下的兩個事件過程：Private Sub Command1_Click()() = penEnd Sub Private Sub Form_Load() bag bookEnd Sub程序運(yùn)行后，單擊命令按鈕，則列表框中顯示的內(nèi)容為：答案：bagbookpen77．窗體上有一個名稱為Command1，標(biāo)題為“顯示”的命令按鈕和一個名稱為Text1的文本框(內(nèi)容為空)，如圖所示。然后編寫如下的事件過程：Private Sub Command1_Click()x = InputBox(輸入)Print x + End Sub運(yùn)行后，在文本框中輸入456，然后單擊命令按鈕，在輸入對話框中輸入123，單擊“確定”按鈕后，在窗體上顯示的內(nèi)容為：答案：123456，一個名稱為Text1的文本框(內(nèi)容為空)和一個名稱為Label1的標(biāo)簽，組合框在設(shè)計階段已添加3項(xiàng)內(nèi)容，如圖所示：然后編寫如下事件過程：Private Sub Combo1_Change() = 祝福北京 = End Sub Private Sub Text1_Change() = 奧運(yùn)成功End Sub運(yùn)行后，在組合框中輸入加油，則標(biāo)簽中顯示的內(nèi)容為：答案：奧運(yùn)成功(內(nèi)容都為空)，列表框在設(shè)計階段已添加4項(xiàng)內(nèi)容，然后編寫如下事件過程：Private Sub Form_Click()t = ()() = ()() = tEnd Sub運(yùn)行后，在文本框Text1和Text2中分別輸入1和3，如圖所示：然后單擊窗體，則列表框的內(nèi)容為：答案：111444333222，名稱分別為Frame1和Frame2，標(biāo)題分別為“系別”和“人數(shù)”；在Frame1中有3個單選按鈕，名稱分別為OpOpOp3，標(biāo)題分別為“外語系”，“數(shù)學(xué)系”，“化學(xué)系”，在Frame2中有3個單選按鈕，名稱分別為OpOpOp6，標(biāo)題分別為“300人”、“360人”、“380人”，還有一個名稱為Text1的文本框，如圖所示：然后編寫如下事件過程：Private Sub Form_Click()If Then = ElseIf Then = Else = End IfIf Then = amp。 有 amp。 ElseIf Then = amp。 有 amp。 Else = amp。 有 amp。 End IfEnd Sub運(yùn)行后，如果選中標(biāo)題分別為“數(shù)學(xué)系”和“380人”的單選按鈕，然后單擊窗體，則文本框中顯示的內(nèi)容為：答案：數(shù)學(xué)系有380人PIXTEL_MMI_EBOOK_20052 /PIXTEL_MMI_EBOOK_2005