ここで配列変数を使うと、 DIM　APPLE〔３〕 APPLE〔０〕＝100：APPLE〔１〕＝200：APPLE〔２〕＝125 Y=０ FOR　I＝０　TO　２ 　LOCATE　０，Y 　PRINT”リンゴ”；I＋１；”は”；APPLE〔I〕；”円” 　Y=Y+1 NEXT と、これだけで終わりです。スッキリしましたね。 こんな感じで配列変数は滅茶苦茶便利です。 他にも使い方があったり、間違いがある場合は指摘お願いします。