Составьте блок-схему и программу на языке 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

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