投稿してから気が付きました^^;;; STR$関数は使わなくても問題無かったですね REPEAT:Y=X:X=RND(10)C=(C+1)*(X==Y)?X;:UNTIL C==2 49文字です。