请教VB的for 语句中如何实现跳过

[gotoyaogong]

代码如下：
For L1 = 1 To 6
I1 = subJC(L1)
If I1 <> 0 Then
For K1 = 1 To 6 '对K1循环
J1 = subJC(K1)
If J1 = 0 Or J1 < I1 Then '在此处希望能够实现J1=0或J1<I1时重新进入循环，否则执行下面的语句
Else
JJ = J1 - I1 + 1
subKB(I1, JJ) = subKB(I1, JJ) + subKE(L1, K1)
End If
Next K1
End If
Next L1
这样写好像不对，请帮忙看一下

[迈克揉索芙特]

For L1 = 1 To 6
I1 = subJC(L1)
If I1 <> 0 Then
re:
For K1 = 1 To 6 '对K1循环
J1 = subJC(K1)
If J1 = 0 Or J1 < I1 Then '在此处希望能够实现J1=0或J1 <I1时重新进入循环，否则执行下面的语句
goto re:
Else
JJ = J1 - I1 + 1
subKB(I1, JJ) = subKB(I1, JJ) + subKE(L1, K1)
End If
Next K1
End If
Next L1

[嗷嗷叫的老马]

如果是满足条件后不执行ELSE后的代码而进入下个循环(K1+1),你现在的代码已经做到了啊.

如果想要K1不变,就在THEN后面加K1=K1-1

问题是,如果K1不变,那不就是死循环了?

两个方向都不对貌似....

也许我现在打CS眼花了吧....先睡觉去-_-

[forbearORfolie]

GOTO跳转
马哥在CS中善用撒子武器？

[Dogfish]

goto没有什么不好。

[gotoyaogong]

哈哈 谢谢 刚学VB 查资料没找到有goto语句的用法。多谢:)

[嗷嗷叫的老马]

CS1.5里面AUG用得多

1.6里面M4顺手

AK完全是菜,掌握不好.....