Составьте блок-схему и программу на языке VBA, которая вычисляет сумму положительных чисел из введенной с клавиатуры последовательности целых чисел (длина последовательности не ограничена). Признаком конца последовательности яв...
Составьте блок-схему и программу на языке VBA, которая вычисляет сумму положительных чисел из введенной с клавиатуры последовательности целых чисел (длина последовательности не ограничена). Признаком конца последовательности является ввод нуля.
Гость
Ответ(ы) на вопрос:
ГостьSub My_VBA()
s = 0
Do
n = InputBox("введите число, 0 - конец ввода")
If n > 0 Then s = s + n
Loop Until n = 0
MsgBox "Сумма положительных чисел равна " + Str(s)
End Sub
Блок-схема во вложении
Не нашли ответ?
Похожие вопросы