From the code:
Sub LearningArray
Dim MyArrayVar1(5) As String
Dim MyArrayVar2$(5)
t = t & "Dim MyArrayVar1(5) As String or Dim MyArrayVar2$(5) = " & (Ubound(MyArrayVar1)) - (Lbound(MyArrayVar1)) + 1 & " element(s)." & Chr(13)
Dim MyArrayVar3(1 To 5) As String
t = t & "Dim MyArrayVar3(1 To 5) As String = " & (Ubound(MyArrayVar3)) - (Lbound(MyArrayVar3)) + 1 & " element(s)." & Chr(13)
Dim MyArrayVar4(5,5) As String
t = t & "Dim MyArrayVar4(5,5) As String = " & "36" & " element(s)." & Chr(13)
Dim MyArrayVar5$(-4 To 5, -4 To 5)
t = t & "Dim MyArrayVar5$(-4 To 5, -4 To 5) = " & "100" & " element(s)." & Chr(13)
Dim MyArrayVar6()
t = t & "Dim MyArrayVar6() = " & (Ubound(MyArrayVar6)) - (Lbound(MyArrayVar6)) + 1 & " element(s)." & Chr(13)
MsgBox "All about array:" & Chr(13) & t
End Sub
What should be the calculation for the result “36” and “100” of those 2-dimensional arrays respectively ?