完善程序，使其能输出1-2+3-4+5-6+……+99-100的值。程序如下：

Private Sub Command1_Click()

    S=

    For i = 1 To

        S = S+((-1)^()) *i

    Next i

    Print s

End Sub