Question

堆栈溢出。我正在制作一个括号程序。而且我希望能够使用Select Case来告诉谁会赢。

我编写了以下代码：

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim gen1 As New System.Random
        Dim random As Integer
        Dim B1 As String
        random = gen1.Next(0, 101)
        Select Case B1
            Case random <= 50
                MessageBox.Show("less than or = to 50")
            Case random >= 51
                MessageBox.Show("More than or = to 51")
        End Select
    End Sub

但是，当我单击按钮时，代码没有执行任何操作。没有消息框出现，什么也没有。此代码可能有什么问题？我已经使用Dim gen1 As New System.Random和Dim random As Integer正确设置了随机生成器代码，但是没有任何反应。感谢您的帮助！

Answer 1

您尚未将B1变量设置为任何变量。如果您将代码修改为如下所示：

and

您可以在Select Case Help

中找到更多信息。

您可以将其重写为使用If语句

&&

当我单击按钮时，“选择保护壳”将不执行任何操作

1 个答案: