Imports System
Public Module SelectionIf
Public Sub Main()
Dim UserName As String
Dim Year As Integer
Dim Grade As Single = 0
Console.WriteLine("Hi, how may I adress you?")
UserName = Console.ReadLine()
Console.WriteLine("Please enter the current year you are in " + UserName)
Year = Console.ReadLine()
If Year > 11 Then
Grade = 7 or 13
ElseIf (Year >= 5 And Year <= 20) Then
Grade = 1 or 6
Else
Grade = 0
End If
Console.WriteLine(UserName & " next, you will be off to level " & Grade)
Console.ReadLine()
main() 'use this just for testing...goes round again..
End Sub
End Module
