Как найти сумму последовательности положительных чисел, предшествующих первому введенному нулю - VB
Формулировка задачи:
Написать программу поиска суммы последовательности положительных чисел,
вводимых с клавиатуры, предшествующих первому введенному нулю
Помогите пожалуйста...
заранее спасибо!
Решение задачи: «Как найти сумму последовательности положительных чисел, предшествующих первому введенному нулю»
textual
Листинг программы
- Private Sub Command1_Click()
- Dim sum As Long, a As Integer
- Randomize
- Do
- If a > 0 Then sum = sum + a
- a = InputBox("Введите положительное число.", "Ввод данных.", Int(Rnd * 9 + 1))
- Loop Until a = 0
- MsgBox sum
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д