Как найти сумму последовательности положительных чисел, предшествующих первому введенному нулю - VB

Узнай цену своей работы

Формулировка задачи:

Написать программу поиска суммы последовательности положительных чисел, вводимых с клавиатуры, предшествующих первому введенному нулю Помогите пожалуйста... заранее спасибо!

Решение задачи: «Как найти сумму последовательности положительных чисел, предшествующих первому введенному нулю»

textual
Листинг программы
  1. Private Sub Command1_Click()
  2.     Dim sum As Long, a As Integer
  3.     Randomize
  4.     Do
  5.         If a > 0 Then sum = sum + a
  6.         a = InputBox("Введите положительное число.", "Ввод данных.", Int(Rnd * 9 + 1))
  7.     Loop Until a = 0
  8.     MsgBox sum
  9. End Sub

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


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

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

11   голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы