Mega Code Archive

 

Categories / VisualBasic Script / Date Functions

 

Dynamic Arrays

Sub arrayTest1()      Dim i As Integer      Dim intMyScores() As Integer      Dim intArraySize As Integer      intArraySize = 10           ReDim intMyScores(intArraySize)           For i = 1 To intArraySize         intMyScores(i) = i      Next           For i = 0 To intArraySize         Debug.Print "For array element " & i & " the number is " & intMyScores(i)     Next End Sub