vbscript基础教程-变量、常量和基本运算

发布时间:2019-11-25编辑:脚本学堂
vbscript基础教程,变量,常量,基本运算

       常量就是其值不可变化的量。

  常量分为两种:第一种,自然常量。这叫是因为它们本身就是常量,你怎么更改21的值呢? 他永远都是21,不可能变成46。
 
    如果你在程序中使用"21=46",这样的语句将会引发一个错误。同样的,字符串也是常量(还记得字符串吗? 就是包裹在""之间的一串字符),"Hello World"就是一个例子,如果你使用"Hello World"="Bye"这样的语句同样会引发一个错误。你能举出自然常量的更多例子吗?
 
  第二种,是我们自己定义的常量,这种量也使用代号,他们也被赋值,但和变量的不同点在于,他们在定义的时候被赋值,以后就不能改变了,如果企图改变将会引发一个错误。定义一个变量,我们使用"const"这个关键字(关键字的意思是系统定义了有特殊功能的字,不能作为变量名或常量名使用),格式是:const 常量名=常量值

例如:
const PI=3.1415926
const NAME="记忆碎片"

   这样我们就定义了两个常量,PI和NAME,一般说来,常量名全部使用大写,但也可以不用,随你喜好。将一些在程序中不需要改变的值定义为常量是个好习惯,这样能防止不必要的意外。另外,使用自定义常量也可以减少你的工作量。 比如:
 
msgbox("Hello World")
msgbox("Hello World")
msgbox("Hello World")
msgbox("Hello World")
msgbox("Hello World")

这个程序输出五次Hello World,如果你想要改变输出为Bye-Bye,就必须修改全部程序,当然你可以手动修改5次,但如果你要输出1000次呢?常量就可以替我们解决这个问题:
const hw="Hello World"
msgbox(hw)
msgbox(hw)
msgbox(hw)
msgbox(hw)
msgbox(hw)

这样当你要修改输出的时候只要修改hw的值就行了。
 
现在我们来看看编程的第一块重要“基石”:变量。解释变量最好的办法我觉得是“盒子”,一个变量好像一个盒子,里面只能装一个东西,当你要装进去别的东西的时候必须把原有的东西拿出来。这个“盒子”是有名称的,当你在程序中使用变量的时候,系统会打开盒子取出里面的东西,让这些东西参与处理,而不是盒子。有些语言是很依赖“盒子”里面装些什么东西,这样才能找到合适的“盒子”(比如C语言),但VBS给我提供的是能够自动伸缩的“魔术盒”,我们不用关心装进去的是什么东西,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 strnig
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)

这么一修改,无论用户输入怎样的数据,我们都能计算出矩形的面积了。如果你用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(a)
msgbox(c)

则b=a*a=4,c=a*a*a=8

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


下面来个大话西游2游戏计算器的实例吧。

小黑在帮派门口摆摊卖药,今天共卖了 56 个灵异天香,每个的出售价格为 2170 ,那么他赚了多少钱?(药店出售的灵异天香价格为2160)
在题目中,56和2170是变量。大家可以想想代码怎么写,然后再往下看。
dim m,n,x,msg
msg="小黑在帮派门口摆摊卖药,今天共卖了 n 个灵异天香,每个的出售价格为 m ,那么他赚了多少钱?"
n=inputbox(msg,"灵异天香个数n","请在此输入灵异天香个数n")
m=inputbox(msg,"每个售价m","请在此输入每个药的出售价格m")
x=(m-2160)*n
msgbox("答案:" & x)

把这段代码复制粘贴到文本文件,然后把文本文件.txt后缀改为.vbs双击运行看看效果。如果看不到.txt后缀,去我的电脑-控制面板-文件夹选项-查看-去掉“隐藏已知文件类型的扩展名”对勾-确定就行了。

程序举例:
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

为什么会不一样呢? 在数学上c=(a+b)*2 和 c=a*2+b*2是等价的, 在VBS中也是如此. 问题出在"+"上, 在VBS中, +不仅仅是加号的意思还表示把两个字符串连接起来, 例如"Hello"+"World"="HelloWorld" have you understood? 你还记得InoutBox函数的返回值吗?是字符串!这就看出问题了吧,在编程中"1"不等于(<>)1, "1"是一个字符, 而1是一个数,所以a,b都是字符串变量,"1"+"2"="12", 这就好像我们小时跟伙伴开玩笑问他们1+1=?一样,我们总是笑着说“错啦,应该是11”,但为什么,a可以*2却不发生错误呢?这是VBS比较智能的一个表现,如果这个字符串的内容是一个数且对他进行数学运算,则把字符串强制转换成数参与运算,如果字符串代表一个数,但不参加数学运算,而是参加字符串运算(合并)则当作字符串处理,所以你看到a+b=12,这时候a+b的结果(12)是一个字符串,当它要乘以2的时候就被强制转换成了数字12,这样我就得到了结果24。
怎么修改这个程序呢?我们需要用到另一个内建的函数:int

int函数的功能是将输入值转化成整数值,我们这样修改:
c=(int(a)+int(b))*2
这个意思就是把a作为参数传递给int函数,int函数就会返回那个整数(你的输入值),然后让返回值参与运算,这样就得到了正确答案。所以,以后如果你用的是inputbox函数的话,最好用int语句加工一下:比如c=int(c) 'c是你自己的变量。