求解答

Private Sub Form_Click()
a=1
For i = 1 to 3
select case i
case 1,3
a = a + 1
case 2,4
a = a-2
end select
next i
msgbox a
end sub
为什么答案是5，求解答