VB.Net 中的循环问题

Question

我正在为小学阶段的孩子创建一个数学教程应用程序。而且我很难创建一个会生成 2 个随机数的循环，然后检查答案是否正确/错误 5 次。此外，单击 5 次后该按钮将被禁用。除了如何将其置于循环中的想法之外，其他事情对我来说都很清楚。有人能帮助我吗？谢谢！我尝试使用 FOR LOOP，但遗憾的是，它只会循环 5 次，但它只会检查 1 次答案。我需要它来检查 5 个不同的答案。

  For ctr As Integer = 1 To 5
        Button3.Enabled = False
        initialize()
        If TextBox3.Text = sum Then
            MsgBox("correct")
            point = point + 1

            TextBox3.Focus()
        Else
            MsgBox("wrong")

            MsgBox(sum)
            TextBox3.Focus()

        End If
    Next
    MsgBox(point)

Answer 1

如果您想在一个循环中处理五个不同的文本框，一种方法是创建一个包含所有文本框的数组并循环遍历该数组。

Dim boxes() As TextBox = {TextBox3, TextBoxX, TextBox22, TextBoxBB, TextBoxA}
For Each box As TextBox in boxes
    box.Focus()
    If box.Text = sum Then
        MsgBox.("correct")
        point += 1
    Else
        MsgBox("wrong")
    End If
Next

或者，如果您希望用户在单个文本框中一次输入五个答案，您可以让用户在每次输入答案时单击一个按钮。您应该在按钮的点击处理程序之外定义计数器。

Private ctr As Integer

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    ctr += 1
    If ctr > 5 Then Button3.Enabled = False
    initialize()
    If TextBox3.Text = sum Then
        MsgBox("correct")
        point += 1
    Else
        MsgBox("wrong")
        MsgBox(sum)
    End If
    MsgBox(point)
End Sub