Вычислите значение суммы членов ряда - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д