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

Sub Calc() Dim c As Long, j As Long, k As Long, p As Single Dim a As Single " T1 E6 n' B5 j) { Dim b As Single 9 `; T6 D2 K/ p9 b c = Val(InputBox("")) 'If c is large enough... * |+ E2 p( {6 i - j k, ~+ X L2 K, c( D For j = 1 To c a = Rnd b = Rnd 3 {) g2 Q' S: L4 j8 A If a ^ 2 + b ^ 2 <= 1 Then k = k + 1 Next j 2 l1 U$ W$ T, r. \ p = k / j * 4 'What p is... 8 P3 a4 v% \7 ]; `End Sub

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