Imports System

Public Module Module1

    Public Sub Main()

​

        Dim StudentName(3) As String

        Dim TestScore(3) As Integer

        Dim i As Integer

        For i = 0 to 3

        Console.WriteLine("Enter student name")

        StudentName(i) = Console.ReadLine()

        Console.Writeline ("Enter " & StudentName(i) & "'s score")

        TestScore(i) = Console.Readline()

    Next

​

    End Sub

End Module