Sub Calc()' Y* b- `8 o9 N8 J+ |- _) F: Q
Dim c As Long, j As Long, k As Long, p As Single
1 `! S7 k2 S% Y. j7 T Dim a As Single
# s4 m! o& u& K# p$ B. j Dim b As Single: E4 X. L9 ]! B$ p- Z( ]+ e
! y' T6 Z8 _6 f0 I7 q- w c = Val(InputBox("")) 'If c is large enough...4 F/ I/ m4 s5 n8 W7 ?
: S/ U2 t$ y5 g1 {
For j = 1 To c
( u; o0 N( T5 t# I; ?4 v a = Rnd3 w- g$ i7 L2 J0 ^. [2 p
b = Rnd' i' c" J1 k' `: c- V: {: L \
If a ^ 2 + b ^ 2 <= 1 Then k = k + 1& N( r- d* Y+ D2 B$ _! X1 {5 d8 s
Next j. M5 u0 f/ A6 M S/ L L" b' a
S! G# b e. l' R9 ]6 O' w u4 j" c) t
p = k / j * 4 'What p is...
" q, h. x& _6 dEnd Sub |