вычислить сумму ряда у=1*3+3*5+5*7...+31*33

[lena.h]

и снова я к вам ещё есть вторая задача тоже надо сделать в vasual basic

[Dophin]

Sub pp()
Dim sum
Dim i As Integer
For i = 1 To 33 Step 2
sum = sum + (i * (i + 2))
Debug.Print i & " " & i + 2
Next i
MsgBox sum
End Sub

то есть так конечно)

[IgorGO]

порадуйте преподавателя рекурсивной функцией

Sub s1()
  MsgBox "Sum = " & SUM135(33)
End Sub

Function SUM135(d)
  If d = 1 Then Exit Function
  SUM135 = SUM135(d - 2) + d * (d - 2)
End Function