Imports System

​

Public Module Module1

​

    Public Sub Main()

        TaskOne()

    End Sub

​

    Public Sub TaskOne()

        Console.Writeline("Hello World")

        dim sname(29) as string

        dim t1score(29) as integer

        dim t2score(29) as integer

        dim t3score(29) as integer

        dim tscore(29) as integer

        dim cscore as integer

        Console.Writeline("Please enter the student's name and then their score for each test:")

        For i = 0 to 29

            Console.Writeline("Student no." & i + 1 & "'s name:")

            sname(i) = Console.Readline()

            Console.Writeline("Test 1 mark:")

            t1score(i) = Console.Readline()

            if t1score(i) > 20 or t1score(i) < 0 then

                Do

                    Console.Writeline("Error. Please enter a value between 0 and 20:")

                    t1score(i) = Console.Readline()

                Loop until t1score(i) > -1 and t1score(i) < 21

            End if

​

            Console.Writeline("Test 2 mark:")

            t2score(i) = Console.Readline()

            if t2score(i) > 25 or t2score(i) < 0 then

                Do

                    Console.Writeline("Error. Please enter a value between 0 and 25:")

                    t2score(i) = Console.Readline()

                Loop until t2score(i) > -1 and t2score(i) < 26

            End if

​

            Console.writeline("Test 3 mark:")

            t3score(i) = Console.Readline()

            if t3score(i) > 35 or t3score(i) < 0 then

                Do

                    Console.Writeline("Error. Please enter a value between 0 and 35:")

                    t3score(i) = Console.Readline()

                Loop until t3score(i) > -1 and t3score(i) < 36

            End if

        tscore(i) = t1score(i) + t2score(i) + t3score(i)

        Next

    for i = 0 to 29

    cscore = cscore + tscore(i)

next

    End Sub

End Module

​