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

Sub Calc() 8 t, B# m2 M# x4 m Dim c As Long, j As Long, k As Long, p As Single 1 L1 ?$ W% b' ?% u$ ? Dim a As Single - N- F8 U& R+ Q5 K Dim b As Single / t& G8 y" w& U7 m; n c = Val(InputBox("")) 'If c is large enough... # w. |) E1 m- ~2 h P2 P- N For j = 1 To c a = Rnd * l g+ v8 L7 @0 b, O7 D/ P3 d0 K b = Rnd If a ^ 2 + b ^ 2 <= 1 Then k = k + 1 # X0 K( ? a$ z( u Next j 5 M' {0 w3 B2 q i! q( C j8 F5 }8 C9 Y7 }) |/ l3 r p = k / j * 4 'What p is... End Sub

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