VBS_DO...Loop
循环用于重复执行一组语句。循环可分为三类:一类在条件变为 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的更多相关文章
- Atitit 解决Unhandled event loop exception错误的办法
Atitit 解决Unhandled event loop exception错误的办法 查看workspace/.metadata/.log org.eclipse.swt.SWTError: No ...
- Looper.prepare()和Looper.loop()
什么时候需要 Looper Looper用于封装了android线程中的消息循环,默认情况下一个线程是不存在消息循环(message loop)的,需要调用Looper.prepare()来给线程创建 ...
- PostgreSQL-PL/pgSQL-cursor,loop
将spam_keyword表word字段的字符全部拆分,只是利用过程语言完成循环的操作而已. create or replace function proc1() returns setof text ...
- archlinux 加载loop模块,且设定loop设备个数
如果loop模块没有编译进内核就要先加载loop模块 modprobe loop 然后更改/etc/modprobe.d/modprobe.conf(有些文章写是在/etc/modprobe.conf ...
- 工作邮件loop的用法
examples come from native speaker Put john in the loop about this. He will have good advice. Why hav ...
- VMWare虚拟机实例拷贝到另一台服务器后出现Error in the RPC receive loop: RpcIn: Unable to send.错误的解决
把一个VMWare虚拟机实例拷贝到另一台服务器后,在事件查看器中的应用程序日志中不断出现Error in the RPC receive loop: RpcIn: Unable to send.错误, ...
- 禁用nested loop join里的spool
禁用nested loop join里的spool 转载自: https://blogs.msdn.microsoft.com/psssql/2015/12/15/spool-operator-and ...
- Android Handler、Loop 的简单使用
1.子线程和子线程之间的通信 package lib.com.myapplication; import android.os.Bundle; import android.os.Handler; i ...
- mysql while,loop,repeat循环,符合条件跳出循环
1.while循环 DELIMITER $$ DROP PROCEDURE IF EXISTS `sp_test_while`$$ CREATE PROCEDURE `sp_test_while`( ...
随机推荐
- java中汉字自动转换成拼音
java中汉字自动转换成拼音 1.需要下载jar包 pinyin4j.2.5.0.jar ,加入到WEB-INF下的lib里边,右键add to bulid path. 2.[代码]PinYinUti ...
- DIV使用tabindex获得事件详解 移动div
添加 tabindex='-1' 属性: 默认:获取不到焦点事件(blur) 1 <div class="wl-product" id="wl-product&qu ...
- PHP基本知识收集
1.符号“@”的作用 @是可以屏蔽函数执行过程中遇到问题而产生的一些错误.警告信息,这样用户就看不到程序的出错信息.这样除了用户界面会友好一些外,更重要的是安全性,因为屏蔽了出错文件的路径等信息. 2 ...
- 7月13日微软MVP社区夏日巡讲北京站活动现场图集
1.活动签到 2.活动准备工作,到场同学很多. 3.讲师讲桌 全体合影,由于我在楼下签到所以里面没有我:(
- apache 日志为每个域名独立配置单独的日志文件
<VirtualHost *:80>DocumentRoot "E:\luyou\viplijiang"ServerName vip.li.comTransferLog ...
- 解决ACTIVITI流程图设置字体不生效的问题
在ACTIVITI 5.15的版本中,有一个设置流程图的字体配置. 配置如下: <bean id="processEngineConfiguration" class=&qu ...
- Qt 制作安装包
Qt 制作在线.离线 安装包 见如下文档
- ubuntu14.10服务器版安装xampp,配置域名端口访问
1.从xampp下载下了xampp-linux-1.7.3a.tar这个包,然后ftp到我的linux虚拟机中, 2.复制到opt下,(可以直接解压的)到opt下面,tar xvfz xampp-li ...
- libpng交叉编译安装
tar xzf libpng-1.5.22.tar.gz cd libpng-1.5.22 mkdir tmp 打开Makefile文件并修改CC=arm-linux-gcc ./configure ...
- wp8.1 Study8:页面过渡和主题动画(Page transition and Theme animations)
一.在WP8.1中是有动画(Animation)的: 页面导航(默认为旋转式Turnstile).PointerDown/up(默认是倾斜).页面旋转.MenuFlyout出现等等 二.页面过渡(Pa ...