VBA инициализация массива

[EgorAvtoMMG]

Здравствуйте! Подскажите, пожалуйста, как правильно инициализировать в VBA массив, который состоит из элементов: 12 16 1 1 11 6 8 10 15 9.

[Maslov]

1. Dim a As Variant 
2. a = Array(12, 16, 1, 1, 11, 6, 10, 15, 9) 

[EgorAvtoMMG]

не получилось, вышла ошибка "Invalid outside procedure" и выделен первый элемент массива

[Maslov]

Если у Вас глобальный массив, инициализировать его придется в какой-нибудь подпрограмме.

Используется синтаксис Visual Basic

Dim g As Variant, f As Variant
 
Sub init()
    g = [{1, 2, 3}]
    f = [{1, 2; 3, 4; 5, 6}]
End Sub
 
Sub test()
    Dim b As Variant, c As Variant
    Call init
    b = f(1, 2)
    c = g(1)
    MsgBox b
    MsgBox c
End Sub

[EgorAvtoMMG]

К сожалению, я не смог до конца понять работу с массивами в этом языке, давайте, я приведу задание:
"Что будет напечатано в окне отладки программы после выполнения процедуры Massiv(), если в исходном массиве записаны следующие числа?
12 16 1 1 11 6 8 10 15 9
Dim A(1 To 10) As Integer
Const n = 10
Private Sub Massiv()
Dim Sa As Integer
Dim i As Byte, k As Byte
For i = 1 To n
Sa = Sa + A(i) / n
Next
k = 0
For i = 1 To n
If A(i) < Sa Then A(i) = Sa: k = k + 1
Next
Debug.Print Sa; k
End Sub"

[Maslov]

Что конкретно непонятно?

Если вставляете в сообщение код, пользуйтесь, пожалуйста, тегом syntax:

[syntax lang=vb lines=n]
Dim A(1 To 10) As Integer
Const n = 10
Private Sub Massiv()
    Dim Sa As Integer
    ...
End Sub
[/syntax]

[EgorAvtoMMG]

Не понятно как инициализировать массив с заданными элементами, и ещё инициализация массива 2D с заданными элементами. Инициализация обычного массива понятна, а вот если надо задать конкретные элементы, в учебнике моём этого нет, а в экзамене есть!

[Maslov]

Чем Вас не устраивает мой ответ здесь?
g - одномерный массив (1, 2, 3), f - двумерный ((1, 2), (3, 4), (5, 6)).

[EgorAvtoMMG]

Извините, не сообразил, правильно ли я Вас понял:

Используется синтаксис Visual Basic

Dim A As Variant
Sub init()
g = [(12, 16, 1, 1, 11, 6, 8, 10, 15, 9)]
End Sub
Const n = 10
Private Sub Massiv()
Dim Sa As Integer
Dim i As Byte, k As Byte
For i = 1 To n
Sa = Sa + A(i) / n
Next
k = 0
For i = 1 To n
If A(i) < Sa Then A(i) = Sa: k = k + 1
Next
Debug.Print Sa; k
End Sub
 

Так получил ответ 0 0, ответ не верный

[Maslov]

Есть два варианта:

Если массив описан как Variant, инициализировать его можно константным выражением

Используется синтаксис Visual Basic

Dim A As Variant
Conts n = 10

Sub Test
    A = [{12, 16, 1, 1, 11, 6, 8, 10, 15, 9}]
    ' Или A = Array(12, 16, 1, 1, 11, 6, 8, 10, 15, 9)
    Call Massiv
End Sub

Private Sub Massiv()
    ...
End Sub

Если массив уже размещен (как в Вашем случае), инициализировать придется поэлементно:

Используется синтаксис Visual Basic

Dim A(1 To 10) As Integer
Conts n = 10

Sub Test
    A(1) = 12
    A(2) = 16
    ...
    A(10) = 9
    Call Massiv
End Sub

Private Sub Massiv()
    ...
End Sub

В обоих случаях запускать надо Test

[EgorAvtoMMG]

уф! получилось! Большое Вам Спасибо!
Подскажите, ещё правильно ли я понимаю, что если бы был двумерный массив то синтаксис был бы таким:

Используется синтаксис Visual Basic

Sub Test
     A(1) = 12, n1
     A(2) = 16, n2
     ...
     A(10) = 9, n10
     Call Massiv
End Sub
 

[Maslov]

EgorAvtoMMG в сообщении #439921 писал(а):

правильно ли я понимаю, что если бы был двумерный массив то синтаксис был бы таким

Неправильно понимаете. Правильное понимание такое:

Используется синтаксис Visual Basic

Dim A(1 To 10, 1 To 2) As Integer
Sub Test()
    A(1, 1) = 12
    A(1, 2) = n1
    A(2, 1) = 16
    A(2, 2) = n2
    ...
End Sub

[EgorAvtoMMG]

Всё понял, большое Спасибо!