Data Type VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Data Type
  4. Erasing Arrays
Sub arrayTest4()
     Dim i As Integer
     Dim intMyScores() As Integer
     Dim intArraySize As Integer
    
     intArraySize = 10
    
     ReDim intMyScores(1 To intArraySize)
    
     For i = 1 To intArraySize
        intMyScores(i) = i
     Next
    
     For i = 1 To intArraySize
        Debug.Print "For array element " & i & " the number is " & intMyScores(i)
     Next
     Erase intMyScores
End Sub