VB中计算1+1/1!+1/2!+1/3!+.+1/10!怎么计算

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/30 11:56:03
VB中计算1+1/1!+1/2!+1/3!+.+1/10!怎么计算

VB中计算1+1/1!+1/2!+1/3!+.+1/10!怎么计算
VB中计算1+1/1!+1/2!+1/3!+.+1/10!怎么计算

VB中计算1+1/1!+1/2!+1/3!+.+1/10!怎么计算
Private Sub founction()
Dim i As Integer
Dim j As Integer
Dim k As Long
Dim Res As Double
Res = 1
For i = 1 To 10
k = 1
For j = i To 1 Step -1
k = k * j
Next j
Debug.Print k
Res = Res + 1 / k
Next i
Label1.Caption = Res
End Sub
Private Sub Form_Load()
founction
End Sub