vb.net - ランダム VB を使用した誤った出力

Question

私は自分の vba クラスのプログラムを書いています。ほぼ完成していますが、小さな問題が 1 つあります。プログラムは、ランダムな掛け算の質問をすることになっています。ユーザーは送信をクリックして、天気が正しいか間違っているかを確認します。すべて問題なく動作しますが、最初の質問に対する回答は、ユーザーが次の質問に対して [次へ] をクリックした場合でも、それらすべてに対する回答になります。たとえば、最初の質問が 6 *3 で、ユーザーが 21 を入力すると、正解と表示されます。次の質問は 3 * 2 と表示されます。ユーザーが 6 を入力すると、間違っていると言われますが、21 をもう一度入力すると、正解になります。本当に単純なものがいくつか欠けていると確信していますが、それは私を夢中にさせ、私はこれにかなり慣れていません。どんな助けでも大歓迎です!!これのいずれかが混乱している場合は申し訳ありません.

Public Class MultiplicationTeacherForm
    Dim randomObject As New Random
    Dim one As Integer = randomObject.Next(1, 10)
    Dim two As Integer = randomObject.Next(1, 10)

Private Sub nextButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nextButton.Click

    Dim one As Integer = randomObject.Next(1, 10)
    Dim two As Integer = randomObject.Next(1, 10)
    question.Text = ("How much is " & one & " times " & two)

End Sub

Private Sub submitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles submit.Click

    Dim three As Integer = randomObject.Next(1, 3)
    Dim ans As Integer = one * two
    Dim correct As String = answer.Text
    Dim x As Integer = Convert.ToInt16(correct)

    If (three = 1) And (ans = x) Then
        response.Text = "Very Good!"
    ElseIf (three = 2) And (ans = x) Then
        response.Text = "Excellent!"
    ElseIf (three = 3) And (ans = x) Then
        response.Text = "Great Job!"
    Else
        response.Text = "No, Please try again."
    End If
End Sub


Private Sub MultiplicationTeacherForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    question.Text = ("How much is " & one & " times " & two)
End Sub