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

Sub Calc() Dim c As Long, j As Long, k As Long, p As Single 6 M) _5 w9 ]- s* ^+ s Dim a As Single Dim b As Single : m8 O9 `/ ~8 k# F9 A; f+ M; G0 s & x5 m1 p5 E: H& ?9 |' {( b5 e c = Val(InputBox("")) 'If c is large enough... 0 z, q2 m/ z) j- S# _/ ]$ h! C For j = 1 To c , i9 A. d) T+ e a = Rnd b = Rnd - _5 K ~+ R, W- `; g If a ^ 2 + b ^ 2 <= 1 Then k = k + 1 # P7 `" o+ v/ J! y/ R+ v, D Next j ) h& r) x& M; ~0 J9 Z 9 {1 ~# u. Q3 B8 q& i p = k / j * 4 'What p is... End Sub

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