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)

　　這個錯在哪里? 為什么不能同時顯示出三個變量? 這就是因為你用了",", 這個符號表示你輸入的三個量作為三個不同參數