乱数で一度出た数を出させない方法、無理であれば、同じであれば違うのが出るまでするものを教えて下さい。

R=RND(10) WHILE 1 @A X=RND(10) IF R=X THEN GOTO @A ELSE R=X ?R WEND

配列を必要な数を用意して、必要な数をぶち込み、ランダムでＳＷＡＰした後で順番に使えば、希望している事が出来そうな予感。

'n個の重複しない乱数を表示する option defint var n = 53, i, r, used[n], z[n] for i = 0 to n - 1 ' initialize table z[i] = i next while n r = rnd(n) ? z[r] inc used[r] n = n - 1 sort used, z wend