VB编程~~~~~~求助

来源：百度知道 编辑：UC知道 时间：2024/06/15 09:35:18
编程求S=1+x+x^2/2!+x^3/3!…+x^n/n!的值，并在窗体上输出，要求：
（1）变量X.N用inputbox函数输入，通过调用函数过程FE来实现计算
（2）求表达式的值用函数过程FUNCTION FE(N%,X!)AS SINGEL来实现

Private Sub Form_Load()
Dim x As Single
Dim n As Integer
Me.AutoRedraw = True
x = Val(InputBox("请输入x"))
n = Val(InputBox("请输入n"))

Print FE(n, x)
End Sub

Private Function FE(n%, x!) As Single
If n = 0 Then
FE = 1
Else
nM = 1
For i = 1 To n
nM = nM * i
Next i
FE = x ^ n / nM + FE(n - 1, x)
End If
End Function