DIM C[130],K[26] ' カードを引いてC[n]にフラグを格納 WHILE I!=5 V=RND(130) IF C[V]==0 THEN C[V]=1:I=I+1 WEND ' K[n]に同じカードの枚数を格納 FOR I=0 TO 129 IF C[I]==1 THEN K[I DIV 5]=K[I DIV 5]+1 NEXT ' K[n]を見てカードが1枚以上あるかチェック FOR I=0 TO 25 IF K[I]!=0 THEN ?K[I], NEXT とりあえずこれだけ。何回か実行したら2がチラホラ出るように。