知道这个code最后算出什么来？

Sub Calc() 1 t+ a+ Q s3 w' P3 G1 K2 H Dim c As Long, j As Long, k As Long, p As Single Dim a As Single Dim b As Single ; l& L6 ^* U$ c/ I% Q/ W + A$ d0 @9 y. C& v+ P3 L c = Val(InputBox("")) 'If c is large enough... ! ?( Z! U# d( z- S: v ' p4 X, Z/ t( E8 [: l+ W& B! g5 D For j = 1 To c a = Rnd b = Rnd If a ^ 2 + b ^ 2 <= 1 Then k = k + 1 / m3 i: B- O8 }: {2 c$ K Next j p = k / j * 4 'What p is... End Sub

哈哈，这个算法算pi值效率太低了。