Date Functions VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Date Functions
  4. 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