تعریف آرایه به عنوان ورودی یک تابع

[noorsoft]

برای اینکه بتوان یک آرایه را در ورودی یک تابع قرار داد چکار باید بکنیم

[arashrj]

سلام
این هم یه نمونه خیلی ساده برای ارسال ارایه به تایع

کد:

Public Function test(a() As Integer)
    MsgBox a(1) + a(2)
End Function

Private Sub Form_Load()
Dim RJ(2) As Integer
    RJ(1) = 68
    RJ(2) = 20
    Call test(RJ)
End Sub

موفق باشی

[Darg]

در تکمیل این تاپیک و همین طور مثال جناب arashrj کد زیر رو هم اضافه کنم:

چه کار کنیم خروجی تابعمون به شکل یک آرایه باشه

کد:

Public Function test(a As Integer, b As Integer, c As Integer) As String()
Dim RJ(2) As String
    
    RJ(0) = a * 2
    RJ(1) = b * 2
    RJ(2) = c * 2
    test = RJ
End Function

Private Sub Form_Load()
   MsgBox test(1, 2, 3)(2) '=6
End Sub