E làm bài tính tổng S = 1 + 2 -3 + 4 - 5 + 6...+n Tại sao k xuất ra được kết quả âm khi nhập = 7 hoặc bằng 5

Question

Private Sub bai13_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim n%
        n = InputBox("Nhập n ")
        MsgBox(TongS(n))
    End Sub
    Private Function TongS(ByVal n%) As Integer
        Dim i%, s%
        For i = 1 To n
            s = -s + i
        Next
        TongS = s
    End Function
End Class

Answer 1

s = -s + i
trừ S cộng i