VB编程求sum=1+1/2+1/3+...+1/n

来源：百度知道 编辑：UC知道 时间：2024/05/22 12:02:16
求sum=1+1/2+1/3+...+1/n,直到第n项(1/n)的值小于0.0001时为止
要求
(1)用 do while...loop循环语句
(2)整个代码放在form_Click事件中
(3)用print方法输出结果

Private Sub Form_Click()
Dim i As Integer
Dim sum As Double
Dim t As Double
sum = 0
i = 1
t = 1 / i
Do While t > 0.0001
sum = sum + t
i = i + 1
t = 1 / i
Loop
Debug.Print "i="; i; "sum="; sum

End Sub

一楼说的好，你倒是给答案啊
主体：
double n=1,sum=0
do
{
sum=sum+1/n
n=n+1
}
while(1/n>0.0001)
loop
print n

简单、