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