申し訳ございません! 私が前回提示したプログラムは誤りがございました。 正しくは、添付10行目のとおりです。 なお、添付10行目以前の部分で、130枚のカードをシャッフルし、先頭の5枚をTE[]に格納しておりますので、併せてご参考ください。