Private Sub Form_Click( )
Dim i As Integer, j As Integer
Dim k As Integer
k=0
For i = 0 To 10 Step 3
For j = 1 To 10
If j > = 5 Then i = i +4: Exit For
j = j + 1
k = k + 1
Next
If i > 8 Then Exit For
Next
Print k
End Sub 请问那个:是什么意思?
Private Sub Form_Click( )
Dim i As Integer, j As Integer
Dim k As Integer
k=0
For i = 0 To 10 Step 3
For j = 1 To 10
If j > = 5 Then i = i +4: Exit For
j = j + 1
k = k + 1
Next
If i > 8 Then Exit For
Next
Print k
End Sub 请问那个:是什么意思?
Private Sub Form_Click()
Dim i As Integer, j As Integer
Dim k As Integer '声明3个变量,分别是i,j,k
k = 0 '初始化,使k=0
For i = 0 To 10 Step 3 'i从0开始循环到10,每次+3(1层循环)
For j = 1 To 10 'j从0开始循环到10,每次+1(2层循环)
If j >= 5 Then i = i + 4: Exit For '如果j>=5,则i+4,退出2层循环。
j = j + 1
k = k + 1 '自加
Next '退出2层循环
If i > 8 Then Exit For '如果i>8退出1层循环
Next '退出1层循环
Print k '打印k
End Sub —————————————————————————————— 不知道准确不,因为我也是个鸟。。