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