【正文】 Next iEnd SubPrivate Sub Command2_Click() 39。保存 Open For Output As 1 For i = 1 To 20 Write 1, d(i) Next i Close 1End SubPrivate Sub Command3_Click() 39。讀出 Open For Input As 1 Do While Not EOF(1) Input 1, x x Loop Close 1End SubPrivate Sub Command4_Click() 39。結束 EndEnd Sub2． 本程序的用戶界面和程序代碼較為復雜，請見具體程序文件。第9章習題單選題1．B 2．D 3．D 4．B 5. A 6. A編程及上機調試1. 程序代碼如下：Private Sub Form_load() Dim x(3) As Single, y As Single On Error GoTo errln 39。以后出錯時轉移到errln y = 2 / 0 39。產生除數為0的錯誤 x(4) = 1 39。產生下標越界的錯誤 MsgBox (終止程序的運行) Unload Me 39。卸載窗體 Enderrln: 39。標號Select Case Case 11 39。除數為0的錯誤碼為11 MsgBox (除數為0(錯誤碼為11)，跳過該錯誤) Resume Next 39。返回 Case 9 39。下標越界的錯誤碼為9 MsgBox (下標越界(錯誤碼為9)，跳過該錯誤) Resume Next 39。返回 Case Else 39。其他錯誤處理 MsgBox (錯誤發(fā)生在 amp。 _ amp。 , 代碼為 amp。 _ amp。 , 即 amp。 ) End SelectEnd Sub2．改正后的程序代碼如下：Private Sub Form_Load() Show For i = 1 To 11 Print Tab(20 i)。 For j = 1 To 2 * i 1 If j = i Then k = j Else k = 2 * i j End If If k 9 Then k = k + 7 Print Chr(k + 48)。 Next j Next iEnd Sub3．(1) n = n + 1 (2) d(1, j) = d(3, j) (3) d(i, 2) = d(i, 4) (4) i = j Or i + j = 5 (5) d(i, j) = d(i, j) + 1 (6) n = 0 (7) 第10章習題一、單選題1. C 2. (1)A (2)C 3．D 4．C 5. A 6. D7. (1)A (2)D 8. A 9. B 10. B 11. A12. D二、填空題1. (1)Change (2)Value (3)Scroll (4)Value 2. (1) (2) (3) = 3. 菜單編輯器，頂；PopUpMenu4．(1) (2) BackColor = RGB(255, 0, 0) (3) BackColor = RGB(0, 255, 0) (4) BackColor = RGB(0, 0, 255)5. (1) Picture1 (2) X= + Str(X) (3) Y= + Str(Y)6. DragMode, 1。 0 7. Action, 4, ShowFont編程及上機調試1．在窗體上建立一個水平滾動條HScroll1和一個文本框Text1。程序代碼如下：Private Sub Form_Load() = 1000 = 0 = 5 = 10 = 500End SubPrivate Sub HScroll1_Change() = End SubPrivate Sub HScroll1_Scroll() = End Sub 2. 在窗體上建立一個計時器Timer1和“開始”、“停止”兩個命令按鈕。程序代碼如下：Private len_S As Single, s As Integer 39。模塊級變量Private Sub Command1_Click() 39。“開始” = True s = 0 Call Sub_MoveEnd SubPrivate Sub Command2_Click() 39?！巴Ｖ埂? = FalseEnd SubPrivate Sub Form_Load() = False 39。先取各指針的長度 len_S = Sqr(( ) ^ 2 + ( ) ^ 2) 39。秒針長度End SubPrivate Sub Timer1_Timer() 39。定時器的定時事件過程 s = s + 1 Call Sub_MoveEnd SubPrivate Sub Sub_Move() 39。定時器的定時事件過程 pi = = + len_S * Sin(pi * s / 30) 39。繪制秒針 = len_S * Cos(pi * s / 30)End Sub3. 按要求在窗體上設計一個二級下拉菜單。4. 在窗體上建立一個通用對話框CommonDialog“打開”及“字體”兩個命令按鈕和文本框Text1。程序代碼如下：Private Sub Command1_Click() 39。打開 = 選擇文件 = 文本文件|*.txt 39。設置文件過濾器 = C:\ 39。設置默認文件夾 39。顯示“打開”對話框 = End SubPrivate Sub Command2_Click() 39。字體 = cdlCFScreenFonts = 39。設置字體名稱 = 39。設置字體大小 = 39。粗體 = 39。斜體End Sub(完)14