функция возвращает массив

[drronnie]

Господа, как сделать, чтоб функция возвращала массив?
Например функция test с аргуметами aaa и bbb возвращает массив размером aaa на bbb все элементы которого равны 5...
Как реализовать

[Andrey Fedorov]

Например функция test с аргуметами aaa и bbb возвращает массив размером aaa на bbb все элементы которого равны 5...

Можно так:

Код: Выделить всё

Private Sub MySyb(aaa As Long, bbb As Long, MyArr() As Long)
    Dim i As Long
    Redim MyArr(aaa To bbb)
    For i = aaa To bbb
        MyArr(i) = 5
    Next i
Next Sub

[GM]

Или так:

Код: Выделить всё

Private Function test(aaa As Long, bbb As Long) as long()
    Dim i As Long
Dim myarr() As Long
    Redim MyArr(aaa To bbb)
    For i = aaa To bbb
        MyArr(i) = 5
    Next i
test = myarr
end function


[FaKk2]

Странно...Саму ф-цию компилирует, а как запускать?

Код: Выделить всё

Private Sub Form_Load()
Dim arr As Long

arr = test(0, 5)
End Sub


---------------------------
Microsoft Visual Basic
---------------------------
Compile error:

Type mismatch
---------------------------
OK Help
---------------------------

[FaKk2]

такой вариант тоже не катит:

Код: Выделить всё

Private Sub Form_Load()
Dim arr() As Long

arr = test(0, 5)
End Sub


---------------------------
Microsoft Visual Basic
---------------------------
Compile error:

Can't assign to array
---------------------------
OK Help
---------------------------

[GM]

А так:

Код: Выделить всё

Private Sub Form_Load()
Dim arr() As Long

arr = test(0, 5)
End Sub
Private Function test(aaa As Long, bbb As Long) As Long()
    Dim i As Long
    Dim myarr() As Long
    ReDim myarr(aaa To bbb)
    For i = aaa To bbb
        myarr(i) = 5
    Next i
test = myarr
End Function


[FaKk2]

А это работает

[drronnie]

Спасибо!