Как найти сумму последовательности положительных чисел, предшествующих первому введенному нулю - 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