请教VBA的循环中如何实现类似C语言的Continue功能？

Elephane · 发表于 2005-4-16 13:26

小弟初学VB，看了VB的参考书，但是找不到类似Continue的功能，请问那位能指点一下。

如下的循环体

while

if a=0 then

' 这里我想能够直接下一个循环，而不是退出循环，从而可以避免执行循环体内后面的代码

end if

......

wend

Elephane · 发表于 2005-4-16 13:36

使用Goto语句可以实现我上面说的功能，但是说实在话，我不太喜欢使用Goto语句的。

来生缘 · 发表于 2005-4-16 16:52

用exit

jingzhg · 发表于 2005-4-16 18:50

用exit还叫continue嘛?

清风_ll · 发表于 2005-4-16 19:22

何不用if a<>0 then ?

ldhyob · 发表于 2005-4-16 20:41

具体要看你的程序了,实现办法很多.用条件语句就可以的.

如a=0时就不执行循环体而continue

while <条件>

if a<>0 then

......'循环体代码

end if

wend

Elephane · 发表于 2005-4-23 14:08

谢谢ldhyob和大家的耐心答复，但是很多情况下是不能用上面的方法解决的，比如我还需要检查b变量的数值，或者还需要检查很多其他的参数呢，诚然，即使不使用continue也可以实现最终的功能，只是那样的话代码编出来，格局就很不美观了。

小弟也只是想探讨一下看看VB里面用什么方法来实现这个C语言的continue的功能。

Elephane · 发表于 2005-4-23 14:23

比如如下的代码： lRecord = 2 For lI = 2 To MaxRows(SheetPayout) If (IsEmpty(Cells(lRecord, 1)) Or IsEmpty(Cells(lRecord, 2)) Or IsEmpty(Cells(lRecord, 3))) Then MsgBox "支出表：日期、支出类别和金额必须填写完整!行号=" & lRecord Rows(lRecord).Delete Shift:=xlUp continue End If If Cells(lRecord, 3).Value = 0 Then MsgBox "支出表：金额不能为0!行号=" & lRecord Rows(lRecord).Delete Shift:=xlUp continue End If lRecord = lRecord + 1 Next

大家看看，如果不使用continue，应该怎样改？

jim_liang · 发表于 2005-4-23 14:25

用GOTO就可以了

shuiman · 发表于 2024-7-17 09:22

清风_ll 发表于 2005-4-16 19:22
何不用if a<>0 then ?

反思维，好方法，点个赞！

		自动登录	找回密码
密码			免费注册