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

Sub Calc() ' b. H( r( b2 L0 w: s Dim c As Long, j As Long, k As Long, p As Single 4 b& U; M. B+ ]9 d6 { S; i Dim a As Single Dim b As Single + ~/ y0 m- Q2 q! |% C c = Val(InputBox("")) 'If c is large enough... & H* @1 _, ~5 y2 G For j = 1 To c : o1 x! t6 H% V' K% U% r' v2 Z0 L a = Rnd b = Rnd ( N' B+ L. u) g. }& O+ m$ O1 z+ F! y If a ^ 2 + b ^ 2 <= 1 Then k = k + 1 Next j # [, z" O9 T. ^# A3 Y$ d p = k / j * 4 'What p is... End Sub

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