文字列部門にも参戦してみます REPEAT:A$=STR$(RND(10))B$=B$+A$UNTIL INSTR(B$,A$*3)+1?B$ 56文字です