Imports System

Public Module Module1

    Sub Main()

        Dim ClassSize As Integer = 2 'declare the size of the class

        Dim SubjectNo As Integer = 2 'declare the number of subjects

​

        Dim total As Integer = 0 ' hold the totals for each course and student

        Dim average As Integer = 0 'use for calculating the averages

​

        Dim StudentName(ClassSize) As String 'declare the Array StudentName - notice I used classsize to initialise or use 2 instead of classize

        Dim StudentMark(SubjectNo, ClassSize) ' Declare the 2 dimential Array StudentMark - notice I used SubjectNo for the size

        Dim Distinctions As Integer

        Dim Merits As Integer

        Dim Passes As Integer

        Dim Fails As Integer

​

        'You will not be asked to write these.

        '************************************************

        StudentName(0) = "Xon"

        StudentName(1) = "Radler"

        StudentName(2) = "OceanPeace"

​

        StudentMark(0, 0) = 1

        StudentMark(0, 1) = 2

        StudentMark(0, 2) = 3

​

        StudentMark(1, 0) = 34

        StudentMark(1, 1) = 95

        StudentMark(1, 2) = 34

​

        StudentMark(2, 0) = 12

        StudentMark(2, 1) = 67

        StudentMark(2, 2) = 84

​

        '************************************************

​

        For j = 0 To StudentMark.GetUpperBound(1) ' loop the marks for each course

​

            Console.WriteLine(StudentName(j) & " scored ") 'writing the name of the student

​

            For i = 0 To StudentMark.GetUpperBound(0)  'loop student mark

​

                total += StudentMark(i, j) 'initialise the totals

​

                Console.WriteLine("{0,-3}", StudentMark(i, j)) ' print out

​

            Next

​

            Console.WriteLine("Total Marks " & total) 'show the totals for each student

            average = total / SubjectNo

            Console.WriteLine("Average Marks " & average) 'show the average for each student

            If average >= 70 Then

                Console.WriteLine("distinction")

                Distinctions += 1

            ElseIf average >= 55 And average < 70 Then

                Console.WriteLine("merit")

                Merits += 1

            ElseIf average >= 40 And average < 55 Then

                Console.WriteLine("pass")

                Passes += 1

            ElseIf average < 40 Then

                Console.WriteLine("fail")

                Fails += 1

            Else

                Console.WriteLine("An error has occured")

            End If

            'or

​

            Select Case average

                Case >= 70

                    Console.WriteLine("distinction")

                    Distinctions += 1

                Case >= 55 And average < 70

                    Console.WriteLine("merit")

                    Merits += 1

                Case >= 40 And average < 55

                    Console.WriteLine("pass")

                    Passes += 1

                Case < 40

                    Console.WriteLine("fail")

                    Fails += 1

                Case Else

                    Console.WriteLine("An error has occured")

            End Select

​

            total = 0

            average = 0

​

            Console.WriteLine() ' creates a line

​

        Next

​

            Console.WriteLine("Distinctions " & Distinctions)

            Console.WriteLine("Merits " & Merits)

            Console.WriteLine("Passes " & Passes)

            Console.WriteLine("Fails " & Fails)

​

        Console.ReadLine()

    End Sub

​

End Module