用Word的VBA编辑器计算π值
一个计算π值(圆周率)的小程序,用了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
最新评论