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