' ②只更改\标记下的第一行
'------------------------------------------------
Private Sub Command1_Click() Dim s As Single
Dim n As Integer, x As Single, k As Integer
n = Val(InputBox(\integer value:\
x = Val(InputBox(\single value:\
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
'**********ERROR********** Exit Do Else
'**********ERROR********** For i = 2 To n ss = ss * i
'**********ERROR**********
Sum = x ^ (i - 1) / ss Next i
End If End Function 【学生答案】
Sum = x ^ (i - 1) / ss
【参考答案】
Sum = Sum + x ^ (i - 1) / ss
Sum = x ^ (i - 1) / ss+Sum