＞あきとさん コメントありがとうございます！ Fisher-Yates shuffleってやつ、良さそうですね。 10枚のカードをシャッフルするテストプログラム。 DIM　CARD[10] FOR I=0 TO 9 SWAP CARD[I],CARD[RND(10)] NEXT こんな感じですか？