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

Sub Calc() ' u2 g' {9 O/ y; i" n( ? Dim c As Long, j As Long, k As Long, p As Single Dim a As Single Dim b As Single 4 _" r$ X# m1 }3 r% g# F5 _' C - Z. H- [: A2 r$ }+ S4 H6 e c = Val(InputBox("")) 'If c is large enough... : N4 P* v- ^9 g1 ]( K For j = 1 To c - ~% E& x/ L) E a = Rnd b = Rnd If a ^ 2 + b ^ 2 <= 1 Then k = k + 1 Next j + L- h% ?, K' @- h* E8 [8 t9 c2 y p = k / j * 4 'What p is... - @+ Y; J; Y4 M- Z% z1 V) tEnd Sub

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