程序改错--答案版.docVIP

12592 题目:编程求一个十进制整数n的各位数字之和，设n为小于或等于5位的数。 ------------------------------------------------ Option Explicit Private Sub Form_Click() Dim N As Integer, Sum As Integer, S1 As String, S2 As String Dim i As Integer, Ch As String Sum = 0 N = InputBox(输入整数n) S1 = Str(N) S1 = Trim(S1) For i = 1 To Len(S1) **********ERROR********** Ch = Mid(N, i, 1) **********ERROR********** Sum = Val(Ch) Next i Print 该整数的各位数之和是：; Sum End Sub 答案：Ch=Mid(S1 , i , 1) Sum = Sum + Val(Ch) 12610题目：程序功能根据输入的学习成绩,分别显示优秀(90分以上), 良好(75分以上),及格(60分以上)不及格四个等级. ------------------------------------------------ Option Explicit Private Sub Form_Click() Cls Dim i As Integer i = InputBox(请输入学习成绩) Select Case i **********ERROR********** Case 0 i 100 MsgBox 成绩应该在0--100之间 **********ERROR********** Case 90 Print 优秀 Case 75 To 89 Print 良好 Case 60 To 74 Print 及格 **********ERROR********** Case MsgBox 不及格, vbCritical End Select End Sub 答案：Case 100 x or x 0 Case 90 to 100 Case Else 12616.题目：求s=1!+3!+5!+7!，阶乘的计算用Function过程fact实现. ------------------------------------------------ Option Explicit Private Sub Form_Click() Dim i As Integer, s As Integer **********ERROR********** For i = 1 To 7 s = s + fact(i) Next i Print s End Sub **********ERROR********** Public Function fact() Dim t As Integer, i As Integer t = 1 For i = 1 To n t = t * i Next i **********ERROR********** fact = i End Function 答案：For i = 1 To 7 Step 2 Public Function fact%(n%) fact = t 12620题目:编程实现从左到右的滚动字幕，滚动的速度由滚动条控件来控制。 ------------------------------------------------ Option Explicit Private Sub HScroll1_Scroll() **********ERROR********** Timer1.Interval = HScroll1.Min - HScroll1.Value End Sub Private Sub Timer1_Timer() **********ERROR********** If Label1.Left = Form1.Width Then **********ERROR********** Label1.Left = Label1