vba循环详细讲解

晚风

　　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
　　

mxbj

这个要好好看看