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

Sub progr()
Dim R() As Single
Dim n As Integer, a1 As Single, d As Single
n = InputBox("n=")
a1 = InputBox("a1=")
d = InputBox("d=")
ReDim R(1 To n)
R(1) = a1
sum = R(1)
s = CStr(R(1)) + " "
For i = 2 To n
R(i) = R(1) + (i - 1) * d
sum = sum + R(i)
s = s + CStr(R(i)) + " "
Next i
s = s + " Sum=" + CStr(sum)
MsgBox s
End Sub

в бэйсике массивы с нуля индексируются
Массив (0) должен чем то иницилизироваться либо через инпутбокс запрашиваться у юзера
это первый элемент
Ну у тебя переменная должна быть задает выход из цикла
и цикл с предусловием до начала цикла переменная иницилизируется в ложб (не выходить из цикла)
потом спрашивает юзера хочет ли он выйти из цикла по да выходит месадж бок можно использовать
счетчик увеличивается на единицу при иницилизации делай его в ноль
Массив (счетчик) =Массив (Счетчик-1)+d
d тоже перед этим можно спросить или константа
для начала d можешь сделать константой потом если будет работать изменить на ввод юзером
ну и вывод в цикле через оператор for
можно конкантинировать просто строку StrOutput=StrOutput & Массив (житый) & " " в цикле