Mega Code Archive

 

Categories / VB.Net / Language Basics

 

Select Integer

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