Вычислите значение суммы членов ряда - VB
Формулировка задачи:
Вычислите значение суммы членов ряда c помощью функций VBA
Вычислите значение суммы А членов ряда: 13+В*2/1+В*4/3+В*6/5+
А>0, В>0. А и В вводятся с клавиатуры.
Решение задачи: «Вычислите значение суммы членов ряда»
textual
Листинг программы
Sub work()
Dim i, A, B, D, Sum As Single
N = InputBox("Ввод членов цикла A")
k = InputBox("Ввод пременной B")
i = 0
Sum = 0
For i = 0 To N Step 1
If A > 0 And B > 0 Then
Z = 13 + B * ((2 * A) / A)
Sum = Sum + Z
i = i + 1
End If
Next i
MsgBox "Ответ: " & Sum
End Sub