DIM命令で配列変数Q$と配列変数A$の個数は幾つで宣言していますか？ この場合はDIM Q$[101],A$[101]としないと Subscript out of rangeが出ます。 あとエラーが出た場合にはどんなエラーが出たかも書いていただけると 原因を突き止めやすくなります。 【訂正】 115行目は不要です。 ★終了文字を連結しなくても文字列の終わりを判別する方法がありました） 121行目　P=0:N=1にして下さい。 ★配列変数の1から展開するためN=1とします。