vbs基础编程教程,vbs代码教学,VBS编程教程 (第4篇)

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的观点,版权归原作者所有,仅为传播更多信息之目的,如有侵权请联系,我们将第一时间修改或删除,多谢。

留言与评论(共有 条评论)
   
验证码: