استفاده از نامحدود آرگمان در تابع تعریف شده

Question

با سلام.

دوستان تابع choose یا switch در vb6 را در نظر بگیرید. برای مثال تابع choose پارامتر اولش شماره آرایه را میگیره بعد طبق آن یکی از پارامتر های بعدی را برای نمایش انتخاب می کنه. مثلا اگه در پارامتر اول 2 وارد بشه، محتویات پارامتر سوم را برای نمایش در نظر میگیره.

دوستان این توابع را چطوری میشه نوشت؟ برای مثال من می خواهم یک تابع بنویسم که کاربر هرچقدر عدد دوست داشت به عنوان پارامتر وارد کنه بعد ما جمع آنها یا Max شان را به عنوان خروجی در نظر بگیریم.

با تشکر.

Answer 1

دوستان جوابشو پیدا کردم!

Function jam(ParamArray x()) As Currency
 
    Dim i%, j@
    For i = 0 To UBound(x)
        j = j + x(i)
    Next
    jam = j
 
End Function
 
Private Sub Form_Load()
 
    MsgBox jam(1, 2)
    MsgBox jam(2, 3, 5, 9)
 
End Sub