nobuさんは手札5枚だけでカードを決めようとしていますが途中の説明で「カードは全部で130枚あり、26種類のカードが5枚ずつ存在」と説明しています。 最初の5枚の事だけ考えるとあと125枚とのチェックが大変になるので最初にすべて用意してしまった方が楽になります。 DIM ALLCARD[130] FOR I=0 TO 129 :ALLCARD[I]=I:NEXT FOR I=0 TO 129 SWAP CARDS[I],CARDS[RND(130)] NEXT これで0～129までの数字が重複なくバラバラの順番で格納されます。