首页 > 8 其它知识 > 用Word的VBA编辑器计算π值

用Word的VBA编辑器计算π值

2011年11月2日 AEROFISH 1,630 views 发表评论 阅读评论

一个计算π值(圆周率)的小程序,用了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

本文对我无帮助,减1分本文对我有帮助,加1分 (本文对您有帮助吗?)
Loading ... Loading ...

分类: 8 其它知识 标签: , , , ,
  1. 本文目前尚无任何评论.
  1. 本文目前尚无任何 trackbacks 和 pingbacks.