Перенос элементов одного массива в другой

[Sheogorath]

Здравствуйте, уважаемые форумчане! Прошу Вашей помощи.
Есть такой код:

Public Sub test()
    Dim f(1 To 9, 1 To 9) As Byte
    
    f(1, 1) = 5
    Call testf(f)
    MsgBox "test = " + Str(f(1, 1))
End Sub

Public Sub testf(ByRef f As Variant)
    Dim b(1 To 9, 1 To 9) As Byte
    Dim i As Integer, j As Integer
    
    b(1, 1) = 10
    f = b
    MsgBox "testf = " + Str(f(1, 1))
End Sub

Почему testf = 10, а test = 0 ???

[IgorGO]

читайте в справке
Call Statement
там все написано

вот так:

    f(1) = 5
    testf (f)
    Debug.Print "test = " + Str(f(1))

test будет равно = 5 (как Вы, видимо, и расчитывали)

[Казанский]

Sheogorath, статические массивы не предназначены для присваивания "целиком". Объявите принимающий массив как динамический, и сразу станет хорошо.

ReDim f(1 To 9, 1 To 9) As Byte