A.Dim art()As integer ... ReDim air(3,5)
B.Dim alr()As Integer ... ReDim an(50)As String
C.Dim art() ... ReDim an(50)As Integer
D.Dim an(50)As Integer ... ReDim an(20)