飞鱼博客

一个计算π值（圆周率）的小程序，用了Word自带的VBA编辑器。

新建Word文档，然后按Alt+F11打开VBA编辑器，点击插入-模块，在模块中将以下代码COPY进去，无需保存，直接按F5运行，等待1分钟左右，π值就能输出在Word文档中了。（算上整数部分一共会输出7799位。）

Sub 计算π()
Dim a&, b&, c&, d&, e&, f&(28010), g&
    a = 10000
    b = 0
    c = 28000

    While b < c
        f(b) = a / 5
        b = b + 1
    Wend
    Do While c > 0
        d = 0
        g = c * 2
        b = c
        Do
            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 Exit Do
            d = d * b
            DoEvents
        Loop
        c = c - 14
        ActiveDocument.Range.InsertAfter (e + d \ a)
        e = d Mod a
    Loop
End Sub