Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии - VB

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

3. Дано целое число N (> 1), а также первый член A и разность D арифметической прогрессии. Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии: A, A + D, A + 2•D, A + 3•D, … . вот у меня есть код из похожего задания, но оно отличается от этого, может кто изменит код согласно моему заданию:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim n, i As Integer
Dim a() As Integer
n = Val(Text1.Text)
If n < 1 Then
MsgBox "Введите n>=1", vbInformation, "", 0
Else
ReDim a(n)
a(1) = 1
a(2) = 1
Text2.Text = CStr(a(1)) + " " + CStr(a(2)) + " "
For i = 3 To n
a(i) = a(i - 1) + a(i - 2)
Text2.Text = Text2.Text + CStr(a(i)) + " "
Next i
End If
End Sub

Решение задачи: «Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim N As Integer, D As Integer, A() As Integer, i As Integer
   N = InputBox("Введите N ", , 5) ' номер члена
   ReDim A(1 To N)
   A(1) = InputBox("Первый член прогрессии = ", , 3) '3 'первый член прогрессии
   D = InputBox("Шаг =", , 3) ' разность
   Print "A(1) = " & A(1), "D = " & D, "N = " & N
   Print
   For i = 2 To N
         A(i) = A(1) + D * (i - 1)
   Next i
   For i = 1 To N
        Print A(i);
   Next i
End Sub