快速业务通道

灵活实用VBS入门教程应用篇

作者 佚名 来源 ASP编程 浏览 发布时间 2013-07-09
上一篇文章我们了解了VBS编程的一些基础知识,要更深入地学习还要学习选择结构和循环结构。

  选择结构

  选择结构,即是对条件进行判断,然后根据判断的结果,选择执行不同的分支的结构。常见的有IF条件语句和SelectCase语句。

  ●IF条件语句
  IF条件语句又有多种具体的形式,如If…Then、If…Then…Else、If…Then…ElseIf。下面分别用例程来说明。用笔记本编写一个如下内容的VBS脚本:

  dima,b
  a=inputbox("输入第一个数字","输入")
  b=inputbox("输入第二个数字","输入")
  ifa>bthen
  MsgBox("第一个数大于第二个数")
  Endif

  运行后,要求用户输入两个数字,第一个数字的值赋给a,第二个数字的值赋给b,然后程序自动判断a和b,如果a的值大于b的值,就弹出信息提示框,显示“第一个数大于第二个数”。注意:then后面的语句不与then在同一行时,判断语句结束后要加一行Endif来结束,否则程序会结束。如果是同一行的就不用再加上Endif了,如上面的语句可改为:
  dima,b
  a=inputbox("输入第一个数字","输入")
  b=inputbox("输入第二个数字","输入")
  ifa>bthenMsgBox("第一个数大于第二个数")
  另外一个程序中可以用多个If语句,我们可以把上面的程序完善一下如下:
  dima,b
  a=inputbox("输入第一个数字","输入")
  b=inputbox("输入第二个数字","输入")
  Ifa>bthen
  MsgBox("第一个数大于第二个数")
  Endif
  Ifa=bthen
  MsgBox(“第一个数等于第二个数”)
  Endif
  Ifa<bthen
  MsgBox(“第一个数小于第二个数”)
  Endif
  我们也可以再换用IF的其它语句If…Then…Else和If…Then….Elseif来实现相同的作用,如下:
  dima,b
  a=inputbox("输入第一个数字","输入")
  b=inputbox("输入第二个数字","输入")
  Ifa>bthen
  MsgBox("第一个数大于第二个数")
  Else
  IFa=bthen
  MsgBox(“第一个数等于第二个数”)
  Else
  MsgBox(“第一个数小于第二个数”)
  Endif
  Endif
  ――――――――――――――――――――――――――――――――――――――
  dima,b
  a=inputbox("输入第一个数字","输入")
  b=inputbox("输入第二个数字","输入")
  Ifa>bthen
  MsgBox("第一个数大于第二个数")
  Elseifa=bthen
  MsgBox(“第一个数等于第二个数”)
  Else
  MsgBox(“第一个数小于第二个数”)
  Endif
  
  ●SelectCase语句
  SelectCase语句是多分支结构的另一种表示形式,它具有表示直观的特点,结构简单,不容易导致混乱,它的语法形式如下:
  SelectCase变量或表达式
  Case表达式1
   语句1
  Case表达式2
   语句2
  EndSelect

  现在我们用SelectCase语句来写一个数字转换成英文的程序,体验一下SelectCase的优点,Let''sgo!!!

  dima
  a=inputbox("输入一个数字","输入")
  SelectCasea
  Case1
  MsgBox("你输入的数英文是One")
  Case2
  MsgBox("你输入的数英文是Two")
  Case3
  MsgBox("你输入的数英文是Tree")
  Case4
  MsgBox("你输入的数英文是Four")
  EndSelect

  从上面,是不是觉得SelectCase语句很直观呢,如果用If语句的话,肯定会很混乱,甚至会把人都给看晕了。还要注意的是无论是条件语句有多少个分支,只要一个分支执行了,其余的分支就不再执行。
  
  循环结构

  ●For循环语句
  For语句是用来控制循环次数已知的循环结构的,语句如下:
   For循环变量=初值To终值[步长]
    语句
  [Exitfor]''退出循环语句
  Next
  现在我们编写一个计算从1

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

分享到: 更多

Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号