Найти сумму всех чисел последовательности - VB
Формулировка задачи:
Дана непустая последовательность целых чисел, оканчивающаяся 0.
Найти:
а) сумму всех чисел последовательности
б) кол-во всех чисел последовательности
Предложите вариант решения.
Решение задачи: «Найти сумму всех чисел последовательности»
textual
Листинг программы
Private Sub Command1_Click()
Dim i As Integer, a As Integer, sum As Long
Do
a = Val(InputBox("Введите число."))
sum = sum + a
i = i + 1
Loop Until a = 0
MsgBox "Количество чисел последовательности = " & i - 1 & vbCrLf & _
"Сумма чисел последовательности = " & sum
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д