うーん… 何処で見つけたのか、どう計算したのかわかりませんが、残念ながらそれだとアルゴリズムがダメなので最大周期が保証されてないんですよ 証明は…余白が足りないから省略。 X=0:Y=0 FOR I=0 TO 2000:FOR J=0 TO 9999 GOSUB @RND IF X==0 AND Y==0 THEN GOTO @AAA NEXT:NEXT @AAA PRINT STR$(I)+RIGHT$("000"+STR$(J),4) こんな感じで試してみてくださいな 初期値が0,0なら4613119回で抜けてしまいます