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がチラホラ出るように。