例えばトランプとかビンゴとかをするための抽選です お願いします

配列をシャッフルして、頭から順に読めばかぶりなしの抽選になります。 このシャッフル方法は Fisher-Yates シャッフルというそうです。 DIM A[52] FOR I=LEN(A)-1 TO 1 STEP -1 SWAP A[I],A[RND(I+1)] NEXT FOR I=0 TO LEN(A)-1 PRINT A[I];" "; NEXT

0ばっかり出る・・・

ごめん、数値を入れる部分をはしょっていた。 'DIM A[52] の後に追加、0～51 を入れる FOR I=0 TO LEN(A)-1 A[I]=I NEXT