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 Char = Char.Parse(Console.ReadLine())
Select Case choice
Case "a"
Console.WriteLine("VB.NET")
Case "b"
Console.WriteLine("C#")
Case "c"
Console.WriteLine("C")
Case "d"
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: c
' C
'
