تابع با پارامتر نامحدود

[Mehrdad Pro]

تابعی تعریف کنید که هر تعداد پارامتر برایش ارسال کنیم ، مجموع آنها را برگرداند.
Sum(2,3,4) یا Sum(1,5,7,9,8,6)

[داريوش]

Private Function AddValues(ByVal ParamArray Args() As Int32) As Int32
Dim Sum, i As Int32
For i = 0 To Args.Length - 1
Sum += Args(i)
Next
Return Sum
End Function