【正文】 vate Sub Command1_Click() ‘窗體Form3的“退出” Unload Form1 Unload Form2Unload Form3 EndEnd Sub 6. (1) Form1窗體模塊程序代碼：Private Sub Form_Load() RandomizeEnd SubPrivate Sub Command1_Click() 39。 Format(y, ,.)End SubFunction Power(x As Single, n As Integer) As Double If n 1 Then Power = Power(x, n 1) * x Else Power = x End IfEnd Function5． 在窗體上設置三個窗體Form1～Form3。Private Sub Command1_Click() a = Val():b = Val():c = Val() d = Val():e = Val():f = Val() Call max(a, b, c, m) Call max(m, d, e, m) Call max(m, f, f, m) = mEnd SubSub max(x, y, z, m) ‘標準模塊文件 If x y Then m = x Else m = y End If If m z Then m = z End IfEnd Sub3. (1) s (2) Mid(s, p+1) (3) n4. 程序代碼如下：Private Sub Form_Load() Dim x As Single, n As Integer, y As Double x = InputBox(x=, 求X的n次方) n = InputBox(n=, 求X的n次方) y = Power(x, n) Show Print x。文本框Text1～Text3用于輸入，Text4用于輸出結果。產生1～12隨機數 If t(p) = Empty Then t(p) = Chr(h) Exit Do End If Loop Next h For k = 1 To 12 Text1(k 1).Text = t(k) 39。刪除零元素 If a(i) 0 Then k = k + 1 : b(k) = a(i) : b(k) End If Next i = 數組中零元素個數： + Str(n k)End Sub4．(1) g(x 10) + 1 (2) n 1 (3) g(t) g(j) (4) m = s(t): s(t) = s(k): s(k) = m 5．在窗體上建立4行3列共12個元素的文本框控件數組Text1(0)～Text1(11)Private Sub Form_Load() Dim t(12) As String Randomize For k = 1 To 12 t(k) = Empty 39。 Next j Print Next i For i = 1 To 6 t = a(1, i):a(1, i) = a(6, i):a(6, i) = t Next i Print: Print For i = 1 To 6 For j = 1 To 6 Print a(i, j)。 k amp。 的平方根為。程序代碼如下：Private Sub Command1_click() 39。 j。Private Sub Comd1_Click() 39。”紅”復選框 r = 255 End If If = 1 Then 39?！皺z查” x = If x = 12345678 Then MsgBox (歡迎你用機!) Else MsgBox (對不起，口令錯) End If = End SubPrivate Sub Form_Load() = = 8 = *End Sub4．窗體上建立了兩個文本框Text1(輸入字符串)及Text2(轉換結果)，一個命令按鈕Command1(“清除”)。Private Sub Command1_Click() 39。往右 = End SubPrivate Sub Command3_Click() 39。Private Sub Command1_Click() 39。把文本框Text1中的文本內容作為標簽Label1的標題End SubPrivate Sub Text1_GotFocus() 180。最小化End Sub5．在窗體上建立三個文本框Text1(第一個數)、Text2(第二個數)、Text3(計算結果)和一個命令按鈕Command1(“計算”)。最大化End SubPrivate Sub Command2_Click() 39。兩個文本框的Text屬性均為空。程序代碼如下：Private Sub Form_Click() = 你單擊了窗體End SubPrivate Sub Form_DblClick() = 你雙擊了窗體End Sub3． 在窗體上建立兩個文本框Text1(輸入數)、Text2(輸出數)和一個命令按鈕Command1。最大化按鈕 = 2 39。最小化按鈕 = 1 39。當文本框Text2中的文本內容發(fā)生變動時，執(zhí)行該事件過程= 180。Private Sub Command1_Click() n = Val() Randomize x = Int(1 + n * Rnd) = 第一個隨機數 + Str(x) x = Int(1 + n * Rnd) = 第二個隨機數 + Str(x) x = Int(1 + n * Rnd) = 第三個隨機數 + Str(x)End Sub2．在窗體上建立了四個文本框TextTextText3和Text4，以及一個命令按鈕Command1(“交換”)和Command2(“合并”)。往左 = 0End SubPrivate Sub Command2_Click() 39。 KeyAsciiEnd SubPrivate Sub Form_DblClick() ClsEnd Sub 7. 產生這三個消息框的相應語句是： 產生第1個消息框：x = MsgBox(在這里顯示提示信息, 4 + 0, 請確認) 產生第2個消息框：x = MsgBox(在這里顯示 + Chr(13) + 提示信息,3 + 0,請確認) 產生第3個消息框：x = MsgBox(在這里顯示+Chr(13)+提示信息,2 + 16 + 0,請確認)第4章習題一、單選題1．C 2．A 3．C 4．C 5. B 6. A 7．D 8．B 9．B 10．(1)D (2)A (3)B二、多選題1．ABCFGHJ 2．BE 3．CD 4. CDE 5. AE三、填空題1．(S And (A=18 And A =20) And H=) Or (Not S And (A=16 And Age=18) And H=)2. 60000 3. (1) 0 To 9 (2) a To z,A To Z (3) Else4．(1)6 (2)2 (3)2 5． Select Case x Case Is 20 Case Is = 0 y = 2 y = 4 Case Is = 30 Case Is