Всем привет,

Не могу понять почему не получается.

Пишу в разделе General Declarations:

Option Base 1
Type Brand
    Name As String
    Week(53) As Double
End Type

Private Sub cmdGo_Click()
    Dim aaa As Brand
End Sub

Если потом посмотреть на aaa.week то массив будет начинаться с нулевого элемента. Почему? А главное как победить, чтобы начиналось с единицы.

'Option Base 1
Type Brand
    Name As String
    Week(1 To 53) As Double
End Type