跪求一个vb程序 计算π值 精确到小数点后100位

如题所述

Private Sub Command1_Click()
Dim a As Long, b As Long, d As Long, e As Integer, f(801) As Long, g As Long
Dim i As Long
Dim res As String
Dim index As Long
a = 10000
c = 800
For i = 0 To c
f(i) = a / 5
Next i
'预留足够长的缓冲空间
res = Space(9000)
'指针变量，指出在哪里插入字符串
index = 1
Do While (c <> 0)
d = 0
g = c * 2
b = c
Do While (1)

d = d + f(b) * a
g = g - 1
f(b) = d Mod g
d = Fix(d / g)
g = g - 1
b = b - 1
If b = 0 Then GoTo 22
d = d * b
Loop
22:
c = c - 14
substr = Format(Fix(e + d / a), "0000")
'填充字符串的相应区间段数值
Mid$(res, index, 4) = substr
'调整指针变量
index = index + 5
If index > 101 Then Exit Do '只显示100位
e = d Mod a
Loop
'删除多余字符
res = Left$(res, index - 1)
Text1.Text = res
Debug.Print index
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/p77224mvv.html