採点するには？？
解決今、テストのように足し算の問題を１０問、
答えをText1〜10に入力するように設定しました。
採点（command）をおすと Text11に できた数を入力できるように
したいのです。
採点（command）には どのような命令文を入れたらよいのでしょうか。
どうかアドバイスよろしくお願いします。
現時点でのコードを見せてください。
話はそれからです。
実際の計算値とTextに入れた値を比較して同じであれば
カウントアップしていく・・っていうのを１０回繰り返して
カウントをText11に出力するというのは、いかがでしょうか：)
おかしなことをやってるみたいですが、、
参考書をみてこんなんなってしまいました。
If oo = aa + a Then z = 1
If pp = bb + b Then z = 1
If qq = cc + c Then z = 1
If rr = dd + d Then z = 1
Text11.Text = Format(z, "#")
oo = aa + a
↑ここに答えを入力されます。
わかりにくくすみません。
＞＞ＫＧさん
カウントダウンというのはなんていう何文になるのでしょうか？
> カウントダウンというのはなんていう何文になるのでしょうか？
正解なのに点数を減らしてはダメですよ。
ＫＧさんは、カウントアップと言ってます。
If oo = aa + a Then z = z + 1
If pp = bb + b Then z = z + 1
If qq = cc + c Then z = z + 1
If rr = dd + d Then z = z + 1
Text11.Text = Format(z, "#")
そうでそうです！カウントアップです。
間違えました！！！！
しかしやってみましたが、
答えにあっているあっていないに関わらず
command を押すたびｚが増えていってしまいます・・・・・
変数zの宣言はどこでやってますか？
採点（command）の中で、やっているなら、押すたびに初期化されるので
増えることはないと思いますが…。
Private Sub Command1_Click()
Dim z As Integer
If oo = aa + a Then z = z + 1
If pp = bb + b Then z = z + 1
If qq = cc + c Then z = z + 1
If rr = dd + d Then z = z + 1
Text11.Text = Format(z, "#")
End Sub
＞変数zの宣言はどこでやってますか？
このFormの一番最初に
Dim z As Integer は定義しているのです。
LESIA さんの言われたように、
>採点（command）の中で、やっているなら、押すたびに初期化されるので
>増えることはないと思いますが…。
>Private Sub Command1_Click()
> Dim z As Integer
Formの一番最初にすると、コマンドが押された時、前に実行したZの値を
まだ持っています。
ワンステップずつ実行して、確認してみてください。
できましたできましたぁぁぁぁ！！！！
ありがとうございました（泣）
| ツイート |  |