Question

Составьте блок-схему и программу на языке VBA, которая вычисляет сумму положительных чисел из введенной с клавиатуры последовательности целых чисел (длина последовательности не ограничена). Признаком конца последовательности является ввод нуля.

Answer 1

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

Блок-схема во вложении