vb的问题,急!!在线等!!100分!

来源：百度知道 编辑：UC知道 时间：2024/06/14 08:27:11
用pi/4=1-1/3+1/5-1/7+1/9...的公式求近似值
直到某一项的绝对值小于10的-6次方

你看看 这个符全不符合你的意思，在窗体上只有一个命令按钮command1

Private Sub Command1_Click()
Dim pi As Double
Dim i As Integer
Dim n As Long
i = -1
n = 3
pi = 1
Do While Abs(pi / 4) > (10 ^ -6)
pi = pi + i * (1 / n)
i = i * -1
n = n + 2
Loop
Print pi
End Sub

请把问题说清楚点 谢谢