Программирование 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 Integer
Dim arr() As Integer
Dim i As Integer
N = 10
A = 5
B = 2
ReDim arr(1 To N)
For i = 1 To N
arr(i) = (A - B) * i ^ 2
Next i
' Вывод исходного массива
For i = 1 To N
Debug.Print arr(i)
Next i
' Вставка элемента равного 30 перед 8 элементом
N = N + 1
ReDim Preserve arr(1 To N)
For i = N To 9 Step -1
arr(i) = arr(i - 1)
If i = 9 Then
arr(i - 1) = 30
End If
Next i
' Вывод измененного массива
For i = 1 To N
Debug.Print arr(i)
Next i
End Sub

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

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