|
Pravda, je tam zmínka o VBA. Funkce by měla něco vracet? První má vracet stále False a druhý by měl vrátit pole? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | Sub TestPolni()
Dim pole1(), pole2(), pole3()
pole1 = Array(1, 2, 3)
pole2 = VratPole2xArguments(1, 2, 3)
pole3 = VratPole3xPole(pole1)
End Sub
Function VratPole2xArguments(ParamArray Arguments() As Variant) As Variant
Dim i As Integer
For i = LBound(Arguments) To UBound(Arguments)
Arguments(i) = Arguments(i) * 2
Next
VratPole2xArguments = Arguments
End Function
Function VratPole3xPole(Arguments() As Variant) As Variant
Dim i As Integer
Dim Args()
Args = Arguments
For i = LBound(Args) To UBound(Args)
Args(i) = Args(i) * 3
Next
VratPole3xPole = Args
End Function
|
Nevím přesně záměr, ale snad test polní napoví. Mělo to být VBA, ač je to v kategorii VB.Net?
|