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

Sub Calc() Dim c As Long, j As Long, k As Long, p As Single 8 Y+ m2 J' l- X c8 {/ k/ J8 F0 M Dim a As Single Dim b As Single c = Val(InputBox("")) 'If c is large enough... 8 l! `- Y5 P# M$ m( E For j = 1 To c a = Rnd 0 T" C+ b- I* o1 w$ O$ I4 X6 U b = Rnd If a ^ 2 + b ^ 2 <= 1 Then k = k + 1 Next j p = k / j * 4 'What p is... ' i- z* ~- G z1 vEnd Sub

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