lolloll

Module VBModule
 
    Sub Main()
        Dim scores(6) As Integer
        Dim count As Integer
        For count = 1 To 6 ' Ignoring element 0
            Console.WriteLine("Please enter test score for student " & count)
            scores(count) = Console.Readline
        Next
            Console.Writeline()
            Console.WriteLine("The entered scores are:")
        For count = 1 To 6
            Console.Writeline("Student " & count & " = " & scores (count))
        Next
            Console.Writeline("*** End of scores ***")
            Console.Readline()
    End Sub
  
End Module