Imports System
Public Module Module1
Public Sub Main()
Console.WriteLine("##########################")
Console.WriteLine(" a: VB.NET")
Console.WriteLine(" b: C#")
Console.WriteLine(" c: C")
Console.WriteLine(" d: Java")
Console.WriteLine("##########################")
Console.Write("Select your language: ")
Dim choice As Integer = Integer.Parse(Console.ReadLine())
Select Case choice
Case 1
Console.WriteLine("VB.NET")
Case 2 To 4
Console.WriteLine("C#")
Case 5 To 10
Console.WriteLine("C")
Case 11 To 17
Console.WriteLine("Java")
Case Else
Console.WriteLine("Invalid choice")
End Select
End Sub
End Module
' run:
'
' ##########################
' a: VB.NET
' b: C#
' c: C
' d: Java
' ##########################
' Select your language: 7
' C
'
