Когда я нажимаю кнопку, Select Case не будет ничего делать

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 на что-либо.Если вы измените код следующим образом:

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 random
        Case Is <= 50
            MessageBox.Show("less than or = to 50")
        Case Else
            MessageBox.Show("More than or = to 51")
    End Select
End Sub

Более подробную информацию можно найти здесь Выбрать справку по делу

Вы можете переписать его, чтобы использовать Ifзаявление вместо

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim gen1 As New System.Random

    if gen1.Next(0, 101) <= 50 then
        MessageBox.Show("less than or = to 50")
    else
        MessageBox.Show("More than or = to 51")
    End if
End Sub