VB编程 已知N=30,求级数sum=1+1／2+1／3+1／4···+1／n的和
VB编程 已知N=30,求级数sum=1+1／2+1／3+1／4···+1／n的和
要求当某项1／n的值≤0.0000001时,程序结束.输出计算结果sum,并写出计算到多少项结束
要求当某项1／n的值≤0.0000001时,程序结束.输出计算结果sum,并写出计算到多少项结束
赞 共回答了34个问题采纳率：94.1% 举报
Private Sub Command1_Click()
Sum = 0
n = 0
While n < 10000000
n = n + 1
Sum = Sum + 1 / n
Wend
Print "Sum="; Sum,"n="; n
End Sub
Sum = 0
n = 0
While n < 10000000
n = n + 1
Sum = Sum + 1 / n
Wend
Print "Sum="; Sum,"n="; n
End Sub
1年前
8
可能相似的问题
-
1年前1个回答
-
1年前1个回答
你能帮帮他们吗