作业帮 > 综合 > 作业

VB编程 已知N=30,求级数sum=1+1/2+1/3+1/4···+1/n的和

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/11 00:40:42
VB编程 已知N=30,求级数sum=1+1/2+1/3+1/4···+1/n的和
要求当某项1/n的值≤0.0000001时,程序结束.输出计算结果sum,并写出计算到多少项结束
依据你的描述计算结果如图 代码如下

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