UC知道VB编程，麻烦写个代码
来源：百度知道 编辑：UC知道 时间：2024/09/22 15:50:00
编程计算下述多项式和：
S=
求其精度为0.000001时的S值，请使用DO循环语句编程，并建议用Form_Click事件（精度要求为0.000001，表示多项式和S的末项小于0.000001）。
程序代码怎么写呢？
S=1-1/2!+1/3!-1/4!....+(-1)的n-1次方乘以1/n!
S=
求其精度为0.000001时的S值，请使用DO循环语句编程，并建议用Form_Click事件（精度要求为0.000001，表示多项式和S的末项小于0.000001）。
程序代码怎么写呢？
S=1-1/2!+1/3!-1/4!....+(-1)的n-1次方乘以1/n!
Private Sub Command1_Click()
Dim x, y As Double
Dim m As Long
Dim n, i As Integer
m = 1
i = 1
x = 1
Do
m = m * i
y = 1 / m
x = x + (-1) ^ (i - 1) / m
i = i + 1
Loop Until y < 0.000001
Print x
End Sub
Private Sub Command1_Click()
Dim s As Double, x As Double, 判断 As Boolean，n=integer
n = 0
判断 = False
Do
x = 1
n = n + 1
For i = 1 To n
x = x * i
Next i
s = s + ((-1) ^ (n - 1)) / x
If n Mod 2 <> 0 Then
If (((-1) ^ (n - 1)) / x) < 0.000001 Then 判断 = True
End If
Loop Until 判断 = True
Print Format(s, "0.000000")
End Sub
你题目有问题。
看不见多项式