一、for循环格式
首先需要声明一个初始化变量i
Dim i%
for 初始化变量i的值 to 变量的终值（用来比较的值） step 步长的值
'这里就是变量i<=终值条件为真（true）时要执行的代码
next 初始化变量i
举例：
Dim i%
For i = 0 To 2 Step 1
Next i
二、具体过程：
举例循环3次
第1次循环：
当i=0时，条件0<=2 为true（真），进入循环。
第2次循环：
当i=1时，条件1<=2 为true（真），进入循环。
第3次循环：
当i=2时，条件2<=2 为true（真），进入循环。
为什么i每次循环+1？
因为 step 后的值为 1 ,这个step表示步长。
步长表示：每次循环加上多少。
哪句话使得下次循环的step产生效果？
next i
三、如果是for循环的嵌套该怎么写？
dim i%,j% for i=0 to 3 step 1 for j=0 to 2 step 1 print "a" next j next i
软件设计界面：
源代码分享：
Option Explicit Private Sub Command1_Click() If Text5.Text = "" Then Combo1.AddItem Text1.Text Else Combo1.AddItem Text1.Text, Val(Text5.Text) End If End Sub Private Sub Command2_Click() Combo2.AddItem Text2.Text End Sub Private Sub Command3_Click() If Text4.Text = "" Then List1.AddItem Text3.Text Else List1.AddItem Text3.Text, Val(Text4.Text) End If End Sub Private Sub Command5_Click() MsgBox Val(" ") End Sub Private Sub Command6_Click() Dim i% For i = 0 To 2 Step 1 If List1.List(i) <> "bbb" Then Picture1.Print List1.List(i) End If Next i End Sub Private Sub Command7_Click() Dim a# MsgBox TypeName(a) End Sub Private Sub Command8_Click() Dim i%, j% For i = 0 To 3 Step 1 For j = 0 To 2 Step 1 Picture1.Print "a"; Next j Next i End Sub
