Imports System

Public Module Module1

    Dim studentname(10) As String

    Dim studentgrade(10) As Decimal

    Dim remark As String

    Dim avg As Decimal

    Dim HGM As Decimal

    Dim HGMH As String

    Dim LWM As Decimal

    Dim LWMH As String

​

    Sub Main()

        HGM = 0

        LWM = 101

        Console.WriteLine("WELCOME TO THE STUDENT GRADING SYSTEM")

        Console.WriteLine("PLEASE ENTER GRADES IN BETWEEN 25% and 100%")

​

        'STUDENT NAMES AND GRADES'

        For i = 1 To 10

            Console.WriteLine("Please enter this student's name")

            studentname(i) = Console.ReadLine

restart:    Console.WriteLine("Please enter this students grade")

            studentgrade(i) = Console.ReadLine

            If studentgrade(i) < 25 Then

                Console.WriteLine("Sorry, This grade is not valid. If you would like to enter the student's grade again please enter [remark]")

                remark = Console.ReadLine

                If remark = "remark" Then

                    GoTo restart

                Else

                    Console.WriteLine("This student's grade will be deleted and show as 0% on their report")

                    studentgrade(i) = 0

                End If

            End If

            If studentgrade(i) > 100 Then

                Console.WriteLine("Sorry, This grade is not valid. If you would like to enter the student's grade again please enter [remark]")

                remark = Console.ReadLine

                If remark = "remark" Then

                    GoTo restart

                Else

                    Console.WriteLine("This student's grade will be deleted and show as 0% on their report")

                    studentgrade(i) = 0

                End If

            End If

            Console.WriteLine(studentname(i) & " =" & studentgrade(i) & "%")

        Next

​

        'AVERAGE'

        For i = 1 To 10

            avg = avg + studentgrade(i)

        Next

        avg = avg / 10

        Console.WriteLine("The class average is       " & avg & "%")

​

        'HIGHEST GRADE'

        For i = 1 To 10

            If studentgrade(i) > HGM Then

                HGM = studentgrade(i)

                HGMH = studentname(i)

            End If

        Next

        Console.WriteLine("The highest mark in this class is   " & HGM & "%" & " and the person who got the grade is   " & HGMH)

​

        'LOWEST GRADE'

        For i = 1 To 10

            If studentgrade(i) < LWM Then

                LWM = studentgrade(i)

                LWMH = studentname(i)

            End If

        Next

        Console.WriteLine("The lowest mark in this class is   " & HGM & "%" & " and the person who got the grade is   " & HGMH)

​

        Console.ReadLine()

    End Sub

​

End Module