Нужно написать массив вба

Попробуй

Sub CountOddNumbers()
'размеры массива
Dim M As Integer: M = 3 'количество строк
Dim N As Integer: N = 4 'количество столбцов

'создание и заполнение массива случайными числами
Dim arr(M - 1, N - 1) As Integer
Dim i As Integer, j As Integer
For i = 0 To M - 1
For j = 0 To N - 1
arr(i, j) = Int(Rnd() * 10) + 1 'случайное число от 1 до 10
Next j
Next i

'подсчет количества и суммы всех нечетных чисел
Dim count As Integer: count = 0
Dim sum As Integer: sum = 0
For i = 0 To M - 1
For j = 0 To N - 1
If arr(i, j) Mod 2 = 1 Then 'если число нечетное
count = count + 1
sum = sum + arr(i, j)
End If
Next j
Next i

'вывод результатов
MsgBox "Количество нечетных чисел: " & count & vbCrLf & "Сумма нечетных чисел: " & sum
End Sub

Чтобы сформировать многомерный массив в VBA, используйте следующий синтаксис:

```
Dim arr (1 в строки, 1 в столбцы) As DataType
```

Где «rows» и «columns» — это количество строк и столбцов в массиве, а «DataType» — это тип данных элементов в массиве (например, Integer, String, Double и т. д.).

Например, чтобы создать двумерный массив с 3 строками и 4 столбцами целых чисел, используйте следующий код:

```
Dim myArray (от 1 до 3, от 1 до 4) как целое число
```

Затем вы можете присвоить значения элементам массива, используя следующий синтаксис:

```
мой массив (1, 1) = 10
мой массив (1, 2) = 20
мой массив (1, 3) = 30
мой массив (1, 4) = 40
мой массив (2, 1) = 50
мой массив (2, 2) = 60
мой массив (2, 3) = 70
мой массив (2, 4) = 80
мой массив (3, 1) = 90
мой массив (3, 2) = 100
мой массив (3, 3) = 110
мой массив (3, 4) = 120