Программирование Visal Basic VBA. Массивы Даны три целых числа: N (> 2), A и B (A>B). Сформировать
целочисленный массив размера N, каждый элемент которого
рассчитывается по формуле: (А-В)*I^2, где I – индекс элемента массива.
Вывести полученный массив. Вставить новый элемент массива, равный
30, перед 8 элементом. Вывести изменённый массив.

Предыдущий
вопрос Следующий
вопрос

Вот пример кода на VBA, который реализует описанную задачу:

Sub CreateArray(
Dim N As Integer, A As Integer, B As Intege
Dim arr() As Intege
Dim i As Intege
N = 1
A =
B =
ReDim arr(1 To N
For i = 1 To
arr(i) = (A - B) * i ^
Next
' Вывод исходного массив
For i = 1 To
Debug.Print arr(i
Next
' Вставка элемента равного 30 перед 8 элементо
N = N +
ReDim Preserve arr(1 To N
For i = N To 9 Step -
arr(i) = arr(i - 1
If i = 9 The
arr(i - 1) = 3
End I
Next
' Вывод измененного массив
For i = 1 To
Debug.Print arr(i
Next
End Sub

Этот код сначала создает массив из N элементов, вычисляя каждый элемент по заданной формуле. Затем вставляет новый элемент со значением 30 перед 8 элементом и выводит измененный массив.

Чтобы запустить этот код, вам нужно открыть Visual Basic Editor в Excel (нажмите Alt + F11), создать новый модуль и вставить этот код в модуль. Затем запустите процедуру CreateArray.