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
        s = s + sign * i
        sign = -sign
        i = i + 1
    Loop
    MsgBox s
End Sub

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