首页 > 编程 > VBScript > 正文

VBS编程教程 (第6篇)

2019-10-26 18:00:11
字体:
来源:转载
供稿:网友

最后一篇: 

新家不错, 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) 

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

发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表

图片精选