[其它考試]第五章過程(編輯修改稿)
2024-11-14 22:36 本頁面
【文章內容簡介】 0210 End Sub ??? 511 i iat??? 511 i iat??? 832 i ibt 可選參數和可變參數 ?可選參數 ? 定義帶可選參數的過程，必須在參數表中使用 Optional關鍵字，并在過程體中通過 IsMissing函數測試調用時是否傳遞可選參數。 Optional關鍵字可以和 ByVal關鍵字一起使用。 ? 可選參數必須放在參數表的最后，而且必須是 Variant類型；某個參數被指定為可選參數，則它后面的參數也須都是可選參數 【 范例 56】 可選參數示例，顯示主調過程提供可選參數和不提供可選參數的情況。圖中命令按鈕和列表框分別為控件數組。 Sub listText(index As Integer, x As String, Optional y As String)圖 54 可選參數示例 List1(index).AddItem x If Not IsMissing(y) Then List1(index).AddItem y End If End Sub Private Sub Command1_Click(index As Integer) Dim strName As String, strAddress As String If index = 0 Then strName = yourname 39。未提供可選參數 Call listText(index, strName, strAddress) Else strName = yourname strAddress = 123456 39。提供了可選參數 Call listText(index, strName, strAddress) End If End Sub 可選參數和可變參數 ?可變參數 ? 用 ParamArray關鍵字指明，過程將可以接收任意個數的參數。其語法如下： Sub 過程名 (ParamArray 數組名 ) ? “ 數組名 ” 是一個形參，只用名字和括號，沒有上下界。 ? 由于省略了變量類型， “ 數組 ” 的類型默認為 Variant，由于可變參數過程中的參數是 Variant類型，所以可以把任何類型的實參傳遞給該過程。 可選參數和可變參數 【 范例 57】 利用 ParamArray關鍵字編寫一個求多個數總和的 Sum函數，程序運行結果如圖所示： Dim x, y As Integer, intSum As Integer Sub Sum(ParamArray inNums()) For Each x In inNums y = y + x Next x intSum = y End Sub Private Sub Command1_Click() Sum 1, 3, 5, 7, 9, 11 = intSum End Sub 可選參數和可變參數 VB允許對象，即窗體和控件作為通用過程的參數。用對象作為參數與用其他數據類型作為參數的過程沒有什么區(qū)別。其語法如下： Sub 過程名 (參數列表 ) 語句塊 [Exit Sub] End Sub “參數列表”中形參的類型通常為 Control或Form。在調用含有對象的過程時，對象只能按地址傳遞，因此在定義過程是，不能在其參數前加ByVal。 對象參數 【 范例 58】 編寫一個程序，為 label控件設置字體、字號及其背景顏色。 Sub LabelSet(LabelName As Control) = RGB(127, 127, 127)
教學課件相關推薦
鄂ICP備17016276號-1