Написать программу в VBA арифметической прогрессии в динамическом массиве - VBA
Формулировка задачи:
помогите пожалуйста написать эту программу:
Арифметическая прогрессия, предполагаем, что формулу не знаем.
Определяем динамический массив.
В динамический массив все n членов записываем (a1 в массив, а2 = а1 + d).
И потом берем и все складываем.
Заранее большое спасибо!
Код к задаче: «Написать программу в VBA арифметической прогрессии в динамическом массиве - VBA»
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
СОХРАНИТЬ ССЫЛКУ