Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

        Dim sc(3) as integer

        Dim st(3) as string

        Dim i as integer

​

        Dim max as integer = 0

        Dim max1 as string = "no one"

        for i = 0 to 3

​

        Console.WriteLine("Enter the name of the strudent")

        st(i) = console.ReadLine()

        Console.WriteLine("Enter the score of the student")

        sc(i) = console.ReadLine()

        If sc(i) > max then 

            max = sc(i)

            max1 = st(i)

        End if

        If st(i) = "." then

            exit for

        end if

    next

    Console.WriteLine("The top score is " & max)

    Console.WriteLine("The person with the top score is " & max1)

    End Sub

End Module