VB.Net/Language Basics/Select

Select Case Demo

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main(ByVal args As String())
     Dim grade As Integer = 0 " one grade
     Dim aCount As Integer = 0 " number of As
     Dim bCount As Integer = 0 " number of Bs
     Dim cCount As Integer = 0 " number of Cs
     Dim dCount As Integer = 0 " number of Ds
     Dim fCount As Integer = 0 " number of Fs
     Console.Write("Enter a grade, -1 to quit: ")
     grade = Console.ReadLine()
     " input and process grades
     While grade <> -1
        Select Case grade    " determine which grade was input
           Case 100          " student scored 100
              Console.WriteLine("Perfect Score!" & vbCrLf & _
                 "Letter grade: A" & vbCrLf)
              aCount += 1
           Case 90 To 99     " student scored 90-99
              Console.WriteLine("Letter Grade: A" & vbCrLf)
              aCount += 1
           Case 80 To 89     " student scored 80-89
              Console.WriteLine("Letter Grade: B" & vbCrLf)
              bCount += 1
           Case 70 To 79     " student scored 70-79
              Console.WriteLine("Letter Grade: C" & vbCrLf)
              cCount += 1
           Case 60 To 69     " student scored 60-69
              Console.WriteLine("Letter Grade: D" & vbCrLf)
              dCount += 1
              " student scored 0 or 10-59 (10 points for attendance)
           Case 0, 10 To 59
              Console.WriteLine("Letter Grade: F" & vbCrLf)
              fCount += 1
           Case Else
              " alert user that invalid grade was entered
              Console.WriteLine("Invalid Input. " & _
                 "Please enter a valid grade." & vbCrLf)
        End Select
        Console.Write("Enter a grade, -1 to quit: ")
        grade = Console.ReadLine()
     End While
     " display count of each letter grade
     Console.WriteLine(vbCrLf & _
        "Totals for each letter grade are: " & vbCrLf & _
        "A: " & aCount & vbCrLf & "B: " & bCount _
        & vbCrLf & "C: " & cCount & vbCrLf & "D: " & _
        dCount & vbCrLf & "F: " & fCount)
   End Sub
   

End Class

      </source>

Select Else Demo

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main()
       "Determine which number was entered
       Dim var As Integer
       
       var = 10
       
       Select Case var
           Case 1
               System.Console.WriteLine("The number 1 was entered")
           Case 2
               System.Console.WriteLine("The number 2 was entered")
           Case 3
               System.Console.WriteLine("The number 3 was entered")
           Case 4
               System.Console.WriteLine("The number 4 was entered")
           Case 5
               System.Console.WriteLine("The number 5 was entered")
           Case Else
               System.Console.WriteLine("A number other that 1 - 5 was entered")
       End Select
   End Sub

End Class

      </source>

Select Integer

<source lang="vbnet"> Imports System public class MainClass

   Shared Sub Main()
      Dim targetInteger As Integer = 15
      Select targetInteger
         Case 5
            Console.WriteLine("5")
         Case 10
            Console.WriteLine("10")
         Case 15
            Console.WriteLine("15!")
         Case Else
            Console.WriteLine("Value not found")
      End Select
   End Sub

End Class

      </source>

Select Integer Value

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main(ByVal args As String())
      Dim targetInteger As Integer = 15
      Select Case targetInteger
         Case 5
            Console.WriteLine("5")
         Case 10
            Console.WriteLine("10")
         Case 15
            Console.WriteLine("15!")
         Case Else
            Console.WriteLine("Value not found")
      End Select
   End Sub

End Class

      </source>

Select range

<source lang="vbnet"> Imports System public class MainClass

   Shared Sub Main()
      Dim target As String = "M"
      Select Case target
         Case "A" To "L"
            Console.WriteLine("Alpha To Lambda executed")
         Case "L" To "Z"
            Console.WriteLine("Lambda To Zeta executed")
         Case Else
            Console.WriteLine("Else executed")
      End Select
   End Sub

End Class

      </source>

Select String Value

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main(ByVal args As String())
      Dim target As String = "A"
      Select Case target
         Case "A" To "M"
            Console.WriteLine("A To M executed")
         Case "N" To "Z"
            Console.WriteLine("N To Z executed")
         Case Else
            Console.WriteLine("Else executed")
      End Select
   End Sub

End Class

      </source>

Select String Value: range

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main(ByVal args As String())
      Dim target As String = "A"
      Select Case target
         Case "A" To "M"
            Console.WriteLine("A To M executed")
         Case "N" To "Z"
            Console.WriteLine("N To Z executed")
         Case Else
            Console.WriteLine("Else executed")
      End Select
   End Sub

End Class

      </source>

Select with Compare

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main(ByVal args As String())
      Dim targetInteger As Integer = 7
      Select Case targetInteger
         Case Is < 10
            Console.WriteLine("Less than 10")
         Case 10 To 14
            Console.WriteLine("10-14")
         Case 15
            Console.WriteLine("15!")
         Case Else
            Console.WriteLine("Value not found")
      End Select
   End Sub

End Class

      </source>

Select with condition

<source lang="vbnet"> Imports System public class MainClass

   Shared Sub Main()
      Dim targetInteger As Integer = 7
      Select Case targetInteger
         Case Is < 10
            Console.WriteLine("Less than 10")
         Case 10 To 14
            Console.WriteLine("10-14")
         Case 15
            Console.WriteLine("15!")
         Case Else
            Console.WriteLine("Value not found")
      End Select
   End Sub

End Class

      </source>