VB程序设计 计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+……,要求加数不小于0.00001并显示S及加数的项目数.

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/22 14:03:31
VB程序设计计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+……,要求加数不小于0.00001并显示S及加数的项目数.VB程序设计计算S=1+1/2+1/4+1/7+1/11+1/1

VB程序设计 计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+……,要求加数不小于0.00001并显示S及加数的项目数.
VB程序设计 计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+……,要求加数不小于0.00001并显示S及加数的项目数.

VB程序设计 计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+……,要求加数不小于0.00001并显示S及加数的项目数.
Private Sub Command1_Click()
Dim s As Double
Dim a As Long,n As Long
n = 1
a = 1
s = s + 1 / a
Do Until 1 / a < 0.00001
a = a + n
s = s + 1 / a
n = n + 1
Loop
Print "s=" & s
Print "共加了" & n & "项"
End Sub