第一个程序的总循环次数是9次
Sub test()
For m = 0 To 7 Step 3 '把0到7以3的间隔依次赋予m，就是说m分别是0, 3, 6，共3个值
For n = m - 1 To m + 1 '把m - 1到m + 1以1的间隔依次赋予n，就是说n分别是m - 1, m + 0, m + 1，共3个值
Next n
Next m
End Sub
总循环次数 = 3 x 3 = 9
第二个程序输出结果是36
Private Sub command1_click()
Dim b, k
For k = 1 To 6
b = 23 + k 'k最大是6，b = 23+6 = 29
Next k
MsgBox b + k '当跳出For循环时k=7（小于7的话不会跳出For循环），即输出是 29+7=36
End Sub
9 36
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024