UC知道vb题目 关于循环
来源：百度知道 编辑：UC知道 时间：2024/07/08 01:36:20
求自然对数e=1+1/1!+1/2!+1/3!+^^^^+1/n!
我的代码
Sub a(n%, q%)
q% = 1
For i = 1 To n
q = q * i
Next i
End Sub
Sub b(q%, s!)
For f! = n To 1 Step -2
w! = q / f
s! = 1 / w
s = s + s / (f - 1)
Next f
End Sub
Private Sub Form_click()
n% = InputBox("")
Call a(n, q%)
Call b(q, t!)
l! = t + 1 / q
Print l
End Sub
不好意思 少了条件 题目还要求编写两个通用过程
我的代码
Sub a(n%, q%)
q% = 1
For i = 1 To n
q = q * i
Next i
End Sub
Sub b(q%, s!)
For f! = n To 1 Step -2
w! = q / f
s! = 1 / w
s = s + s / (f - 1)
Next f
End Sub
Private Sub Form_click()
n% = InputBox("")
Call a(n, q%)
Call b(q, t!)
l! = t + 1 / q
Print l
End Sub
不好意思 少了条件 题目还要求编写两个通用过程
Dim r As Double, s As Double
Sub JC(a As Integer)
Dim j As Integer
r = 1
For j = 1 To a
r = r * j
Next
End Sub
Sub Z()
s = 1 / r
End Sub
Private Sub Command1_Click()
Dim i As Integer, t As Double
n = Val(InputBox(""))
t = 1
For i = 1 To n
Call JC(i)
Call Z
t = t + s
Next
Print t
End Sub