Foxtable(狐表)用户栏目专家坐堂 → 有没有跳出事件代码的指令


  共有10177人关注过本帖树形打印复制链接

主题:有没有跳出事件代码的指令

帅哥哟,离线,有人找我吗?
blackzhu
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57590 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2012/11/10 9:46:00 [显示全部帖子]

For Each 语句,同样支持Exit For和Continue For。
例如下面的代码,检查集合中的每一个值,如果是北京市,则继续下一次循环,如果是重庆市,则提示“找到了”,并退出循环;如果是其它值,则显示该值:

Dim Values As New List(Of String)
Values.Add(
"北京市")
Values.Add(
"上海市")
Values.Add(
"天津市")
For
Each Value As String In Values
    If
Value = "北京市" Then
        Continue
for
    ElseIf
Value = "重庆市" Then
        Output.Show(
"找到了!")
        Exit
For
    End
If
    OutPut.Show(Value)

Next


 回到顶部