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

gotoyaogong 2008-04-04 11:16:55
代码如下:
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
这样写好像不对,请帮忙看一下
...全文
321 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
CS1.5里面AUG用得多

1.6里面M4顺手

AK完全是菜,掌握不好.....
回复
gotoyaogong 2008-04-05
哈哈 谢谢 刚学VB 查资料没找到有goto语句的用法。多谢:)
回复
Dogfish 2008-04-05
goto没有什么不好。
回复
forbearORfolie 2008-04-05
GOTO跳转
马哥在CS中善用撒子武器?
回复
如果是满足条件后不执行ELSE后的代码而进入下个循环(K1+1),你现在的代码已经做到了啊.

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

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

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

也许我现在打CS眼花了吧....先睡觉去-_-
回复
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
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7491

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-04-04 11:16
社区公告
暂无公告