快速业务通道

VBS基础教程

作者 佚名 来源 ASP编程 浏览 发布时间 2013-07-09
西, VBS会自动调整盒子的大小. 例如:

  Dim a1,a2,a3
  a1=14
  a2=12.23
  a3="Hello"

  而不用像C语言那样麻烦: 或者是VB的正规声明(VB可以声明也可以不用)那样:
复制代码 代码如下:

  int a1; Dim a1 as integer
  float a2; Dim a2 as Double
  char* a3; Dim a3 as string
  a1=14; a1=14
  a2=12.23; a2=12.23
  a3="Hello"; a3="Hello"

  嗯……扯远了……

  变量有什么用呢? 哇, 那用处可大了. 最简单, 你并不能确定程序运行时变量的值, 比如前一节课我们编的输入姓名的程序, 你不能确定InputBox返回的是什么(还记得Inputbox的返回值吗? 就是你输入的内容), 所以你就没有办法应对各种情况, 但我们用name这个"盒子"把用户的名字装起来, 到用的时候我们只要知道name这个盒子的名字就行了, 系统会自己打开它并把里面的内容拿出来用. 再举个例子, 我们编写一个程序计算一个矩形的面积, 比如这个程序要发给小学生使用:
复制代码 代码如下:

  dim a,b,s
  a=15
  b=12
  s=a*b
  msgbox s

  这样就可以求出长为15,宽为12的矩形的面积了, 是不是很简单? 当然, 这个程序也可以这样写:

  dim s
  s=15*12
  msgbox s

  这样看起来程序短了许多, 也节约内存, 但两种都不是鼓励的做法, 为什么? 请看下面.
  现在, 我们的程序要变得像点样子才行, 谁的程序写出来还要别人修改源代码才能用啊?
  所以, 我们要接受用户的输入, 还记得吗? InputBox函数.
  修改后程序如下:
复制代码 代码如下:

  dim a,b,s
  a=inputbox("请输入矩形的长:")
  b=inputbox("请输入矩形的宽:")
  s=a*b
  msgbox s

  ok, 这么一修改, 无论用户输入怎样的数据, 我们都能计算出矩形的面积了. 如果你用s=15*12能改吗? 当然不行。

  我想你已经发现了, vbs中的数学计算和真正的算术没有什么不同, +,-,*,/,(),[],{}都是一样的用法, 比如:

  dim ans
  ans=12+32/4+[(23-10)*2]
  msgbox ans

  四则运算的法则在编程中同样生效, 你可以在编程中重新获得小学时候的乐趣(你恨数学?那就别学电脑了)。

  在编程中有一个有趣的运算符是"mod", 这个运算符叫做"取余运算符", 就是取得一次除法的余数, 例如

  dim a
  a=16 mod 5

  你知道a等于几吗? Bingo! 没错, 就是1. 因为16 / 5 =3....1, 所以mod计算的结果就是1.
  还有一个运算符是"^"(就是键盘"6"上面的小箭头), 他表示"乘幂"(或者是"方") 比如:

  dim a,b,c
  a=2
  b=a^2
  c=a^3
  msgbox b
  msgbox c
  则b=a*a=4, c=a*a*a=8

  好了,我们一次不要讲太多, 这次就讲到这里, 现在总结一下.

  要点:

  1) 常量分为自然常量和自定义常量, 常量的值不可修改
  2) 变量就像盒子, 我们不在乎盒子里装的是什么, 但一定要知道盒子的名字
  3) 四则运算在编程中没有任何不同
  4) MOD是取余运算

  作业:

  1) 编一个程序, 计算圆形的面积, 半径由用户给出 (使用Inputbox) PI取值3.14159
  2) 编一个程序取得20 / 3 的余数

第三篇(共六篇)

  首先, 我来解决一下上次课程的几个疑问

  第一, 那个余数问题, 16 / 5 = 3……1, 是因为我改过前面的部分, 后面的忘了改了, 不好意思。

  第二, 请看一下程序清单:

  (1)
复制代码 代码如下:

  Dim a,b,c
  a=inputbox("a是:","输入半径")
  b=Inputbox("b是:","输入半径")
  c=a*2+b*2
  msgbox c

  这个 输入1、2时是6

  (2)
复制代码 代码如下:

  Dim a,b,c
  a=inputbox("a是:","输入半径")
  b=Inputbox("b是:","输入半径")
  c=(a+b)*2
  msgbox c

  这个输入1、2时是24

  为什么会不一样呢? 在

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站: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号