循环用于重复执行一组语句。循环可分为三类:一类在条件变为 False 之前重复执行语句,一类在条件变为 True 之前重复执行语句,另一类按照指定的次数重复执行语句。

在 VBScript 中可使用下列循环语句:

Do...Loop: 当(或直到)条件为 True 时循环。

While...Wend: 当条件为 True 时循环。

For...Next: 指定循环次数,使用计数器重复运行语句。

For Each...Next:对于集合中的每项或数组中的每个元素,重复执行一组语句。

  Do 循环

当(或直到)条件为True时循环,语法结构如下:

  当条件为True时重复执行某语句块

1
2
3
4
5
Do [{While | Until} condition]
    [statements]
    [Exit Do]
    [statements]
Loop

  当条件变为True之前重复执行某语句块

1
2
3
4
5
Do
    [statements]
    [Exit Do]
    [statements]
Loop [{While | Until} condition]

主要参数:

condition数值或字符串表达式,其值为True或False。如果condition为Null,则condition被当作False

statements当condition为True时被重复执行的一条或多条命令

 

  具体示例代码如下:

  重复执行语句直到条件变为True

1
2
3
4
5
6
7
8
9
10
11
12
Dim Count:Count = 5 '定义一个变量
Do Until Count = 0 '直到Count变量为0时,否则一直循环
    MsgBox Count
    Count = Count -1
Loop
MsgBox "循环结束"
Dim Count:Count = 5 '定义一个变量
Do
    MsgBox Count
    Count = Count -1
Loop Until Count = 0 '直到Count变量为0时,否则一直循环
MsgBox "循环结束"

当条件变为True之前重复执行某语句块

1
2
3
4
5
6
7
8
9
10
11
12
Dim Count:Count = 5 '定义一个变量
Do While Count <> 0 '当Count变量为0时,停止循环
    MsgBox Count
    Count = Count -1
Loop
MsgBox "循环结束"
Dim Count:Count = 5 '定义一个变量
Do
    MsgBox Count
    Count = Count -1
Loop While Count <> 0 '当Count变量为0时,停止循环
MsgBox "循环结束"

退出循环

Exit Do 语句用于退出 Do...Loop 循环。因为通常只是在某些特殊情况下要退出循环(例如要避免死循环),所以可在 If...Then...Else 语句的 True 语句块中使用 Exit Do 语句。如果条件为 False,循环将照常运行。示例代码如下:

1
2
3
4
5
6
7
8
9
Dim Count:Count = 5 '定义一个变量
Do While Count <> 0 '当Count变量为0时,停止循环
    MsgBox Count
    Count = Count -1
    If Count = 2 Then '判断Count变量值是否为2,如果是则退出循环
        Exit Do
    End If
Loop
MsgBox "循环结束"

VBS_DO...Loop的更多相关文章

  1. Atitit 解决Unhandled event loop exception错误的办法

    Atitit 解决Unhandled event loop exception错误的办法 查看workspace/.metadata/.log org.eclipse.swt.SWTError: No ...

  2. Looper.prepare()和Looper.loop()

    什么时候需要 Looper Looper用于封装了android线程中的消息循环,默认情况下一个线程是不存在消息循环(message loop)的,需要调用Looper.prepare()来给线程创建 ...

  3. PostgreSQL-PL/pgSQL-cursor,loop

    将spam_keyword表word字段的字符全部拆分,只是利用过程语言完成循环的操作而已. create or replace function proc1() returns setof text ...

  4. archlinux 加载loop模块,且设定loop设备个数

    如果loop模块没有编译进内核就要先加载loop模块 modprobe loop 然后更改/etc/modprobe.d/modprobe.conf(有些文章写是在/etc/modprobe.conf ...

  5. 工作邮件loop的用法

    examples come from native speaker Put john in the loop about this. He will have good advice. Why hav ...

  6. VMWare虚拟机实例拷贝到另一台服务器后出现Error in the RPC receive loop: RpcIn: Unable to send.错误的解决

    把一个VMWare虚拟机实例拷贝到另一台服务器后,在事件查看器中的应用程序日志中不断出现Error in the RPC receive loop: RpcIn: Unable to send.错误, ...

  7. 禁用nested loop join里的spool

    禁用nested loop join里的spool 转载自: https://blogs.msdn.microsoft.com/psssql/2015/12/15/spool-operator-and ...

  8. Android Handler、Loop 的简单使用

    1.子线程和子线程之间的通信 package lib.com.myapplication; import android.os.Bundle; import android.os.Handler; i ...

  9. mysql while,loop,repeat循环,符合条件跳出循环

    1.while循环 DELIMITER $$ DROP PROCEDURE IF EXISTS `sp_test_while`$$ CREATE PROCEDURE `sp_test_while`( ...

随机推荐

  1. java中汉字自动转换成拼音

    java中汉字自动转换成拼音 1.需要下载jar包 pinyin4j.2.5.0.jar ,加入到WEB-INF下的lib里边,右键add to bulid path. 2.[代码]PinYinUti ...

  2. DIV使用tabindex获得事件详解 移动div

    添加 tabindex='-1' 属性: 默认:获取不到焦点事件(blur) 1 <div class="wl-product" id="wl-product&qu ...

  3. PHP基本知识收集

    1.符号“@”的作用 @是可以屏蔽函数执行过程中遇到问题而产生的一些错误.警告信息,这样用户就看不到程序的出错信息.这样除了用户界面会友好一些外,更重要的是安全性,因为屏蔽了出错文件的路径等信息. 2 ...

  4. 7月13日微软MVP社区夏日巡讲北京站活动现场图集

    1.活动签到 2.活动准备工作,到场同学很多. 3.讲师讲桌 全体合影,由于我在楼下签到所以里面没有我:(  

  5. apache 日志为每个域名独立配置单独的日志文件

    <VirtualHost *:80>DocumentRoot "E:\luyou\viplijiang"ServerName vip.li.comTransferLog ...

  6. 解决ACTIVITI流程图设置字体不生效的问题

    在ACTIVITI 5.15的版本中,有一个设置流程图的字体配置. 配置如下: <bean id="processEngineConfiguration" class=&qu ...

  7. Qt 制作安装包

    Qt 制作在线.离线 安装包 见如下文档

  8. ubuntu14.10服务器版安装xampp,配置域名端口访问

    1.从xampp下载下了xampp-linux-1.7.3a.tar这个包,然后ftp到我的linux虚拟机中, 2.复制到opt下,(可以直接解压的)到opt下面,tar xvfz xampp-li ...

  9. libpng交叉编译安装

    tar xzf libpng-1.5.22.tar.gz cd libpng-1.5.22 mkdir tmp 打开Makefile文件并修改CC=arm-linux-gcc ./configure ...

  10. wp8.1 Study8:页面过渡和主题动画(Page transition and Theme animations)

    一.在WP8.1中是有动画(Animation)的: 页面导航(默认为旋转式Turnstile).PointerDown/up(默认是倾斜).页面旋转.MenuFlyout出现等等 二.页面过渡(Pa ...