以上を組み合わせるとSTR$(I)*!!(I MOD 3)*!!(I MOD 5))+"Fizz"*!(I MOD 3)+"Buzz"*!(I MOD 5)を表示すれば良いことが分かります。 アルゴリズムを変えない限りはここから根本的に短くするのは無理なのでここから無駄な部分を省いて1文字ずつ短くしていきます。 まず、気付くのはI MOD 3とI MOD 5が2カ所使われているという点です。 これはそれぞれ別の変数に入れることで短縮が可能です。 それによって演算優先順位の関係で必要不可欠だったカッコも省略でき!A、!Bで済むようになります。 FOR I=1TO 100:A=I MOD 3:B=I MOD 5:?STR$(I)*!!A*!!B+"Fizz"*!A+"Buzz"*!B:NEXT