Sub Calc()1 e% d0 [- E! A' B6 i
Dim c As Long, j As Long, k As Long, p As Single: z/ z- a' D( w0 H0 z
Dim a As Single5 ] K( u% Q) J3 T" f9 F* i
Dim b As Single
, q! u s0 Q8 D% B& U7 f* ], I) I / q1 p6 a3 y% B) i: R$ l' b$ a
c = Val(InputBox("")) 'If c is large enough..., S8 R$ R* q h8 E5 k
& V$ s# w# e1 Y5 J$ }" Y3 A! B; S For j = 1 To c' U3 F5 z; Z& o1 m* ]0 V+ Z
a = Rnd! B$ x' ^4 Q y: V7 n
b = Rnd% o, e2 }) K0 s5 U8 f, g
If a ^ 2 + b ^ 2 <= 1 Then k = k + 10 g, K$ R6 W3 ]0 P @" V- s
Next j
8 W2 I' R9 d Z" W9 s- x1 n ( ]7 z1 W% N6 k# ]: K/ d" c- u
p = k / j * 4 'What p is...% [, H- g% D) X3 c8 k# |
End Sub |