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

Sub Calc() $ n+ ]0 p0 Q5 q3 W Dim c As Long, j As Long, k As Long, p As Single 6 Y- ~' f" F3 J1 m Dim a As Single Dim b As Single c = Val(InputBox("")) 'If c is large enough... # E `6 H" }6 F# M* `& d For j = 1 To c a = Rnd 8 C( I9 W' P1 I3 O' g4 p b = Rnd If a ^ 2 + b ^ 2 <= 1 Then k = k + 1 Next j ; z1 {* ? R- K# i1 Y( x: R p = k / j * 4 'What p is... End Sub

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