Private Sub CommandButton1_Click()
x = 0 '自定義初值為0的x
For i = 1 To 5 '因為沒有用step指定步長，預設為1，迴圈計數器的數值變數i將迴圈5次
x = x + 1 '每迴圈一次x就增加數值1
Next
MsgBox x '把算出來的x，也就是5,值用跳出視窗的方法顯示出來
End Sub

Private Sub CommandButton2_Click()
x = 0 '自定義初值為0的x
For i = 1 To 6 '因為沒有用step指定步長，預設為1，迴圈計數器的數值變數i將迴圈六次
x = x + i '每迴圈一次x就增加數值i
'第一次迴圈 x = 0 + 1 = 1
'第二次迴圈 x = 1 + 2 = 3
'第三次迴圈 x = 3 + 3 = 6
'第四次迴圈 x = 6 + 4 = 10
'第五次迴圈 x = 10 + 5 = 15
'第六次迴圈 x = 15 + 6 = 21
Next
MsgBox x '把算出來的x，也就是21,值用跳出視窗的方法顯示出來
End Sub

Private Sub CommandButton3_Click()
x = 2 '自定義初值為2的x
For i = 1 To 6 Step 2 '用step指定步長為2，迴圈計數器的數值變數i將迴圈3次,在1-6六個數字裡取1，3，5
x = x + i '每迴圈一次x就增加數值i
'第一次迴圈 x = 2 + 1 = 3
'第二次迴圈 x = 3 + 3 = 6
'第三次迴圈 x = 6 + 5 = 11
Next
MsgBox x '把算出來的x，也就是11,值用跳出視窗的方法顯示出來
End Sub

Private Sub CommandButton4_Click()
x = 5 '自定義初值為5的x
For i = 1 To 6 Step 2 '用step指定步長為2，迴圈計數器的數值變數i將迴圈3次,在1-6六個數字裡取1，3，5
x = x + 2 '每迴圈一次x就增加數值2
'第一次迴圈 x = 5 + 2 = 7
'第二次迴圈 x = 7 + 2 = 9
'第三次迴圈 x = 9 + 2 = 11
Next
MsgBox x '把算出來的x，也就是11,值用跳出視窗的方法顯示出來
End Sub

Private Sub CommandButton5_Click()
x = 5 '自定義初值為5的x
For i = 1 To 6 Step 2 '用step指定步長為2，迴圈計數器的數值變數i將迴圈3次,在1-6六個數字裡取1，3，5
x = x + i '每迴圈一次x就增加數值i
'第一次迴圈 x = 5 + 1 = 6
'第二次迴圈 x = 6 + 3 = 9
'第三次迴圈 x = 9 + 5 = 14
Next
MsgBox x '把算出來的x，也就是14,值用跳出視窗的方法顯示出來
End Sub