vbs如何调用c语言函数,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)