Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim stdn(29) As String

        Dim tmrks(29) As Integer

        Dim mrks1(29) As Integer

        Dim mrks2(29) As Integer

        Dim mrks3(29) As Integer

        Dim i, a, top As Integer

        Dim avg As Double = 0

        Dim std As String

        For i = 0 to 29

            a = i

            Console.WriteLine("Input the name of the student #" & i + 1, ".")

            stdn(i) = Console.ReadLine()

            Console.WriteLine("Input the marks for the 1st Test out of 20.")

            mrks1(i) = Console.ReadLine()

            If mrks1(i) > 20 or mrks1(i) < 0 Then

                Console.WriteLine("The input marks are invalid! Test 1 is only out of 20. Please input the valid marks for Test 1 after the following questions.")

                a = a - 1

            End If

​

            Console.WriteLine("Input the marks for the 2nd Test out of 25.")

            mrks2(i) = Console.ReadLine()

            If mrks2(i) > 25 or mrks2(i) < 0 Then

                Console.WriteLine("The input marks are invalid! Test 2 is only out of 25. Please input the valid marks for Test 2 after the following questions.")

                a = a - 1

            End If

​

            Console.WriteLine("Input the marks for the 3rd Test out of 35.")

            mrks3(i) = Console.ReadLine()

            If mrks3(i) > 35 or mrks3(i) < 0 Then

                Console.WriteLine("The input marks are invalid! Test 3 is only out of 35. Please input the valid marks for Test 3 after the following questions.")

                a = a - 1

            End If

​

            If a < i Then

                i = i - 1

            End If

        Next

​

        Console.WriteLine("Total marks for each student out of 80.")

        For i = 0 to 29

            tmrks(i) = mrks1(i) + mrks2(i) + mrks3(i)

            Console.WriteLine(i + 1 & "." & stdn(i) & ":" & tmrks(i))

            avg = avg + tmrks(i)

        Next

​

        avg = avg / 30

        Console.WriteLine("The total average of the whole class is " & avg & ".")

        top = 0

        std = 0

        For i = 0 to 29

            If top < tmrks(i) Then

                top = tmrks(i)

                std = stdn(i)

            End If

        Next

​

        Console.WriteLine("The student with the highest score is " & std & " with the total marks of " & top & " out of 80 marks!")

        Console.ReadLine()

    End Sub

End Module

​