UC知道VB的变态的小题
来源：百度知道 编辑：UC知道 时间：2024/06/15 12:36:12
【实验题7－1】近似公式 ，π/4=1-1/3+1/5-1/7+1/9-......
1/n.求π的近似值，直到最后一项的绝对值小于10―4为止。（提示：不知道循环步数，不能用For循环，须用Do循环设置循环终止条件。）
谢谢上面三位的回答，但我们的vb很初级，能不能再简单点，就是用循环结构的，谢谢大家！
1/n.求π的近似值，直到最后一项的绝对值小于10―4为止。（提示：不知道循环步数，不能用For循环，须用Do循环设置循环终止条件。）
谢谢上面三位的回答，但我们的vb很初级，能不能再简单点，就是用循环结构的，谢谢大家！
'在form上加个按钮
Private Sub Command1_Click()
Dim sum As Double '记录和即π/4
Dim i As Long
Dim num As Double
sum = 0
i = 0
Do
i = i + 1
num = 1 / (2 * i - 1) '数列对应单项绝对值
sum = sum + num * (-1) ^ (i + 1) '判断符号,求和
Loop Until num < 0.0001 '循环条件
Print sum * 4 '打印结果
End Sub
'form上可以看到π值3.14179261359579
如此简单：
int i = 1
double ans = 0 ‘注：这句可能是Dim ans as Double = 0
Do while 1/i>=10―4
ans = ans + 1/i
i=i+2
Loop
ans=ans*4
这时的ans就是π的近似值了
楼上给的有误
具体程序如下：
已验证
Private Sub Form_Load()
Dim i As Long
Dim ans As Double
Dim flag As Boolean
i = 1
ans = 0
Do While 1 / i >= 10 ^ (-4)
If flag Then
ans = ans - 1 / i
flag = Not flag
Else
ans = ans + 1 / i
flag = Not flag
End If
i = i + 2
DoEvents
Loop
ans = ans * 4
Debug.Print ans
E