Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Test the effect of the Option Base statement

Option Base 1      Sub Array1()          Dim aiData(10) As Integer          Dim i As Integer          For i = LBound(aiData) To UBound(aiData)              aiData(i) = i          Next i          Debug.Print "Lower Bound = " & LBound(aiData)          Debug.Print "Upper Bound = " & UBound(aiData)          Debug.Print "Num Elements = " & WorksheetFunction.Count(aiData)          Debug.Print "Sum Elements = " & WorksheetFunction.Sum(aiData)      End Sub