Шпоры по информатике3 / Сумма последовательности

Сумма последовательностей

Private Sub Command1_Click()

Picture1.Cls

List1.Clear

s = 0

a = 1

For k = 1 To Text1

a = a * (1 + 1 / k) * k

s = s + a

List1.AddItem a

Next k

Picture1.Print Format(s, "0.000")

End Sub

Private Sub Command2_Click()

Picture1.Cls

List1.Clear

Text1 = M

End Sub

Private Sub Command3_Click()

End

End Sub