Арифметическая прогрессия на Visual Basic - VB

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

Помогите решить задачу: Вывести на экран n первых членов арифметической прогрессии и вычислить их сумму: а1 = 2; d = – 2; an = an–1 + d; Sn = Sn–1 + an. Вот, что пока нахимичила:

Dim d As Integer
Dim n As Long
Dim i As Long
Dim T As Integer
Dim S As Double
Private Sub Command1_Click()
a1 = 2
d = -2
S = 0
Text3.Text = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ n", n)
For i = 2 To n Step -2
  T = a1 + (n - 1)
Next i
Text4.Text = T
S = (a1 + T) / 2 * i
Text2.Text = S
Next i
Text1.Text = Str(i)
End Sub

Но программа не работает должным образом. И ещё не знаю как вывести на экран n первых членов.

Решение задачи: «Арифметическая прогрессия на Visual Basic»

textual
                            Листинг программы 
                        

                            Option Explicit
 
 
Dim d As Integer
Dim n As Long
Dim i As Long
Dim T As Integer
Dim S As Double
Private Sub Command1_Click()
Dim a1
a1 = 2
d = -2
S = 0
n = InputBox("Введите n", n)
Text3.Text = n
T = a1
S = a1
Text2.Text = T
 
For i = 2 To n
        T = T + d
        S = S + T
        Text2.Text = Text2.Text & vbCrLf & T
Next i
Text1.Text = S
End Sub
                        