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

Sub Calc() 3 W8 t! ^4 a# k2 [: ^2 [4 n Dim c As Long, j As Long, k As Long, p As Single ! D, }8 f/ j& g( z9 C Dim a As Single ' b4 }) J- v4 \ b Dim b As Single 4 P+ A/ x4 D/ a; O% L c = Val(InputBox("")) 'If c is large enough... For j = 1 To c a = Rnd b = Rnd If a ^ 2 + b ^ 2 <= 1 Then k = k + 1 Next j / H7 v; c' B2 z/ L p = k / j * 4 'What p is... 3 {/ L5 u1 @! W: y+ y8 r+ A K' bEnd Sub

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