VBS編程教程 (第6篇)

2020-03-24 17:55:47

字體：大中小

來源：轉載

供稿：網友

最后一篇：

新家不錯, 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或通過它更詳細的了解編程在轉型可以

跟我繼續學習, 但因為我的假期結束所以更新的時間可能會比較慢, 請大家原諒．初步計劃如下:

進階篇:

變量的深入討論

|----變量類型

|----變量的有效范圍

數組的深入討論

|----動態數組

函數的深入討論

|----數組作為函數參數

|----多個返回值

字符串操作

|----亂七八糟一大堆

html' target='_blank'>面向對象編程(OOP)的基本知識

文件操作

|----FSO對象

|----其他相關部分

VBS與網頁

|----HTML中嵌入VBS

|----VBS與表單(設計你的程序界面 wow!)

實戰篇:

病毒編程

Socket編程(TCP/UDP)

這只是大概的內容, 我想應該會有變化, 到時候你就會讀到的. 今天的內容請多多實踐, 作業就是把前面的各個課程在溫

習一下. 對要離開這個課程去更進一步學習的朋友:祝你再學習編程的道路上一帆風順.

html教程

鄭重聲明：本文版權歸原作者所有，轉載文章僅為傳播更多信息之目的，如作者信息標記有誤，請第一時間聯系我們修改或刪除，多謝。

上一篇：實現winrar密碼破解的vbs代碼

下一篇：用vbs記錄屏幕保護程序的開始時間和結束時間