VBScriptVBS（四）关于VBS四种循环⽅式的详细介绍、对.vbs脚本⽂件恶搞程
序死。。。
想不想整蛊你的同学，那么了解⼀下VBS的死循环是电脑⼩⽩最容易上⼿的整蛊⽅案，对⼀些不了解电脑的同学来说，⼀定可以让他抓狂的，话不多说，⼤爷快来快活吧！(｡ ∀ )  嗨。
VBScript循环
VBS中的循环⼤致分为以下四种：
1、For…Next：指定循环次数，使⽤计数器重复运⾏语句
2、For Each…Next：对于集合中的每项或数组中的每个元素，重复执⾏⼀组语句
3、Do…Loop：循环执⾏某段代码直到条件变为 true
4、While…Wend：当条件为True时循环（由于不能提前结束该循环，所以不常使⽤了，⼀般使⽤跟它功能相似的Do…Loop循环代替它）
下⾯详细介绍:
For…Next 循环
如果确定了需要重复执⾏代码的次数，那么就可以使⽤For…Next 循环
实例代码：
For a=1to10
example code
Exit For
example code
Next
For语句：语句中的变量 a 类似于循环计数器的数值变量，就像MySQL中count函数的作⽤。1代表变量a的初值，10代表变量a的最终值For语句和Next语句中间放你的业务代码
Exit For语句：有时候我们可能在循环的中间需要跳出代码，此时就会⽤到Exit For语句，它会直接帮你跳出For…Next 循环。
Next 语句：会以 1 作为步进值来递增变量a。
step关键字
有时你可能不想计数变量⽼是以1作为步进值，那么在For语句后⾯加上Step关键字再加上你想要步进的数值，⽆论递增还是递减都可以，不过要注意，递减时，负的步进值需要规定⼩于开始值的结束值。
For Each…Next 循环
看着跟For…Next 循环结构差不多，实际的作⽤也差不多。**For Each…Next 循环主要⽤于数组中及对象集合中，适合⽤来遍历数组和对象。**它并不事先指定代码运⾏的次数，⽽是将数组中的每个元素或对象集合中的每⼀项遍历⼀遍。
实例代码：
Dim numbers(2)
numbers(0)=" Hello World！"
numbers(1)=" Hello Stars！"
numbers(2)=" Hello universe！"
For Each x In numbers
MsgBox x
Next
程序会依次输出 Hello World！、Hello Stars！、Hello universe！
Do…Loop 循环
当你不知道重复多少次，可以使⽤ Do…Loop 语句。**Do…Loop 语句重复执⾏某段代码直到条件是 true 或条件变成 true。**其实有点类似于Java函数中的while循环和do-while循环。
实例代码：
'类似于while循环
Dim a,b
a=5
Do Until a=0'也可以写成While a>0
msgbox a '输出结果为5，4，3，2，1
a = a-1'直到条件变为true
Loop
'类似于do-while循环，⽆论判断条件如何，这段循环内的代码都将被执⾏⾄少⼀次。
Do
msgbox b '尽管b为0符合判断条件，但先会输出⼀次，输出结果为0
vbs小程序代码大全
b = b-1'直到条件变为true
Loop While b>0
类似于Exit For，你也可以通过Exit Do 关键词退出 Do…Loop 语句。
Dim c: c=10
Do while c>1
msgbox c
c=c-1
If c<10Then Exit Do
Loop
只输出了10，循环就结束了。
While…Wend 循环
由于while…Wend循环和Do…Loop 循环的作⽤⼤相径庭，且While…Wend 循环并没有像Do…Loop 循环那样的Exit Do关键字来结束循环，从头⼀直循环到尾。 所以现在已经不推荐⼈们使⽤了（⾎的教训由于⾃⼰是个⼩⽩，前⼏天还不知道,Ծ Ծ,，硬⽤while…Wend 循环嵌套For…Next循环实现了⼀个⼩游戏——）
实例代码：
Dim d:d=5'定义⼀个变量
While d<>0'若Count变量值不等于0，⼀直循环
MsgBox d
d= d-1
Wend
恶搞⼩程序
都学到这了⾃然我们来动⼿实践⼀下这个恶搞的⼩程序啦，特别简单，就⽤While…Wend 循环来做⼀个。
Dim d:d=1
While d<>0
msgbox("从前有座⼭")
msgbox("⼭上有座庙")
msgbox("庙⾥有两个和尚")
msgbox("⽼和尚给⼩和尚说")
Wend
现在你就可以连忙动⼿实践⼀下，将这代码敲到记事本上再改个⽂件后缀名.VBS，之后个理由发给朋友了。当然，发给朋友了也要教他怎么关闭程序，不然容易挨打,Ծ Ծ,。
关于VBS死循环解决⽅法
前阵⼦特别⽕的整蛊代码，就是电脑上⼏个窗⼝来回不停切换其实就是通过VBS的While…Wend循环实现的。我当时⽤while…Wend写的代码，也跟众多⼩⽩⼀样发现关不掉弹出的窗⼝，成了死循环了，其实Ctrl+Shift+ESC打开任务管理器，选中这个应⽤，结束任务就可以了。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。