Module Module1 Sub Main() Dim Scores() As Integer ReDim Scores(1) Scores(0) = 25 Scores(1) = 75 ReDim Preserve Scores(5) Scores(2) = 95 Scores(3) = 35 Scores(4) = 65 Scores(5) = 85 Console.WriteLine("Scores(3) = " & Scores(3)) End Sub End Module
Scores(3) = 35