文字列部門に参戦 REPEAT R$=STR$(RND(10))?R$;:INC A$,R$UNTIL INSTR(A$,R$*3)+1 (参考記録：59文字) りょうさん投稿のコードについてですが、末尾改行は含めなくて良いため、59文字となります。