Написать программу в VBA арифметической прогрессии в динамическом массиве - VBA

Формулировка задачи:

помогите пожалуйста написать эту программу: Арифметическая прогрессия, предполагаем, что формулу не знаем. Определяем динамический массив. В динамический массив все n членов записываем (a1 в массив, а2 = а1 + d). И потом берем и все складываем. Заранее большое спасибо!

Код к задаче: «Написать программу в VBA арифметической прогрессии в динамическом массиве - VBA»

textual
Sub Всё_складываем()
Dim b() As Single, q As Single, элемент, сумма
 
n = InputBox("Введите количество членов прогрессии")
ReDim b(1 To n)
b(1) = InputBox("Введите первый член прогрессии")
q = InputBox("Введите шаг прогрессии")
элемент = b(1) & " "
сумма = b(1)
For i = 2 To n
b(i) = b(i - 1) + q
элемент = элемент & b(i) & " "
сумма = сумма + b(i)
Next i
MsgBox элемент
MsgBox сумма
End Sub

13   голосов, оценка 3.923 из 5


СОХРАНИТЬ ССЫЛКУ