Visual Basic
1Public Class Form1 2 Dim a, b, x As Integer 3 4 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 5 6 End Sub 7 8 Private Sub Ntbut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ntbut.Click 9 10 Randomize() 11 ' The program will generate a number from 0 to 10 12 a = Int(Rnd() * 10) + 1 13 b = Int(Rnd() * 10) + 1 14 Qtlab.Text = a 15 Qtlab2.Text = b 16 AWS1.Text = Console.ReadLine() 17 18 End Sub 19 20 21 22 Private Sub Asbut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Asbut.Click 23 If x = a * b Then 24 Sclab.Text = ++1 25 Else 26 27 Sclab.Text = --1 28 End If 29--- End Sub 30End Class
簡単な掛け算の問題をランダムで出し、正解なら1ポイント、不正解なら-1ポイントという、ものを作りたかったのですが、式の答えを入力してアンサーボタン(Asbut)を押すと、一度だけなら、正解なら1ポイント、不正解なら-1ポイントとうまくいくのですが、ntbutを押して新しい式を生成し、同じように答えを入力して、アンサーボタン(Asbut)を押しても、動作せず無反応です。どのようにコードを変えれば、If 文の部分が毎回、答えを入力するたびにポイントが入るようになりますか?