Question

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

Answer 1

Sub Zadanie()
    s = 0

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

    MsgBox s
End Sub

Call Zadanie()