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

Sub Calc() Dim c As Long, j As Long, k As Long, p As Single 0 [6 Z1 P1 N: `- n6 B Dim a As Single Dim b As Single c = Val(InputBox("")) 'If c is large enough... " ~- P) }( \; o! r; A For j = 1 To c a = Rnd b = Rnd If a ^ 2 + b ^ 2 <= 1 Then k = k + 1 ! u- y' N/ H- g# A0 B! i d( e0 ? Next j p = k / j * 4 'What p is... End Sub

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