Imports System

Public Module Module1

    ' You are asked to complete this function, following

    ' the guidance provided in the comments. You should

    ' write a line of code for each line of comment.

    Public Function calculateGrade(rawMark As Double, totalMark As Double)

        ' Declare the top tier percentage called 'pctGrade9'

        Dim pctGrade9 As Double

        ' Let the top tier percentage be 79%

        pctGrade9 = 0.79

        ' Declare the pass grade mark called 'mkGrade4'

​

        ' Let the pass mark be 15

​

        ' Calculate the top tier mark

​

        ' We check if the raw mark is of top grade

​

            ' Let the function return the top grade

​

        ' Otherwise if the raw mark is below passing

​

            ' Let the function return grade 1, 2, or 3 based on proportions

        ' In all other cases (raw mark between passing and top grade)

            ' Let the function return grades 4-8 based on proportions

        ' End the selection

​

    End Function

    Public Sub Main()

        Dim rawMark As Double

        Dim grade As Integer

        Console.WriteLine("What is your GCSE maths raw mark?")

        rawMark = System.Convert.ToInt32(Console.ReadLine())

        grade = calculateGrade(rawMark, 80.0)

        Console.WriteLine("Your GCSE maths grade is " & grade)

    End Sub

End Module