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

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

2024-11-16 22:31:35

推荐回答（3个）

回答（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

回答（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

回答（3）：

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

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

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