OK Here

DIM X AS DOUBLE, Y AS DOUBLE, M AS LONG, N AS LONG
RANDOMIZE TIMER
CLS
DO
X = RND(1&)
Y = RND(1&)
IF X * X + Y * Y <= 1 THEN M = M + 1
N = N + 1
PI = 4 * M / N
PRINT PI
LOOP


It gets 3.14 right at least very fast.