Question

VB计算圆周率近似值 π/4=1-1/3+1/5+.....+1/i一直到i<0.0000001编码~~~

Private Sub Form_Click()
Dim i&, PI#
Do Until 1 / i < 0.0000001
i = i + 1
PI = PI + (-1) ^ (i - 1) / (2 * i - 1)
Loop
PI = PI * 4
Print "π="; PI
End Sub
这是我的编码 求问哪里出错了

Answer 1

Private Sub Form_Click()
Dim i&, PI#
Do Until 1 / i >0.0000001
i = i + 1
PI = PI + (-1) ^ (i - 1) / (2 * i - 1)
Loop
PI = PI * 4
Print "π="; PI
End Sub
记得Do Until 的格式应该是后面直到表达式为真时停止吧
DO　while是表达式为否时停止

Answer 2

Private Sub Form_Click()
Dim i&, PI#
Do
i = i + 1
PI = PI + (-1) ^ (i - 1) / (2 * i - 1)
Loop Until 1 / i < 0.0000001 '将条件判断语句放在后面
PI = PI * 4
Print "π="; PI
End Sub