Вычислите значение суммы членов ряда - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

8   голосов , оценка 4.25 из 5
Похожие ответы