直接看代码
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim a As Integer = 0
'单次自加
a += 1
MsgBox(a)
'循环自加
For a = 1 To 10
Next
MsgBox(a)
End Sub
以上代码输出结果为1和11如下图
如需自减则为a-=1,for 中加入step -1