طراحی تابع جمع با تعداد پارامتر های نامشخص

[mahdi.manian]

با سلام.

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

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

با تشکر.

[setroyd]

Private Function jam(Adad() As Long) As Double
For a = LBound(Adad) To UBound(Adad)
j = j + Adad(a)
Next
jam = j
End Function
Private Sub Form_Load()
Dim b(4) As Long
b(0) = 10
b(1) = 30
b(4) = 60
MsgBox jam(b)
End Sub


به ین شکل میتونی بنویسی همینجوری زود نوشتم که فقط منظورو بگیری .

[vbhamed]

سلام
كد setroyd عزيز هم درسته و روش استاندارش هم اينه
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