Нужно сделать в VBA сумму вот такого ряда через Do While 1-2+3-4+5-6...-100. Сколько...

Question

Нужно сделать в VBA сумму вот такого ряда через Do While 1-2+3-4+5-6...-100. Сколько пытался, не получается, помогите, пожалуйста

Answer 1

Sub aaa()
    s = 0: sign = 1
    i = 1
    Do While i <= 100<br>        s = s + sign * i
        sign = -sign
        i = i + 1
    Loop
    MsgBox s
End Sub

В результате будет получено значение -50.