Mega Code Archive

 

Categories / VB.Net / Language Basics

 

Select String Value

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