Массив: Вывести на печать все числа до нуля включительно - VBA

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

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

Дана последовательность чисел, среди которых имеется один нуль. Вывести на печать все числа до нуля включительно.

Решение задачи: «Массив: Вывести на печать все числа до нуля включительно»

textual
Листинг программы
a = Array(40, 20, 1, 20, 0, 4, 10, 34, 10)
i = LBound(a) - 1
Cls
Do
i = i + 1
Print a(i); vbTab;
Loop Until a(i) = 0 Or i = UBound(a)

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


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

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

7   голосов , оценка 3.857 из 5
Похожие ответы