Пишу для сестренки прогу, но вот массив констант никак у меня не задается. Помогите разобратся с программой
массив А={2; -6; О; 4; -4; -2; 2}
я пишу в VBA

const A(1 To 7) As Integer = array(2,-6,0,4,-4,-2,2)
Dim W As Double
Dim N As Byte
Dim i As Byte


N = 7
W = 0

For i = 1 To N
W = A(i) ^ 2 / 2
Next i

MsgBox (W)

End Sub


const A(1 To 7) As Integer = array(2,-6,0,4,-4,-2,2) - это объявление массива не работает
если объявлять Dim A(1 To 7) As Integer а потом еще А = [2,-6, О, 4, -4, -2, 2]
тоже не работает...выдает ошибку и все элементы массива идут равные 0.

Вся проблема в том, что у меня массив из чисел, а не символов =(