Mega Code Archive

 

Categories / VB.Net / Language Basics

 

Select Integer Value

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