配列をシャッフルして、頭から順に読めばかぶりなしの抽選になります。 このシャッフル方法は 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