国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

VBS教程:VBScript 基礎-VBScript 過程

2020-06-26 18:03:13
字體:
來源:轉載
供稿:網友

VBScript 過程

在 VBScript 中,過程被分為兩類:Sub 過程和 Function 過程。

Sub 過程

Sub 過程是包含在 Sub 和 End Sub 語句之間的一組 VBScript 語句,執行操作但不返回值。Sub 過程可以使用參數(由調用過程傳遞的常數、變量或表達式)。如果 Sub 過程無任何參數,則 Sub 語句必須包含空括號 ()。

下面的 Sub 過程使用兩個固有的(或內置的)VBScript 函數,即 MsgBox 和 InputBox,來提示用戶輸入信息。然后顯示根據這些信息計算的結果。計算由使用 VBScript 創建的 Function 過程完成。此過程在以下討論之后演示。

 Sub ConvertTemp()    temp = InputBox("請輸入華氏溫度。", 1)    MsgBox "溫度為 " & Celsius(temp) & " 攝氏度。" End Sub

Function 過程

Function 過程是包含在 Function 和 End Function 語句之間的一組 VBScript 語句。Function 過程與 Sub 過程類似,但是 Function 過程可以返回值。Function 過程可以使用參數(由調用過程傳遞的常數、變量或表達式)。如果 Function 過程無任何參數,則 Function 語句必須包含空括號 ()。Function 過程通過函數名返回一個值,這個值是在過程的語句中賦給函數名的。Function 返回值的數據類型總是 Variant。

在下面的示例中,Celsius 函數將華氏度換算為攝氏度。Sub 過程 ConvertTemp 調用此函數時,包含參數值的變量被傳遞給函數。換算結果返回到調用過程并顯示在消息框中。

 Sub ConvertTemp()     temp = InputBox("請輸入華氏溫度。", 1)     MsgBox "溫度為 " & Celsius(temp) & " 攝氏度。" End Sub Function Celsius(fDegrees)     Celsius = (fDegrees - 32) * 5 / 9 End Function

過程的數據進出

給過程傳遞數據的途徑是使用參數。參數被作為要傳遞給過程的數據的占位符。參數名可以是任何有效的變量名。使用 Sub 語句或 Function 語句創建過程時,過程名之后必須緊跟括號。括號中包含所有參數,參數間用逗號分隔。例如,在下面的示例中,fDegrees 是傳遞給 Celsius 函數的值的占位符:

 Function Celsius(fDegrees)    Celsius = (fDegrees - 32) * 5 / 9 End Function

要從過程獲取數據,必須使用 Function 過程。請記住,Function 過程可以返回值;Sub 過程不返回值。

在代碼中使用 Sub 和 Function 過程

調用 Function 過程時,函數名必須用在變量賦值語句的右端或表達式中。例如:

 Temp = Celsius(fDegrees)

 MsgBox "溫度為 " & Celsius(fDegrees) & " 攝氏度。"

調用 Sub 過程時,只需輸入過程名及所有參數值,參數值之間使用逗號分隔。不需使用 Call 語句,但如果使用了此語句,則必須將所有參數包含在括號之中。

下面的示例顯示了調用 MyProc 過程的兩種方式。一種使用 Call 語句;另一種則不使用。兩種方式效果相同。

 Call MyProc(firstarg, secondarg) MyProc firstarg, secondarg

請注意當不使用 Call 語句進行調用時,括號被省略。

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 揭东县| 灌南县| 武城县| 昆明市| 曲松县| 浠水县| 宣城市| 石林| 涪陵区| 九台市| 儋州市| 莱芜市| 岑巩县| 柯坪县| 历史| 布尔津县| 九龙城区| 华蓥市| 茶陵县| 大连市| 新津县| 奉贤区| 中宁县| 南雄市| 吉木萨尔县| 商洛市| 伊金霍洛旗| 体育| 如皋市| 甘洛县| 称多县| 陇西县| 房产| 偏关县| 石林| 日照市| 浪卡子县| 双鸭山市| 中山市| 中山市| 电白县|