Module Module1
Sub Main()
Dim Scores(2) As Integer
Scores(0) = 45
Scores(1) = 55
Scores(2) = 65
For intLoopIndex As Integer = 0 To UBound(Scores)
Console.WriteLine("Score(" & intLoopIndex & ") = " & Scores(intLoopIndex))
Next intLoopIndex
End Sub
End Module
Score(0) = 45
Score(1) = 55
Score(2) = 65