Как на VBA написать массив?

Question

[Валерия Бядретдинова]

Дана последовательность целых чисел. Найти числа этой последовательности, наименее и наиболее отклоняющиеся от среднего арифметического чисел исходной последовательности, напечатать найденные числа и их номера с указанием отклонения.

На картинке показано, как программа работала на C++.

Answer 1

[h8nor]

Так объявляются статические массивы (границы массива изменять нельзя):

' 1 - нижняя граница массива, 5 - верхняя граница массива
Dim arr(1 To 5) As Integer
' Если не объявлять нижнюю границу,
' то по умолчанию в Excel нижняя граница массива будут начинаться с 0 до 5

Динамические массивы объявляются безразмерными, затем для изменения границ массива используется оператор ReDim. Параметр Preserve можно опустить:

Dim arr() As Integer
b = 5
' Параметр Preserve нужен для сохранения значений в массиве при изменении верхней границы
ReDim Preserve arr(1 To b)

ЗЫ: Если всё понятно, внизу ответа нужно нажать кнопку "Отметить решением" :)

Answer 2

[Rou1997]

Dim arr(5) As Integer

Comments

[Валерия Бядретдинова]

Ты задал массив из 5. А как сделать так, чтобы это число можно было самому вводить, т.е. любое?

[Rou1997]

Валерия Бядретдинова:
Dim L As Integer
L = 5
Dim Arr(L) As Integer

[Валерия Бядретдинова]

Rou1997: спасибо)