Imports System

Public Module Module1

    Public Sub Main()

        dim studentname (29) as string

        dim smarkstest1 (29) as double

        dim smarkstest2 (29) as double

        dim smarkstest3 (29) as double

        dim stotalscore (29) as double

        dim total as double

        dim sum as double = 0

        dim count as integer =0

        dim numericcheck as boolean

        for count = 0 to 29 

        console.WriteLine("Enter student's name")

        studentname(count) = console.ReadLine()

        console.WriteLine("Enter marks for test 1, which is out of 20 marks")

        smarkstest1(count) = console.ReadLine()

        numericcheck= IsNumeric(smarkstest1(count))

        if numericcheck = 1

            smarkstest1(count) = console.ReadLine()

        else

            console.WriteLine("Invalid entry of marks. Please try again")

        end if

        console.WriteLine("Enter marks for test 2, which is out of 25 marks")

        smarkstest2(count) = console.ReadLine()

        numericcheck= IsNumeric(smarkstest2(count))

        if numericcheck = 1

            smarkstest2(count) = console.ReadLine()

        else

            console.WriteLine("Invalid entry of marks. Please try again")

            end if

        console.WriteLine("Enter marks for test 3, which is out of 35 marks")

        smarkstest3(count) = console.ReadLine()

        numericcheck= IsNumeric(smarkstest3(count))

        if numericcheck = 1

            smarkstest3(count) = console.ReadLine()

        else

            console.WriteLine("Invalid entry of marks. Please try again")

            end if 

        total = smarkstest1(count) + smarkstest2(count) + smarkstest3(count) 

        stotalscore(count) = total

        sum = sum + total

        console.WriteLine("Name of student and their toal marks:")

        console.WriteLine(studentname(count))

        console.WriteLine(stotalscore(count))

    next 

    End Sub

End Module