最后一篇： 

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

　　這只是大概的內容, 我想應該會有變化, 到時候你就會讀到的. 今天的內容請多多實踐, 作業就是把前面的各個課程在溫習一下. 對要離開這個課程去更進一步學習的朋友:祝你再學習編程的道路上一帆風順.