昨日提示したプログラムに、130枚のカードからランダムに5枚を抜いて、手札TEに格納する部分を追加してみました。添付の4～7行目のFORループがその部分で、以前れいさんに教えていただいたFisher-Yatesアルゴリズムというものを応用しています。なお、添付では、まず130枚から5枚を抜いて役判定し、次は残りの125枚から5枚を抜いて･･･というのを、残りのカードがなくなるまで(つまり26回)繰り返します。