Examp

Module VBModule
 
    Sub Main()
        Console.WriteLine("Hello, world!")

  dim n as integer
 console.writeline("enter no:")
 console.readline()

select case n
case 1
Console.writeline("Sunday")
case 2 
Console.writeline("Monday")
case 3: Console.writeline("Tuesday")
case 4: console.writeline("Wednesday")
case 5: console.writeline("Thursday")
case 6: console.writeline("Friday")
case 7: console.writeline("Saturday")
case else
Console.writeline("Week has only 7 days")
end select
end sub
end Module