作业帮 > 数学 > 作业

用VB设计程序,求出1+1/3+1/5+1/7+.+1/(2*n-1)的值

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/07/08 01:34:12
用VB设计程序,求出1+1/3+1/5+1/7+.+1/(2*n-1)的值
本题共有三个变量,分别是n:整型(不是long),x和sum均为single,条件是:当想
Private Sub Command1_Click()
Dim n As Long 'n必须是长整型,否则会溢出
Dim x As Single,sum As Single
n = 1
Do
x = 1 / (2 * n - 1)
n = n + 1
sum = sum + x
Loop Until x < 0.00001
Text1.Text = "n = " & n & " ,sum = " & sum
End Su