Задание по рядам - VB

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

дан ряд : y = (2*x^3)/7 - (4*x^6)/9 + (6*x^9)/11 - (8*x^12)/13 + ... + (14*x^21)/19 ряд отобразить на экранной форме вычислить и напечатать значение y знаю,что задача достаточно легкая,но все мысли о курсовой,не успеваю совсем помогите)

Решение задачи: «Задание по рядам»

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

                            Private Sub Command1_Click()
Dim i As Byte, j As Byte, l As Integer, x As Integer, sum As Double
x = Val(InputBox("Г‚ГўГҐГ¤ГЁГІГҐ x: "))
l = -1
sum = 0
For i = 1 To 7
 l = -l
 Print "sum=" & "sum+" & l & "*(" & i * 2 & "*" & x & "^" & i * 3 & ")/" & i - 1 + 7 + (i - 1 Mod 2)
 sum = sum + l * (((i * 2) * x ^ (i * 3)) / (i - 1 + 7 + (i - 1 Mod 2)))
Next i
Print sum
End Sub
                        