FOR I=0 TO 10 R=RND(10):PRINT R VSYNC 1:NEXT これを実行して、数字がカブる確率を出す。