62问答网 > 计算π的近似值，精确到小数点后6位设计vb程序需要代码 VB里面的 π⼀2＝2^2⼀1*3 ×4^4⼀3*5 ×。。。×（

计算π的近似值，精确到小数点后6位设计vb程序需要代码 VB里面的 π⼀2＝2^2⼀13 ×4^4⼀35 ×。。。×（

2025-06-20 12:16:03

推荐回答（1个）

回答1：

你给的公式不对！应该是π/2＝2^2/1*3 ×4^2/3*5 ×。。。×（
这个公式求的精度不高！代码如下：
Dim PI1 As Double
Dim PI2 As Double
Dim Temp As Double
Dim n As Double

PI1 = 0: PI2 = 2: n = 2
While PI2 - PI1 > 0.000001
PI1 = PI2
Temp = (n * n) / ((n - 1) * (n + 1))
PI2 = PI2 * Temp
n = n + 2
Wend
Me.Text1.Text = PI2

计算π的近似值，精确到小数点后6位 设计vb程序 需要代码 VB里面的 π⼀2＝2^2⼀1*3 ×4^4⼀3*5 ×。。。×（

计算π的近似值，精确到小数点后6位设计vb程序需要代码 VB里面的 π⼀2＝2^2⼀13 ×4^4⼀35 ×。。。×（