51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2008|回复: 6
打印 上一主题 下一主题

[原创] 如何跳出内循环

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2009-3-24 19:06:38 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
Function orgCode(vLength)
    Dim MyArray,MyString,vStr,vArr, Msg
    MyString = "***********"
MyArray = Split(MyString, ",", -1, 1)
    For i = 1 To len(vLength)
    vStr = Mid(vLength, i, 1)
    For j = 0 To 61
                           vArr = MyArray(j)
      If Trim(vStr) = Trim(vArr) Then
        Msg =  Msg & MyArray(j)
                             exit for
      End If
                          
    Next
    Next
If Trim(vLength) = Trim(Msg) Then
  Reporter.ReportEvent micPass,"提示","********"
Else
   Reporter.ReportEvent micPass,"提示","********"   
End If
End Function

调用方法 orgCode(Len1) ,Len1=9,请问如何在Trim(vStr) = Trim(vArr)时跳出内循环,使脚本的效率提高?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2009-3-24 20:31:37 | 只看该作者
For j = 0 To 61
                           vArr = MyArray(j)
      If Trim(vStr) = Trim(vArr) Then
        Msg =  Msg & MyArray(j)
                             exit for
      End If
                          
    Next


你这EXIT FOR不是已经跳出内循环了吗??
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2009-3-24 22:34:48 | 只看该作者
哦,那个Exit For 是我试试用的,结果是加了后跳出整个循环了
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2009-3-24 22:38:19 | 只看该作者
换一种循环,一个用while一个用for或者一个用do就好控制了
回复 支持 反对

使用道具 举报

该用户从未签到

5#
 楼主| 发表于 2009-3-24 22:47:17 | 只看该作者
请问应该怎么写啊,想不清楚了
回复 支持 反对

使用道具 举报

该用户从未签到

6#
发表于 2009-3-24 22:53:58 | 只看该作者
For i = 1 To len(vLength)
       vStr = Mid(vLength, i, 1)
       j = 0
      Do While j < 62
            vArr = MyArray(j)
            If   Trim(vStr) = Trim(vArr) Then
                 Msg =  Msg & MyArray(j)
                 Exit do
            Else
                 j = j + 1
            End If     
      Loop
Next
回复 支持 反对

使用道具 举报

该用户从未签到

7#
 楼主| 发表于 2009-3-24 23:06:18 | 只看该作者
呵呵,谢谢啊,比前面效率要高了
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-14 23:16 , Processed in 0.068824 second(s), 28 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表