List2 Additon Private Sub Command Click 3.本程序的用户界面和程序代码较为复杂,请见具体程序文件 第9章《编程及上机调试》 1.程序代码如下 Private Sub Form load Dim x(3)As Single, y As Single On Error goto errln 以后出错时转移到 errln Err. Raise ll 产生"除数为0″的错误 Err. Raise 9 产生”下标越界"的错误 MsgBox("终止程序的运行”) 标号 Select case err. Number Case Il 除数为0的错误码为11 MsgBox("除数为0(错误码为11),跳过该错误") Resume next Case 9 下标越界”的错误码为9 MsgBox("下标越界(错误码为9),跳过该错误”) Resume Next 返回 se el 其他错误处理 MsgBox("错误发生在"&Err. Source_ &",代码为"&Err. Number &",即"&Err.Deso 2.改正后的程序代码如下 Private Sub Form Load Print Tab (20-1) For j= I To 2*1-1 If j se If k>9 Then k =k +7 Print Chr(k +48) End Sub 3.解法一程序如下: Private Sub Form Load Show 324 For a=23 To t Step 23 For b=19 To t Step 19 For c=43 To t Step 43 Print"这三个加数是 End if10 Input #1, x List2.AddItem x Loop Close #1 End Sub Private Sub Command4_Click() '"结束" End End Sub 3． 本程序的用户界面和程序代码较为复杂，请见具体程序文件。 第 9 章《编程及上机调试》 1. 程序代码如下： Private Sub Form_load() Dim x(3) As Single, y As Single On Error GoTo errln '以后出错时转移到 errln Err.Raise 11 '产生"除数为 0"的错误 Err.Raise 9 '产生"下标越界"的错误 MsgBox ("终止程序的运行") End errln: '标号 Select Case Err.Number Case 11 '"除数为 0"的错误码为 11 MsgBox ("除数为 0(错误码为 11)，跳过该错误") Resume Next '返回 Case 9 '"下标越界"的错误码为 9 MsgBox ("下标越界(错误码为 9)，跳过该错误") Resume Next '返回 Case Else '其他错误处理 MsgBox ("错误发生在" & Err.Source _ & ", 代码为" & Err.Number _ & ", 即" & Err.Description) End Select End Sub 2．改正后的程序代码如下： 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 i End Sub 3．解法一程序如下： Private Sub Form_Load() Show t = 324 For a = 23 To t Step 23 For b = 19 To t Step 19 For c = 43 To t Step 43 If a + b + c = t Then Print "这三个加数是："; a, b, c End If Next c, b, a