Selecionando Case

Public Class SelectCase


    Private Sub CmdCalcula_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdCalcula.Click
        Dim Number As Integer = CInt(TextBox1.Text)
        Select Case Number
            Case 1
                MsgBox("Menor que 2")
            Case 2 To 5
                MsgBox("Entre 2 e 5")
            Case 6, 7, 8
                MsgBox("Entre 6 e 8")
            Case 9 To 10
                MsgBox("Maior que  8")
            Case Else
                MsgBox("Não está entre 1 e 10")
        End Select
    End Sub
End Class

Neste tópico, você aprendeu a usar a instrução Select Case para escolher entre várias condições.