vbs基础编程教程,vbs代码教学,VBS编程教程 (第4篇)
四篇(共六篇):大家好，昨天我休息了一天，所以今天我写第四章：循环结构。
先来看一个问题：商场做日结，要求累计今天的营业额。每次输入一个数字，这个问题其实很简单，但是就我们而言。
做完这道题还挺麻烦的。我们来分析一下。首先要知道买卖的次数，这样才能控制投入的次数。然而，这个假设
计价器效率很低，程序每天都要重新设计。假设今天有5笔交易，下面是源程序：
Dimsum sum=0 '初始化变量sum=sum int(inputbox('请输入交易金额')' sum=sum x这个形式就是把自己的值拿出来，执行一个运算，然后再放回自己里面。这个方法很有用’这里使用了函数嵌套，将inputbox的返回值直接传递给int函数，转换成整数。下同=sumint (Inputbox('请输入交易金额'))sum=sum int(inputbox('请输入交易金额'))sum=sum int(inputbox('请输入交易金额'))sum=sum int(inputbox('请输入交易金额'))msgbox(sum)
看，我通过复制计算过程五次来设计程序。这个程序在交易少的地方还是可以凑合的，比如换车。如果
在超市不是要复制粘贴上千次吗？今天的谈话可以克服这个缺陷。首先，我们来谈谈下面要做的事情.循环语句。
do的结构.循环看起来很简单，就是做.循环，仅此而已。这个结构不断执行do和loop(学名：loop body)之间的语句，从不停止。例如：
DogBox('这个信息会反复出现。要停止程序，请使用任务管理器(Ctrl Alt Del)来停止wscript process ')循环
运行这个程序。当您关闭一个对话框时，另一个对话框会立即出现。你永远点击不了，总有下一个。谁来运行这样的程序？除非是为了
其他人制造麻烦(我以前也这样做过)，所以在do中还有另一种说法.循环结构：exitdo，将终止循环，循环后的语句继续。
执行。根据一个例子：
' Dim '注意：常量不需要在Dim中声明，否则会导致错误。constpass='123456 ''这是一个字符串，请用' '将它括起来。将密码设置为常量，不要更改do a=inputbox('请输入密码')ifa=passthen msgbox('密码验证成功')exitdo endif循环。
该程序会一直要求您输入密码，直到您输入正确的密码。(if可以嵌套在另一个if或循环中。
，所以一定要用缩进来区分程序的各个部分)。这个节目很经典，早期的节目都是这么做的。但是我们是黑客，所以
我们知道系统的安全性，这种无限的认证过程很容易被彻底破解。我们必须限制认证的次数。修改程序如下
马頔，ctr ctr=0 '设置计数器constpass='pas123_ ' '上面那个是弱密码，这次更强。do ifctr=3then msgbox('已达到认证限制，认证程序关闭')exitdo else a=inputbox('请输入密码')ifa=passthen msgbox('认证成功')msgbox('(可以在此添加一条成功后获得的信息)')exitdo else ctr=ctr 1 '如果密码错误，增加错误认证计数msgbox('认证错误，请检查密码。
尝试运行这个程序。当你得到这个错误时，你将停止再次询问你的密码并且关闭程序。telnet身份验证用于限制次数。
异同。注意嵌套的if语句。仔细阅读这个程序，它可能很难理解。请尝试自己设计一个类似的程序。
其实，如果没有必要添加验证的功能怎么办.循环。我们可以直接用do。我来介绍一下while关键字。while可以放在do或loop之后，后面跟一个表达式。当表达式的值为真时(表达式成立)，将运行循环体。‘让我们看看修改后的程序’
a、CTR CTR=0 const pass=' pas 123 _ ' dohilec t3a=InputBox('请输入密码')ifa=passthen msgbox('认证成功')msgbox('(此处可添加一条成功后的信息)')exitdo如果密码有误是否执行else ctr=ctr 1 '
这个函数和前面的例子完全一样。让我们来看看put while after循环：
a、CTR CTR=0 const pass=' pas 123 _ ' do a=输入框('请输入您的密码')ifa=passthen msgbox('认证成功')msgbox('(您可以在此添加一条成功后获取的信息)')exitdo else ctr=ctr 1 '如果您的密码错误，则再添加一条错误。
它有同样的功能，为什么要放在loop后面呢？把ctr的值改成3就行了，而do后面的程序会直接退出，但是在loop后面。
将允许一次认证，并且直到循环才结束。与while相反，它是until，使用方式与while相同，但仅当以下表达式的值为false时(表
类型未建立)执行循环体，请自行尝试。
好，让我们看看另一个循环结构，对于.接下来，这是基于计数，是编程中最常见的循环结构。
米蒂fori=到5 msgbox(i)下一个
看到了吗？每次输出I都是递增的，但是我们并没有明确指出I应该递增。当I达到5时，循环结束，因为它从0开始，所以
循环执行六次，这是非常重要的。大多数事情都是从0开始，而不是从1开始。这个程序也可以写成
do的形式：
米蒂I=0 dowhili5 msgbox(I)I=I 1 '因为do不能自动计数，必须手动添加循环。
反正还是用for比较好。for在编程中非常有用。再举个例子，顺便说一下嵌套循环。
米蒂，jfori=1to9fori=1to9str=stri * j ' '是联合字符串next '每个next对应于一个for next '的符号。
看看跑步成绩有没有让你想起小学的数学老师(丑脸)。请注意，有一个“大”的和一个小的，当
小for执行一个周期后，大for只执行一次(换句话说，大for执行一次，小for执行九次)，所以总共执行9980次。
一次。在大for中，不仅可以有小for，还可以添加另一个语句。让我们修改源程序：
米蒂，j fori=1 to 9 fori=1 to 9 str=stri * j ' ' next '每一个next对应一个for str=strvbCrlf'vbCrlf相当于键盘上的回车键，因为不能在键盘上输入，所以系统定义了一个默认的常量next。
运行后，输出结果根据乘数进行划分，每次小for运行时都会更改一个新行(通过vbcrlf)。
这一次的内容对于新手来说可能很难理解，掌握的方法只有一个：多练习。另外，我在论坛上看到很多人问VBScript需要什么样的工作？
有编制？我很生气。我在第一篇文章中已经解释过：用记事本编辑源代码，然后用保存为程序。vbs扩展。请不要。
再问。另外，一种国产垃圾软件‘超X霸’抢占了vbs的扩展。请卸载那些垃圾。
我们总结一下：
关键点：
1)1)do的用法.循环和退出
2)while在表达式为真时执行循环体，until则相反。
3)对于.接下来是计数循环，每次计数器都递增。
4)嵌套循环的功能和编写
4.5)用于连接字符串
5)vbCrLf相当于键盘上的回车键。
家庭作业：
1)在中国的数学经典《九章算术》中，有这样一个问题：一百块钱买一百只鸡，一只公鸡要五块钱，一只母鸡要三块钱，一只鸡要两块钱(我参考的是这个数据。
是编程书，但是我记得是男3，女1，小1钱3？反正就照着书上说的搞清楚这些鸡有多少种买法就行了。如果你不能理解他们
我用白话说吧：有人要买鸡，用100元买了100只鸡。价格如下：公的：5美元，母的：3美元，小的：1美元两个。让你搞清楚卖多少种。
方法(男女生孩子怎么搭配)。请通过传阅解决这个问题。
Ps:今天要去移民局，所以文章写的比较匆忙。大部分代码都没有测试过，请大家帮我找到错误的。另外，最后的作业应该在论坛。
看到了吧，我就不重复回答了，不知道你是喜欢做这类题，还是之前比较简单的那种？
郑重声明：本文由网友发布，不代表盛行IT的观点，版权归原作者所有，仅为传播更多信息之目的，如有侵权请联系，我们将第一时间修改或删除，多谢。