sub/function:VBScript 過(guò)程
Sub 過(guò)程
Sub 過(guò)程是包含在 Sub 和 End Sub 語(yǔ)句之間的一組 VBScript 語(yǔ)句，執行操作但不返回值。Sub 過(guò)程可以使用參數（由調用過(guò)程傳遞的常數、變量或表達式）。如果 Sub 過(guò)程無(wú)任何參數，則 Sub 語(yǔ)句必須包含空括號 ()。
下面的 Sub 過(guò)程使用兩個(gè)固有的（或內置的）VBScript 函數，即 MsgBox 和 InputBox，來(lái)提示用戶(hù)輸入信息。然后顯示根據這些信息計算的結果。計算由使用 VBScript 創(chuàng )建的 Function 過(guò)程完成。此過(guò)程在以下討論之后演示。
Sub ConvertTemp()
temp = InputBox("請輸入華氏溫度。", 1)
MsgBox "溫度為 " & Celsius(temp) & " 攝氏度。"
End Sub
Function 過(guò)程
Function 過(guò)程是包含在 Function 和 End Function 語(yǔ)句之間的一組 VBScript 語(yǔ)句。Function 過(guò)程與 Sub 過(guò)程類(lèi)似，但是 Function 過(guò)程可以返回值。Function 過(guò)程可以使用參數（由調用過(guò)程傳遞的常數、變量或表達式）。如果 Function 過(guò)程無(wú)任何參數，則 Function 語(yǔ)句必須包含空括號 ()。Function 過(guò)程通過(guò)函數名返回一個(gè)值，這個(gè)值是在過(guò)程的語(yǔ)句中賦給函數名的。Function 返回值的數據類(lèi)型總是 Variant。
在下面的示例中，Celsius 函數將華氏度換算為攝氏度。Sub 過(guò)程 ConvertTemp 調用此函數時(shí)，包含參數值的變量被傳遞給函數。換算結果返回到調用過(guò)程并顯示在消息框中。
Sub ConvertTemp()
temp = InputBox("請輸入華氏溫度。", 1)
MsgBox "溫度為 " & Celsius(temp) & " 攝氏度。"
End Sub
Function Celsius(fDegrees)
Celsius = (fDegrees - 32) * 5 / 9
End Function
過(guò)程的數據進(jìn)出
給過(guò)程傳遞數據的途徑是使用參數。參數被作為要傳遞給過(guò)程的數據的占位符。參數名可以是任何有效的變量名。使用 Sub 語(yǔ)句或 Function 語(yǔ)句創(chuàng )建過(guò)程時(shí)，過(guò)程名之后必須緊跟括號。括號中包含所有參數，參數間用逗號分隔。例如，在下面的示例中，fDegrees 是傳遞給 Celsius 函數的值的占位符：
Function Celsius(fDegrees)
Celsius = (fDegrees - 32) * 5 / 9
End Function
要從過(guò)程獲取數據，必須使用 Function 過(guò)程。請記住，Function 過(guò)程可以返回值；Sub 過(guò)程不返回值。
在代碼中使用 Sub 和 Function 過(guò)程
調用 Function 過(guò)程時(shí)，函數名必須用在變量賦值語(yǔ)句的右端或表達式中。例如：
Temp = Celsius(fDegrees)
或
MsgBox "溫度為 " & Celsius(fDegrees) & " 攝氏度。"
調用 Sub 過(guò)程時(shí)，只需輸入過(guò)程名及所有參數值，參數值之間使用逗號分隔。不需使用 Call 語(yǔ)句，但如果使用了此語(yǔ)句，則必須將所有參數包含在括號之中。
下面的示例顯示了調用 MyProc 過(guò)程的兩種方式。一種使用 Call 語(yǔ)句；另一種則不使用。兩種方式效果相同。
Call MyProc(firstarg, secondarg)
MyProc firstarg, secondarg
請注意當不使用 Call 語(yǔ)句進(jìn)行調用時(shí)，括號被省略。
聲明 Sub 過(guò)程的名稱(chēng)、參數以及構成其主體的代碼。
[Public [Default] | Private] Sub name [(arglist)]
[statements]
[Exit Sub]
[statements]
End Sub
參數
Public
表示 Sub 過(guò)程可被所有腳本中的所有其他過(guò)程訪(fǎng)問(wèn)。
Default
只與 類(lèi)塊中的Public 關(guān)鍵字連用，用來(lái)表示 Sub 過(guò)程是類(lèi)的默認方法。如果在類(lèi)中指定了不止一個(gè)Default過(guò)程，就會(huì )出錯。
Private
表示 Sub 過(guò)程只可被聲明該過(guò)程的腳本中的其他過(guò)程訪(fǎng)問(wèn)。
name
Sub 的名稱(chēng)，遵循標準變量命名規則。
arglist
代表在調用時(shí)要傳遞給 Sub 過(guò)程的參數的變量列表。用逗號隔開(kāi)多個(gè)變量。
statements
在 Sub 過(guò)程主體內所執行的任何語(yǔ)句組。
arglist 參數包含下列語(yǔ)法和部分：
[ByVal | ByRef] varname[( )]
參數
ByVal
表示該參數是按值傳遞的。
ByRef
表示該參數按引用傳遞。
varname
代表參數的變量名稱(chēng)，遵循標準變量命名規則。
說(shuō)明
如沒(méi)有顯式地指定使用 Public 或 Private，則 Sub 過(guò)程默認為公用，即它們對于腳本中的所有其他過(guò)程都是可見(jiàn)的。Sub 過(guò)程中局部變量的值在調用過(guò)程中不被保留。
不能在任何其他過(guò)程（例如，Function 或 Property Get）中定義 Sub 過(guò)程。
使用 Exit Sub 語(yǔ)句可以立即從 Sub 過(guò)程中退出。程序繼續執行調用 Sub 過(guò)程的語(yǔ)句之后的語(yǔ)句?？梢栽?Sub 過(guò)程中任意位置出現任意個(gè) Exit Sub 語(yǔ)句。
與 Function 過(guò)程相似之處是：Sub 過(guò)程是一個(gè)可以獲取參數，執行一系列語(yǔ)句以及可改變其參數的值的獨立過(guò)程。而與 Function 過(guò)程不同之處是：Function 過(guò)程可以返回值，而 Sub 過(guò)程不能用于表達式中。
可以使用過(guò)程名并跟隨相應的參數列表來(lái)調用 Sub 過(guò)程。關(guān)于如何調用 Sub 過(guò)程的詳細說(shuō)明信息，請參閱 Call 語(yǔ)句。
警告 Sub 過(guò)程可以是遞歸的，即該過(guò)程可以調用自己來(lái)完成某個(gè)給定的任務(wù)。但是遞歸可能會(huì )導致堆棧溢出。
在 Sub 過(guò)程中使用的變量分為兩類(lèi)：一類(lèi)是在過(guò)程內顯式聲明的，另一類(lèi)則不是。在過(guò)程內顯式聲明的變量（使用 Dim 或等效方法）總是局部變量。對于那些沒(méi)有在過(guò)程中顯式聲明的變量也是局部的，除非在該過(guò)程外更高級別的位置顯式地聲明它們。
警告 過(guò)程可以使用沒(méi)有在過(guò)程內顯式聲明的變量，但只要有任何 script 級定義的名稱(chēng)與之同名，就會(huì )產(chǎn)生名稱(chēng)沖突。如果過(guò)程中引用的未聲明的變量與其他的過(guò)程、常數或變量的名稱(chēng)相同，則會(huì )認為過(guò)程引用的是腳本級的名稱(chēng)。要避免這類(lèi)沖突，請使用 Option Explicit 語(yǔ)句可強制顯式聲明變量。
聲明 Function 過(guò)程的名稱(chēng)、參數以及構成其主體的代碼。
[Public [Default]| Private] Function name [(
arglist
)]
[statements]
[name = expression]
[Exit Function]
[statements]
[name = expression]
End Function
參數
Public
表示 Function 過(guò)程可被所有腳本中的所有其他過(guò)程訪(fǎng)問(wèn)。
Default
只與 Class 塊中的 Public 關(guān)鍵字一起使用來(lái)表示 Function 過(guò)程是類(lèi)的默認方法。如果在一個(gè)類(lèi)中指定了不止一個(gè) Default 過(guò)程，就有錯誤發(fā)生。
Private
表示 Function 過(guò)程只可被聲明它的腳本中的其他過(guò)程訪(fǎng)問(wèn)或者如果函數是一個(gè)數據類(lèi)，那么 Function 過(guò)程只能被該類(lèi)中的其他過(guò)程訪(fǎng)問(wèn)。
name
Function 的名稱(chēng)，遵循標準的變量命名規則。
arglist
代表調用時(shí)要傳遞給 Function 過(guò)程的參數的變量列表。用逗號隔開(kāi)多個(gè)變量。
statements
在 Function 過(guò)程的主體中執行的任意語(yǔ)句組。
expression
Function 的返回值。
arglist 參數包含下列語(yǔ)法和部分：
[ByVal | ByRef] varname[( )]
參數
ByVal
表示該參數是按值方式傳遞的。
ByRef
表示該參數按引用方式傳遞。
varname
代表參數變量的名稱(chēng)；遵循標準的變量命名規則。
說(shuō)明
如沒(méi)有顯式指定使用 Public 或 Private，則 Function 過(guò)程默認為公用，即它們對于腳本中的所有其他過(guò)程是可見(jiàn)的。Function 中局部變量的值在對過(guò)程的調用中不被保留。
不能在任何其他過(guò)程（例如，Sub 或 Property Get）中定義 Function 過(guò)程。
使用 Exit Function 語(yǔ)句可以從 Function 過(guò)程中立即退出。程序繼續執行調用 Function 過(guò)程的語(yǔ)句之后的語(yǔ)句?？稍?Function 過(guò)程的任何位置出現任意個(gè) Exit Function 語(yǔ)句。
與 Sub 過(guò)程類(lèi)似，Function 過(guò)程是可以獲取參數、執行一系列語(yǔ)句并改變其參數值的獨立過(guò)程。與 Sub 過(guò)程的不同之處是：當要使用由函數返回的值時(shí)，可以在表達式的右邊使用 Function 過(guò)程，這與內部函數的使用方式一樣，例如 Sqr、Cos 或 Chr。
在表達式中，可以通過(guò)使用函數名，并在其后用圓括號給出相應的參數列表來(lái)調用 Function 過(guò)程。有關(guān)調用 Function 過(guò)程的詳細信息，請參閱 Call 語(yǔ)句。
警告 Function 過(guò)程可以是遞歸的，即該過(guò)程可以調用自身以完成某個(gè)給定的任務(wù)。但是，遞歸可能會(huì )導致堆棧溢出。
要從函數返回一個(gè)值，只需將值賦給函數名。在過(guò)程的任意位置都可以出現任意個(gè)這樣的賦值。如果沒(méi)有給 name 賦值, 則過(guò)程將返回一個(gè)默認值：數值函數返回 0，字符串函數返回零長(cháng)度字符串 ("")。如果在 Function 中沒(méi)有對象引用被指定給 name（使用 Set），則返回對象引用的函數將返回 Nothing。
下面的樣例說(shuō)明如何給一個(gè)名為 BinarySearch 的函數賦返回值。在此樣例中，將 False 賦給了該函數名，表示沒(méi)有找到某個(gè)值。
Function BinarySearch(. . .)
. . .
‘‘ 未找到該值。返回 False 值。
If lower > upper Then
BinarySearch = False
Exit Function
End If
. . .
End Function
在 Function 過(guò)程中使用的變量分為兩類(lèi)：一類(lèi)是在過(guò)程內顯式聲明的，另一類(lèi)則不是。在過(guò)程內顯式聲明的變量（使用 Dim 或等效方法）總是過(guò)程的局部變量。被使用但沒(méi)有在過(guò)程中顯式聲明的變量也是局部變量，除非在該過(guò)程外更高級別的位置顯式聲明它們。
警告 過(guò)程可以使用沒(méi)有在過(guò)程內顯式聲明的變量，但只要有任何 script 級定義的名稱(chēng)與之同名，就會(huì )產(chǎn)生名稱(chēng)沖突。如果過(guò)程中引用的未聲明的變量與其他的過(guò)程、常數或變量的名稱(chēng)相同，則會(huì )認為過(guò)程引用的是腳本級的名稱(chēng)。要避免這類(lèi)沖突，請使用 Option Explicit 語(yǔ)句可強制顯式聲明變量。
警告 VBScript 可能會(huì )重新排列數學(xué)表達式以提高內部效率。當 Function 過(guò)程修改數學(xué)表達式中變量的值時(shí)，應避免在同一表達式中使用該函數。
