RosettaCodeData/Task/Variadic-function/Visual-Basic/variadic-function.vb

6 lines
98 B
VB.net

Sub varargs(ParamArray a())
For n = 0 To UBound(a)
Debug.Print a(n&)
Next
End Sub