Найти сумму чисел от 1 до 5 ** языке бейсик

Question

Найти сумму чисел от 1 до 5 на языке бейсик

Comments

где условие?

Answer 1

Sub Zadanie()
    s = 0

    for i = 1 to 5
        s = s + i
    next

    MsgBox s
End Sub

Call Zadanie()