VBS编程教程 (第2篇)

第二篇：  
       我真没想到, 第一次的作业竟然有人不会. 

　　看来要讲的非常非常细致才行, 嗯, 今天讲各种"量"和基本运算 

　　先说常量, 这个比较简单. 

　　什么是常量呢, 常量就是其值不可变化的量. 

　　常量分为两种:第一种, 自然常量. 这叫是因为它们本身就是常量, 你怎么更改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) 

　　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(a) 
msgbox(c) 

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

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

要点: 

1) 常量分为自然常量和自定义常量, 常量的值不可修改 

2) 变量就像盒子, 我们不在乎盒子里装的是什么, 但一定要知道盒子的名字 

3) 四则运算在编程中没有任何不同 

4) MOD是取余运算 


作业: 

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

2) 编一个程序取得20 / 3 的余数