Question

VB编程 谢谢啦 编写程序，用近似公式 求的近似值（直到最后一项的绝对值小于10^-4为止）

Answer 1

Private Sub Command1_Click()
  k = 1
  Do While 1 / (2 * k - 1) >= 10 ^ (-4)
    s = s + (-1) ^ (k - 1) / (2 * k - 1)
    k = k + 1
  Loop
  Print "π≈"; 4 * s
End Sub

Answer 2

Private Sub Command1_Click()
p = 0
i = 1
t = 1
While i < 1000000
p = p + t / i
i = i + 2
t = -t
Wend
Text1.Text = "圆周率的值近似为：" & 4 * p
End Sub

Answer 3

请先把刚才回答的那个采纳了吧。

追问

麻烦帮忙做一下 谢谢 刚刚的已经采纳

追答

Private Sub Command1_Click()
Dim sign As Integer, a As Long, pi As Double
Dim i As Integer
sign = -1
i = 1
Do
    a = 2 * i - 1
    sign = -1 * sign
    pi = pi + (1 / a) * sign
    i = i + 1
Loop While Abs((1 / a) * sign) > 0.0001
pi = pi * 4
text1.text=pi
End Sub