VB编程 List1.AddItem“开始”

'LZ你认真按我的要求做，对它的执行顺序就一目了然了！

'1、在窗体上画一个列表框(listbox)，一个按钮(CommandButton)

'2、粘贴以下代码之一

'3、运行并单击按钮，运行的顺序就在列表框，这样你就可以清楚地看到“for语句等重的嵌套语句的执行顺序”了

'代码1：

Private Sub Command1_Click()

For i = 1 To 4

List1.AddItem "i的第（" & i & "）次循环开始{"

x = 4

For j = 1 To 3

List1.AddItem " j的第（" & j & "）次循环开始{"

x = 3

For k = 1 To 2

List1.AddItem " k的第（" & k & "）次循环开始{"

x = x + 6

List1.AddItem " k的第（" & k & "）次循环结束}"

Next k

List1.AddItem " j的第（" & j & "）次循环结束}"

Next j

List1.AddItem "i的第（" & i & "）次循环结束}"

List1.AddItem ""

Next i

Print x

End Sub

'代码2（比以上更详细的）：

Private Sub Command1_Click()

For i = 1 To 4

List1.AddItem "i的第（" & i & "）次循环开始{"

x = 4

List1.AddItem " x = 4' x=" & x

For j = 1 To 3

List1.AddItem " j的第（" & j & "）次循环开始{"

x = 3

List1.AddItem " x = 3' x=" & x

For k = 1 To 2

List1.AddItem " k的第（" & k & "）次循环开始{"

x = x + 6

List1.AddItem " x = x + 6' x=" & x

List1.AddItem " k的第（" & k & "）次循环结束}"

Next k

List1.AddItem " j的第（" & j & "）次循环结束}"

Next j

List1.AddItem "i的第（" & i & "）次循环结束}"

List1.AddItem ""

Next i

Print x

List1.AddItem "Print x' x=" & x

End Sub

'代码3（具体到每一句及相关数值）：

Private Sub Command1_Click()

For i = 1 To 4

List1.AddItem "For i = 1 To 4' （i=" & i & "）"

x = 4

List1.AddItem " x = 4' （x=" & x & "）"

For j = 1 To 3

List1.AddItem " For j = 1 To 3' （j=" & j & "）"

x = 3

List1.AddItem " x = 3' （x=" & x & "）"

For k = 1 To 2

List1.AddItem " For k = 1 To 2' （k=" & k & "）"

x = x + 6

List1.AddItem " x = x + 6' （x=" & x & "）"

List1.AddItem " Next k' （k=" & k & "）"

Next k

List1.AddItem " Next j' （j=" & j & "）"

Next j

List1.AddItem "Next i' （i=" & i & "）"

List1.AddItem ""

Next i

Print x

List1.AddItem "Print x' x=" & x

End Sub

'思路：当程序执行到i循环后，程序试图执行完i的每一次循环，

'但当它执行i的第一次时遇到了j，于是，程序又试图执行完j的每一次循环，

'但当它执行j的第一次时又遇到了k，程序依然试图执行完k的每一次循环，

'很幸运，直到它执行完k的第一次都没有遇到其他循环结构，

'于是，它顺利地执行完了k的每一次循环，

'因为刚才执行j的第一次，所以该执行j的第二次了，但遭遇与j的第一次一样，

'到它执行执行完j的每一次循环后，就该执行i的第二次了，但遭遇与i的第一次一样，

'程序就是这样周而复始地执行完j的每一次循环的。