SOGO論壇

標題: 陣列引數 [列印本頁]

作者: mm117777    時間: 2012-7-19 10:52:23     標題: 陣列引數

sub ArrayArg(x( ) as integer)
陣列 x( ) 需先宣告其資料型態及大小,並以傳址(ByRef)呼叫方式傳遞資料至副程式或函數,資料若有更動亦將傳回。

二維陣列引數範例 Function_2dArray.zip

引數呼叫的變數傳送類型

Call by Value 傳值呼叫(ByVal)
呼叫者將變數值傳給副程式或函數,在該副程式或函數中若有改變,不影響原值。

Call by Reference 傳址呼叫(ByRef,預設)
呼叫者將變數儲存位址傳給副程式或函數,在該副程式或函數中若有改變,即影響原值。

範例:《下載程式檔(.zip)》Private Sub Command1_Click()

    Dim X As Integer, Y As Integer, Z As Integer '宣告變數
    X = 1
    Y = 2
    Z = 3
    CallByValue X, Y, Z
    Print "傳出的 X 值為:"; X
    Print "傳出的 Y 值為:"; Y
    Print "傳出的 Z 值為:"; Z
End Sub

Sub CallByValue(ByVal X As Integer, ByRef Y As Integer, Z As Integer)
    Print "傳入的 X 值為:"; X
    X = 6 '變更X值
    Print "傳入的 Y 值為:"; Y
    Y = 6 '變更Y值
    Print "傳入的 Z 值為:"; Z
    Z = 6 '變更Z值
End Sub







歡迎光臨 SOGO論壇 (https://oursogo.com/) Powered by OURSOGO.COM