VBS基础教程
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 理解, 我读"if a>10 or b>10 then" 这一句, 用华语是这样:"如果a大于10或者b大于10, 那么...". 这样是不是就很好理解了呢. OK, 我们再来看一种新结构,，学完这个，今天的课就结束, 已经午夜了, 我都累死了. 当你的程序要处理很多种不同的判断情况的时候elseif..then会让程序看起来很杂乱, 所以就有了一种select case结构专门对付这种情况, select case的语法结构很简单: select case 变量名 case 值 语句 case 值 语句 case else 语句 end select 我们举个例子就能很简单的说明： 复制代码 代码如下: dim a a=inputbox("输入一个1--3的值") a=int(a) ''处理inputbox返回字符串的问题 select case a case 1 msgbox "壹" case 2 msgbox "贰" case 3 msgbox "叁" case else msgbox "输入错误" end select 这个例子把1,2,3这三个阿拉伯数字转化成中国大写数字, 这个程序写成if...elseif 的形式如下 dim a a=inputbox("请输入1--3的值") a=int(a) if a=1 then msgbox "壹" elseif a=2 then msgbox "贰" elseif a=3 then msgbox "叁" else msgbox "输入错误" end if 怎么样, 麻烦吧, 还是select好吧. OK, 今天到此结束, 总结一下: 要点: 1) inputbox返回的是一个字符串, 而不是一个数, 必须用a=int(a)这种形式转化成数 2) bool变量的值只有两种:true,false 2.5) and两边的表达式都是true, 则返回true. or两边的表达式有一个是true, 就返回true 3) if 语句的格式 4) select...case的格式 作业: 1) 使用3个bool值, 储存你的3兄弟姐妹是否是男性 (提示:sister1male=false) 2) 给定一个个数, 大于10而且小于20输出"正确", 否则输出"错误" 3) 输入12,或者15, 输出"正确", 否则输出"错误" 4) 把5以内的正整数都转换成中国大些数字 5) 自己随便设计一个程序, 应用今天的知识 第四篇（共六篇） 大家好,今天写第4章：循环结构 我们先来看一道题:商场进行每日结算, 要求累加出今天的营业额, 每次输入一个数, 这道题其实很简单, 但就我们现在学过的知识要完成这道题相当麻烦, 我们来分析一下. 首先, 我们需要知道买卖的次数, 这样才能控制输入的次数,但是, 这种设计是非常低效的, 每天都要重新设计程序. 假定今天进行了5次交易, 以下是源程序: 复制代码 代码如下: dim sum sum=0 ''初始化变量 sum=sum + int(inputbox("请输入交易额")) ''sum=sum+x 这种形式是把本身的值取出来, 进行一次运算, 再放回本身, 这种方法很有用处 ''这里使用了函数嵌套, 把inputbox的返回值直接传给int函数, 转化成整数, 下同 sum=sum + int(inputbox("请输入交易额")) sum=sum + int(inputbox("请输入交易额")) sum=sum + int(inputbox("请输入交易额")) sum=sum + int(inputbox("请输入交易额")) msgbox sum 看到了吗, 我通过把计算过程复制了5遍才设计好了程序, 这种程序在汽车交易所等交易次数少的地方还能凑合着用, 如果放到超市岂不是要复制, 粘贴几千遍? 我们今天讲的内容就可以克服这种缺陷, 首先, 我们来讲以下Do...Loop语句. do...loop的结构看上去非常简单, 就是:do...loop, 仅此而已, 这个结构不断执行do和loop之间的语句(学名叫:循环体), 永不停止. 举个例子来说: do msgbox "这个信息会不断重复出现, 要停止程序请使用任务管理器(Ctrl+Alt+Del)中止wscript进程" loop 运行这个程序, 当你点销掉一个对话框马上会出来另一个, 你永远点不完, 总有下 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: VBS 硬盘读写统计(分区读写统计)下一篇: VBS For Next循环的一些细节
关于VBS基础教程的所有评论
