ちょっと作ってみたんですが、
まあとにかく、問題文と答えを一行ずつ取り出して
答えとinputの代入された文字が一致した時に
ループさせるといった感じです。
fontをいちいち呼び出しているなど
見るだけで汚い感じにはなっていますが
これだと、13問目からinputの変数(この場合b)
に何も代入されなくなってしまいます。
listaが問題
listbが答え
aが何行目を読見込むかを表します
中学生がサンプルを切り張りして作ったものなので、
ゴミなところもいろいろあると思いますが、
代入されなくなってしまう理由と改善策を教えていただけると幸いです。
notesel listd repeat notemax cls 0 clrobj notesel liste noteget qestiona , a notesel listd noteget qestionb , a font "メイリオ" , 40 , 1 pos 100 , 50 mes qestiona font "メイリオ" , 20 , 1 pos 100 , 90 mes qestionb a+=1 #define ctype HIWORD(%1) (%1 >> 16 & $FFFF) oncmd gosub *command, $111 b = "" input b , 200 , 30 objsel hInput = objinfo(stat, 2) stop *command if lparam = hInput { if HIWORD(wparam) = $300 { if b = qestionb :loop return } return } return </per>