Vb.net 如何从数组中编码随机按钮？

我需要创建一个选择题，其中正确答案显示在四个按钮中的一个（我不知道是哪一个，因为这是随机生成的）。然后，用户必须按下按钮选择正确答案

我的问题是：当按下按钮时，当我不知道哪个按钮是正确的时，如何对“If”语句进行编码

这是密码

试试这个：

Option Strict On
Public Class Form1
    Dim Answer As Integer
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim Buttons() As Control = {Button1, Button2, Button3, Button4}
        Dim Rand As New Random()
        Dim Index As Integer = Rand.Next(0, Buttons.Length - 1)
        For i As Integer = 0 To 3
            Buttons(i).Text = CStr(Rand.Next(0, 100) * Rand.Next(0, 100))
        Next
        Answer = CInt(Label1.Text) * CInt(Label2.Text)
        Buttons(Index).Text = CStr(Answer)
    End Sub

    Sub CheckAnswer(ByVal Guess As Integer)
        If Guess = Answer Then
            MsgBox("Right!")
        Else
            MsgBox("Wrong!")
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click
        Dim objBtn As Button = DirectCast(sender, Button)
        CheckAnswer(CInt(objBtn.Text))
    End Sub
End Class

---

与其在本地声明

Index

，不如在全局声明，这是一个有正确答案的按钮谢谢你的建议，但我该如何编码，当按下这个随机按钮时，会发生什么？我们非常喜欢代码文本，而不是代码图像。他说使用你拥有的代码，但是，在程序的顶部，而不是在子程序中设置索引。这样，您就可以从代码中的任何位置访问它的值。非常感谢您，Squidx3！仅仅因为OP将一个整数赋给字符串（

Buttons（i）.Text=rand.Next（01100）*rand.Next（01100）

）并将两个字符串相乘（

Label1.Text*Label2.Text

），并不意味着您也可以这样做；）同样

如果Guess=Answer，那么这是一个字符串和一个整数码。将
选项置于代码顶部的
上。我的清单并不详尽：）