Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

        Dim names(2)

        Dim marks(3)

        for i = 0 to 2

        Console.Writeline("Please enter student " & (i) & " name")

        names(i)=Console.Readline()

        For c =1 to 3

        Console.WriteLine("Please enter student " & names(i) & " mark for test " & (c))

        marks(c)=console.ReadLine()

    NEXT

    Console.Writeline("The total mark for student " & names(i) & " is " & (+marks(1)+marks(2)+marks(3)) & "/80")

next

​

    End Sub

End Module