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

Sub Calc() v8 q W/ ^: |$ H( r" F" l Dim c As Long, j As Long, k As Long, p As Single 7 Z4 T! q' I5 ] Dim a As Single + D& ^/ [; t# ~9 B: M Dim b As Single 3 Z, C0 P) z( h( k1 }" H. c c = Val(InputBox("")) 'If c is large enough... 8 {, H3 h% }- `$ `( U, k$ q For j = 1 To c a = Rnd b = Rnd If a ^ 2 + b ^ 2 <= 1 Then k = k + 1 ( `7 |4 k# b' s4 J6 P- ^' \% R( b! H Next j p = k / j * 4 'What p is... 1 y7 s, D. K+ Y. _7 v. B$ KEnd Sub

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