Imports System
Public Module Module1
Public Sub Main()
dim ars() as string 'ars has brackets to show its an array, makes it possible to be a string
dim arsN as integer
ars = {"z","q","t","e"}
console.writeline("enter a number from 1 to 4")
do until arsN = -1
arsN = console.ReadLine()
if arsN = 1 then
console.writeline(ars(0))
elseif arsN = 2 then
console.writeline(ars(1))
elseif arsN = 3 then
console.writeline(ars(2))
elseif arsN = 4 then
console.writeline(ars(3))
elseif arsN = -1 then
console.write("stopped")
else
console.writeline("invalid")
arsN = console.readline()
end if
loop
End Sub
End Module
