RosettaCodeData/Task/Variadic-function/Visual-Basic/variadic-function.vb
Ingy döt Net 68f8f3e56b all tasks
2013-04-11 01:07:29 -07:00

5 lines
98 B
VB.net

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