FOR命令でIを１～100まで変化させて文字配列変数Q$[I],A$[I]を 参照しているのでDIM命令の文字列変数の名前と個数を 幾つにしているか確認してみて下さい。