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,并写出计算到多少项结束
zhuzizhou 1年前 已收到1个回答 举报

szgdhr 幼苗

共回答了20个问题采纳率:90% 举报

依据你的描述计算结果如图 代码如下

Private Sub Command1_Click()
Sum = 0
For n = 1 To 30
If 1 / n <= 0.0000001 Then Exit For
Sum = Sum + 1 / n

Next n
Print "计算到第" & n - 1 & "项"
Print "和值为:" & Sum
End Sub

1年前

4
可能相似的问题
Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 0.019 s. - webmaster@yulucn.com