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

Sub Calc() ! i0 X: I5 s- s( V; Q0 G Dim c As Long, j As Long, k As Long, p As Single 7 B- }) o$ e# L+ T/ y Dim a As Single Dim b As Single 0 F$ v0 I" V) a c = Val(InputBox("")) 'If c is large enough... ) l/ r1 G- n$ Z# j' c: c For j = 1 To c : d8 {/ F# r D1 C a = Rnd 0 W$ V5 R$ ?8 J% Q; ` b = Rnd If a ^ 2 + b ^ 2 <= 1 Then k = k + 1 Next j + E3 Y* V1 U2 j2 R p = k / j * 4 'What p is... 9 B5 x9 s+ `8 _$ x9 [3 GEnd Sub

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