急!!怎样在vb的循环中继续循环??

elvahuang 2004-08-11 07:42:07
例如:


do while

if condition=true then
dosomething
'???go on loop,而不执行下面的语句,就象c里面的continue???
end if

loop
...全文
530 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
zhangzhijian 2004-08-12
  • 打赏
  • 举报
回复
学习
熊孩子开学喽 2004-08-11
  • 打赏
  • 举报
回复
结构化语言根本就不需要使用什么GOTO语句,严重破坏语言的结构完整性。
这个问题使用一个条件判断就可以了。

do while
...
if condition then
DoSomething
Else
    ...'这里是你要跳过的语句
    ...
  end if
loop



顺便为大家介绍一下条件分支语句吧:
Visual Basic 支持的判定结构有:

If...Then


If...Then...Else


Select Case
If...Then
用 If...Then 结构有条件地执行一个或多个语句。单行语法和多行块语法都可以使用:

If condition Then statement

If condition Then
statements

End If

Condition 通常是比较式,但它可以是任何计算数值的表达式。Visual Basic 将这个值解释为 True 或 False:一个为零的数值为 False,而任何非零数值都被看作 True。若 condition 为 True,则 Visual Basic 执行 Then 关键字后面的所有 statements。可以使用单行或多行语法有条件地执行一个语句(下面两个例子等价):

If anyDate < Now Then anyDate = Now

If anyDate < Now Then
anyDate = Now
End If

注意:If...Then 的单行格式不用 End If 语句。如果 condition 为 True 时要执行多行代码,则必须使用多行块 If...Then...End If 语法。

If anyDate < Now Then
anyDate = Now
Timer1.Enabled = False '定时器控制失效。
End If

If...Then...Else
用 If...Then...Else 块定义几个语句块,执行其中一个语句:

If condition1 Then
[statementblock-1]
[ElseIf condition2 Then
[statementblock-2]] ...
[Else
[statementblock-n]]

End If

Visual Basic 首先测试 condition1。如果它为 False,Visual Basic就测试 condition2,依次类推,直到找到一个为 True 的条件。当它找到一个为 True 的条件时,Visual Basic就会执行相应的语句块,然后执行 End If 后面的代码。作为一个选择,可以包含 Else 语句块,如果条件都不是 True,则 Visual Basic 执行 Else 语句块。

If...Then…ElseIf 只是 If...Then...Else 的一个特例。注意,可以使用任意数量的 ElseIf 子句,或者一个也不用。可以有一个 Else 子句,而不管有没有 ElseIf 子句。

例如,应用程序可以根据菜单控件数组中哪个控件被单击而采取相应的动作:

Private Sub mnuCut_Click (Index As Integer)
If Index = 0 Then '“剪切”命令。
CopyActiveControl '调用通用过程。
ClearActiveControl
ElseIf Index = 1 Then '“复制”命令。
CopyActiveControl
ElseIf Index = 2 Then '“清除”命令。
ClearActiveControl
Else '“粘贴”命令。
PasteActiveControl
End If
End Sub

注意,总是可以添加更多的 ElseIf 块到 If...Then 结构中去。但是,当每个 ElseIf 都将相同的表达式比作不同的数值时,这个结构编写起来很乏味。在这种情况下可以使用 Select Case 判定结构。

详细信息 请参阅语言参考中的“If...Then...Else 语句”。

Select Case
Visual Basic 提供 Select Case 结构替代 If...Then...Else,从而可在多个语句块中有选择地执行其中一个。Select Case 语句的能力与 If...Then...Else 语句类似,但对多重选择的情况,Select Case 语句使代码更加易读。

Select Case 在结构的上方处理一个测试表达式并只计算一次。然后,Visual Basic 将表达式的值与结构中的每个 Case 的值进行比较。如果相等,就执行与该 Case 相关联的语句块。

Select Case testexpression
[Case expressionlist1
[statementblock-1]]
[Case expressionlist2
[statementblock-2]]
.
.

.

[Case Else
[statementblock-n]]

End Select

每一个 expressionlist 是一个或几个值的列表。如果在一个列表中有多个值,就用逗号把值隔开。每一个 statementblock 中含有零个或多个语句。如果不止一个 Case与测试表达式相匹配,则只对第一个匹配的 Case 执行与之相关联的语句块。如果在表达式列表中没有一个值与测试表达式相匹配,则 Visual Basic 执行 Case Else 子句(此项是可选的)中的语句。

例如,假定在 If...Then...Else 的例子中要向“编辑”菜单添加命令。为此可以另加一个 ElseIf 子句,或用 Select Case 来写函数:

Private Sub mnuCut_Click (Index As Integer)
Select Case Index
Case 0 '“剪切”命令。
CopyActiveControl '调用通用过程。
ClearActiveControl
Case 1 '“复制”命令。
CopyActiveControl
Case 2 '“清除”命令。
ClearActiveControl
Case 3 '“粘贴”命令。
PasteActiveControl
Case Else
frmFind.Show '显示找到的对话框。
End Select
End Sub

注意 Select Case 结构每次都要在开始处计算表达式的值。而 If...Then...Else 结构为每个 ElseIf 语句计算不同的表达式。只有在 If 语句和每一个 ElseIf 语句计算相同表达式时,才能用 Select Case 结构替换 If...Then...Else 结构。

Andy__Huang 2004-08-11
  • 打赏
  • 举报
回复
可以考慮用for循環語句來代替它啊

for i=0 to ......

if condition=true then
dosomething
'???go on loop,而不执行下面的语句,就象c里面的continue???
exit for
end if

next
KiteGirl 2004-08-11
  • 打赏
  • 举报
回复
do while
If condition=true then
dosomething
Else
下面所有语句
end if
loop

libingao 2004-08-11
  • 打赏
  • 举报
回复
Do while
IF condition=true then
dosomething
...
GOTO Continue
...
End If
Continue:
loop
'Exit Do 是直接退出循环!
danielinbiti 2004-08-11
  • 打赏
  • 举报
回复
do while

if condition=true then
dosomething
'???go on loop,而不执行下面的语句,就象c里面的continue???
goto a1
end if
a1:
loop

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧