S1 = lTrim(S1)
=======(答案2)======= Ch = Mid(S1, i, 1)
=======(答案3)======= Sum = Sum + Val(Ch) =========或========= Sum = Sum + Val(Ch) 第7题 （1.0分）
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目：本程序的功能是随机产生的10个两位正整数，并进行递减排序。
'------------------------------------------------ Option Explicit
Private Sub CreateRND() Dim Temp As Integer Dim I As Integer Dim N As Integer Dim X(10) As Integer Dim J As Integer N = 10
Print \数据：\ For I = 1 To N
'**********FOUND********** X(I) = Int(Rnd() * 90) Print X(I); Next I Print
Print \排序：\ For I = 0 To N - 1 For J = I + 1 To N
'**********FOUND********** If X(I) > X(J) Then
'**********FOUND********** Temp = X(I) X(J) = X(I) X(I) = Temp End If Next J Print X(I);
Next I Print End Sub
Private Sub Command1_Click() CreateRND End Sub 答案：
=======(答案1)======= X(I) = Int(10 + Rnd() * 90) =========或========= X(I) = Int(10 + Rnd() * 90)
=======(答案2)======= If X(I) < X(J) Then =========或========= If X(I) <= X(J) Then =========或========= If X(J) > X(I) Then =========或========= If X(J) >= X(I) Then
=======(答案3)======= temp = X(J)
第9题 （1.0分）
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目：以下程序段用于计算5的N次方。
'------------------------------------------------ Option Explicit
Private Sub Form_Click()
Dim n As Integer, k As Integer, s As Long n = InputBox(\'**********FOUND********** k = 0
'**********FOUND********** s = 0
Do While k <= n s = s * 5 k = k + 1 '**********FOUND********** Next
Print \的\次方是\End Sub 答案：
=======(答案1)======= k=1
=======(答案2)======= s=1
=======(答案3)======= Loop
第11题 （1.0分）
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目：用自定义函数的方法求sum（x），求当-1≤x≤1时， ' sum（x）=x/2！+x^2/3!+x^3/4!+??+x^n/(n+1)!， ' 当x〉1或x〈-1时，函数值为0。当n〈=0时，输入数 ' 据错误。X、N都是由用户输入。
'------------------------------------------------ Option Explicit
Private Sub Command1_Click() Dim s As Single
Dim n As Integer, x As Single, k As Integer n = Val(InputBox(\ x = Val(InputBox(\ If n <= 0 Then
k = MsgBox(\数据输入错误！\数据输入\
Exit Sub End If
s = Sum(x, n) Print s End Sub
Function Sum(x As Single, n As Integer) Dim i As Integer, ss As Long ss = 1 Sum = 0
If x > 1 Or x < -1 Then '**********FOUND********** Exit Do Else
'**********FOUND********** For i = 2 To n ss = ss * i
'**********FOUND********** Sum = x ^ (i - 1) / ss Next i End If End Function 答案：
=======(答案1)======= exit Function
=======(答案2)======= For i = 2 To n + 1 =========或========= For i = 2 To 1+n
=======(答案3)=======
sum = sum + x ^ (i - 1) / ss 第14题 （1.0分）
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目：程序功能为打印下列图形： ' * ' ** ' *** ' **** ' *****
'------------------------------------------------ Option Explicit
Private Sub Form_Click() Cls
Dim i As Integer Dim j As Integer
'**********FOUND********** For i = 1 To 7
'**********FOUND********** For j = 1 To 5 Print \
'**********FOUND********** Loop Print Next i End Sub 答案：
=======(答案1)======= For i = 1 To 5
=======(答案2)======= For j = 1 To i
=======(答案3)======= Next j
=========或========= Next
第16题 （1.0分）
'------------------------------------------------ '【程序改错】
'------------------------------------------------
'题目：产生30个小于100的成绩随机数，并统计出优、良 ' 、中等、及格、不及格数的个数，并计算出成绩属 ' 于优秀段的成绩平均分。
'------------------------------------------------ Option Explicit
Private Sub Form_Click()
Dim k%, a%, bjg%, jg%, zd%, lh%, yx As Integer