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

Question

 代码如下：
        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
这样写好像不对，请帮忙看一下

Answer 1

        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 

Answer 2

如果是满足条件后不执行ELSE后的代码而进入下个循环(K1+1),你现在的代码已经做到了啊.如果想要K1不变,就在THEN后面加K1=K1-1问题是,如果K1不变,那不就是死循环了?两个方向都不对貌似....也许我现在打CS眼花了吧....先睡觉去-_-

Answer 3

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

Answer 4

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

Answer 5

CS1.5里面AUG用得多1.6里面M4顺手AK完全是菜,掌握不好.....