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