Imports System
Public Module Module1
Public Sub Main()
Console.WriteLine("##########################")
Console.WriteLine(" a: VB.NET")
Console.WriteLine(" b: Python")
Console.WriteLine(" c, d, e: Assembly C C++")
Console.WriteLine(" f, g: Java C#")
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("Python")
Case "c", "d", "e"
Console.WriteLine("Assembly C C++")
Case "f", "g"
Console.WriteLine("Java C#")
Case Else
Console.WriteLine("Invalid choice")
End Select
End Sub
End Module
' run:
'
' ##########################
' a: VB.NET
' b: Python
' c, d, e: Assembly C C++
' f, g: Java C#
' ##########################
' Select your language: d
' Assembly C C++
'
