Imports System

Public Module Module1

    Public Sub Main()

        Dim i,sum as integer

        Dim marks(4) as integer

        Dim students(4) as string

        sum=0

        i=0

        Do

            Console.WriteLine("Enter a name of students")

            students(i)=console.ReadLine()

            Console.WriteLine("Enter a marks of students")

            marks(i)=console.ReadLine()

            sum = sum + marks(i)

            i = i+1

        loop until i>=5

        console.writeline("The average of values is "&sum/5)

    End Sub

End Module