Сумма членов арифметической прогресии - VB

Private Sub Command1_Click()
n = 3
d = 5
a = 5
s = (2 * a + d * (n - 1) / 2) * n
Text1.Text = s
End Sub

пишу так, а оно неправильный результат дает! найдите ошибку, и помогите )

textual
                            Листинг программы 
                        
                            s = ((2 * a + d * (n - 1)) / 2) * n

Оцени полезность:

5 голосов , оценка 4 из 5

Похожие ответы