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

Sub Calc() 7 Q% d) E# S n |+ |- q) { Dim c As Long, j As Long, k As Long, p As Single Dim a As Single + F5 M: y9 p, u6 _7 o2 H4 C Dim b As Single c = Val(InputBox("")) 'If c is large enough... , u# m. O" u |5 e5 F 4 F( u! J# q* c1 s For j = 1 To c a = Rnd 0 _- ]+ @- X' w0 M8 y/ u8 y" U b = Rnd If a ^ 2 + b ^ 2 <= 1 Then k = k + 1 3 z7 I( ~' {6 Z, J Next j p = k / j * 4 'What p is... End Sub

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