VBS编程教程 (第6篇)

最后一篇： 

新家不错, mm开心, 我也就跟着高兴了 : ), 今天我们学习基础篇的最后一个部分:自定义函数和过程. 我们每天都在和函数打交道, inputbox()是函数, msgbox()是函数, int()也是函数...这些函数都是系统内建的, 我们只能用不能改. 今天, 我就教大家怎样自己制作一个函数. 

　　首先我们要了解, 为什么要用函数, 我们用"实例"说话, 先看一个例子: 给出两个数, 输出较大的那一个. 

dim a1,a2,b1,b2,c1,c2 
a1=2:a2=4 '":"可以让你把多个语句写在一行上 
b1=32:b2=67 
c1=12:c2=898 

if a1>a2 then 
msgbox(a1) 
elseif a1 
msgbox(a2) 
end if 

if b1>b2 then 
msgbox(b1) 
elseif b1 
msgbox(b2) 
end if 

if c1>c2 then 
msgbox(c1) 
elseif c1 
msgbox(c2) 
end if 

多么麻烦呀, 我们把相同的比较过程复制了好几遍, 早期语言没有结构化(没有过程和函数)的时候, 程序员们的确是这么
干的, 他们复制(copy), 那个年代也没有剪贴板这一说, 大家都是重新输入代码. 后来工作简化了: 

dim a1,a2,b1,b2,c1,c2 
a1=2:a2=4 
b1=32:b2=67 
c1=12:c2=898 
msgbox(co(a1,a2)) 
msgbox(co(b1,b2)) 
msgbox(co(c1,c2)) 

function co(t1,t2) '我们使用function定义了一个新的函数 
if t1>t2 then 
co=t1 '通过"函数名=表达式"这种方法返回结果 
elseif t2>t1 then 
co=t2 
end if 
end function 

我们在这里是用了一个新的关键字:funciton, 这个关键字表示一个新函数开始, 格式: 
funciton 函数名(参数1, 参数2...参数n) '列表可以是空的, 但括号不能省略, 参数之间用","分割

... 
exit funciton '结束函数, 不是必需的 
... 
end function 

　　函数是一个模块, 只有你调用的时候才会运行, 也就说, 当你编写了一个函数, 然后在程序中并不调用它, 那么这个函数 
永远不会运行. 一般来说, 我们编写程序是按照: 

主程序 
.. 
.. 
.. 

函数1 
.. 
.. 

函数2 
.. 
.. 

　　详细解释一下: 函数中最重要的是参数和返回值. 参数是在函数名后面的()里定义的, 用","分割, 使用参数的时候我们也 

用","分割. 说到这里我想起一件事, 昨天有个朋友给我发消息问我: 

　　msgbox(name1,name2,name3) 

　　这个错在哪里? 为什么不能同时显示出三个变量? 这就是因为你用了",", 这个符号表示你输入的三个量作为三个不同参数 

传递给msgbox()函数, msgbox()函数只会显示出第一个参数, 第二个参数的作用是出现在标题栏. 所以你应该用"&"或者"+"把 

三个字符串变量连接起来, 作为第一个参数传递给msgbox()函数. 程序员说参数的时候经常说到"形参", "实参"这样的"黑话", 

我来解释一下. "形参"是"形式参数"的简称, "实参"是"实际参数"的简称, 实参是指你调用函数的时候传递给函数的量, 可以 

使变量或者常量(直接量), 例如:co(12,24)中的12,24就是实参. 形参是你在函数定义时定义的变量, 这些变量用来"接住"传递 

过来的量, 例如function co(t1,t2)t1,t2就是形参. 

　　在vbscript中, 参数传递是一种传值,　而不是传址(听不明白不要紧, 学了c语言的指针你就明白了), 所以我们进行的参 

数传递实际上是进行了一次变量赋值, 例如我们调用co(a1,a2), 实际上程序会执行一步:t1=a1,t2=a2这样的操作. 同样因为传 

值传址的原因, vbscript只能返回一个值, 我们先来看看什么叫"返回". 当一个过程调用了另一个过程的时候(比如主程序调用 

了函数), 控制权就到了被调用过程那里, 当这个过程执行完毕以后, 会回到调用它的地方继续执行, 这个就叫做"返回", 返回 

的时候可以带一个值叫做"返回值"(这是"通俗"的理解). 在vbs继承了basic的传统, 返回的时候采用"函数名=返回值"的办法, 

这个"返回值"是指一个表达式(在编程中, 任何东西都是表达式, 比如变量a, 常数0, "hello",c=1+2等等这都是表达式). 比如 

有一个函数是ht, 则返回的方法是:ht=你要返回的值. 注意:返回以后, 后面的语句将不再执行. 

　　调用一个函数我就不用讲了吧:变量=函数名(参数) 

　　有时候我们并不需要返回什么值, 这个时候我们可以使用一种称之为"子程序"的结构. 子程序或称之为过程与函数的差别 

就在于:1) 没有返回值, 2) 使用sub关键字定义, 3) 通过call调用.具个例子: 

dim yname 
name=inputbox("请输入你的名字:") 
call who(yname) 

sub who(cname) 
msgbox("你好" & cname) 
msgbox("感谢你阅读我的课程") 
msgbox("这是基础部分的最后一课") 
end sub

　　你一定看明白了, 很简单的. 退出一个过程和退出一个函数一样:exit sub(函数:exit function). 

　　要注意, 子程序(过程)是比较特殊的一个结构, c等语言是没有这个概念的, c语言中的一切都是函数, 没有返回值的函数
在c语言中只要使用void修饰符定义就行了. 

　　今天没有什么可讲的了, 基础篇就这么结束了, 目前你已经有了基本的编程概念(面向过程的结构化编程), 可以选择学习
另外一种语言(比如c或pascal), 现在的基础会有一定的帮助. 如果你想要继续学习vbs或通过它更详细的了解编程在转型可以跟我继续学习, 但因为我的假期结束所以更新的时间可能会比较慢, 请大家原谅．初步计划如下: 


进阶篇: 

变量的深入讨论 
| 
|----变量类型 
| 
|----变量的有效范围 
| 
数组的深入讨论 
| 
|----动态数组 
| 
函数的深入讨论 
| 
|----数组作为函数参数 
| 
|----多个返回值 
| 
字符串操作 
| 
|----乱七八糟一大堆 
| 
面向对象编程(oop)的基本知识 
| 
文件操作 
| 
|----fso对象 
| 
|----其他相关部分 
| 
vbs与网页 
| 
|----html中嵌入vbs 
| 
|----vbs与表单(设计你的程序界面 wow!) 


实战篇: 

病毒编程 

socket编程(tcp/udp) 

　　这只是大概的内容, 我想应该会有变化, 到时候你就会读到的. 今天的内容请多多实践, 作业就是把前面的各个课程在温习一下. 对要离开这个课程去更进一步学习的朋友:祝你再学习编程的道路上一帆风顺.