Imports System

Public Module Module1

    Public Sub Main()

        Dim StudentName As String

        Dim Sum As Integer

        Dim Count As Integer

        Dim Mark As Integer

        Dim AverageMark As Integer

​

        StudentName = console.ReadLine()

        While StudentName <> "End"

            Sum = 0

            Count = 0

            Mark = console.ReadLine()

            While Mark >= 0

                Sum = Sum + Mark

                Count = Count + 1

                Mark = Console.ReadLine()

            End While

                AverageMark = Sum / Count

                Console.writeline( "The Average Mark For" & " " & StudentName & " is " & AverageMark)

                    StudentName = Console.ReadLine()

​

            End While

    End Sub

End Module