程序改错分析和总结.docxVIP

4. ------------------------------------------------ 【程序改错】 ------------------------------------------------ 题目：程序功能根据输入的学习成绩,分别显示优秀 (90 分以上), 良好(75 分以上),及格(60 分以上) 不及格四个等级. ------------------------------------------------ Option Explicit Private Sub Form_Click() Cls Dim i As Integer i = InputBox(请输入学习成绩) Select Case i **********ERROR********** Case is100,is0 MsgBox 成绩应该在 0--100 之间 **********ERROR********** Case 90 to 100 Print 优秀 Case 75 To 89 Print 良好 Case 60 To 74 Print 及 格 **********ERROR********** Case else MsgBox 不及格, vbCritical End Select End Sub 5. ------------------------------------------------ 【程序改错】 ------------------------------------------------ 题目:编程实现从左到右的滚动字幕，滚动的速度由滚动条 控件来控制。 ------------------------------------------------ Option Explicit Private Sub HScroll1_Scroll() **********ERROR********** Timer1.Interval = HScroll1.Max - HScroll1.Value End Sub Private Sub Timer1_Timer() **********ERROR********** If Label1.Left = Form1.Width Then **********ERROR********** Label1.Left = -Label1.Width Else Label1.Left = Label1.Left + 100 End If End Sub 6. ------------------------------------------------ 【程序改错】 ------------------------------------------------ 题目:移动数组元素,将数组中某个位置的元素移动到指定位置. ------------------------------------------------ Option Explicit Function fMove(a%(), L1%, L2%) Dim N As Integer, i As Integer, T As Integer **********ERROR********** N = UBound(a) If L2 = N + 1 Then **********ERROR********** a(N + 1) = a(L1) For i = L1 To N a(i) = a(i + 1) Next i Else T = a(L1) a(L1) = a(L2) **********ERROR********** a(L2) = T End If End Function Private Sub Form_Click() Dim a%(1 To 5) Dim i As Integer For i = 1 To 5 a(i) = i Next fMove a, 1, 5 For i = 1 To 5 Print a(i) Next End Sub 8. ------------------------------------------------ 【程序改错】 ------------------------------------------------ 题目：以下程序用于建立一个三行三列的矩阵，使其两 条对角线上数字为 1，其余位置为 0 ------------------------------------------------ Option Explicit Private Sub Form_Click() Dim x(3, 3), n As Integer, m As Integ