Imports System

Public Module Module1

    Public Sub Main()

        Dim schoolfees as integer

        Dim name as string

        Dim year as integer

        Console.WriteLine("This program calculates the school fees you owe.")

        Console.WriteLine("Enter your name")

        name = Console.ReadLine()

        Console.WriteLine("Enter your school year")

        year = Console.ReadLine()

        Select case year

        case 7, 8

            schoolfees = 120

        case 9

            schoolfees = 140

        case 10

            schoolfees = 150

        case 11

            schoolfees = 180

        case 12

            schoolfees = 200

        End select

        Console.WriteLine("School fees for " & name & " are " & schoolfees)

    End Sub

End Module