Коллеги, помогите неграмотному
Необходимо передать массив в функцию
Если заполняю массив в ручную a(1)=1: a(2)=5: a(3)=7, то все работает
А если с помощью фунции Array(1, 5, 7), то выдает ошибку
Compile error:
Type mismatch: array or user-defined type expected
В ниже представленном коде если закомментировать строку Array_Bardak = Sum_Array(a()) и раскомментировать следующую строку Array_Bardak = Sum_Array(Array(1, 5, 7)) - выдает ошибку
Что надо поправить в коде ?



Function Array_Bardak()
Dim a(1 To 3) As Integer

a(1) = 1: a(2) = 5: a(3) = 7
Array_Bardak = Sum_Array(a())
'Array_Bardak = Sum_Array(Array(1, 5, 7))

End Function

Function Sum_Array(a() As Integer) As Integer
Dim i As Integer

For i = 1 To UBound(a)
Sum_Array = Sum_Array + a(i)
Next i

End Function

AkinaSema9если закомментировать строку Array_Bardak = Sum_Array(a()) и раскомментировать следующую строку Array_Bardak = Sum_Array(Array(1, 5, 7)) - выдает ошибкуА посмотреть, где ошибка и какая, религия не позволила? Как ты думаешь, можно обращаться к элементу трёхмерного массива как a(i)???

А почему трехмерный ?
Вот пример из мелкософтовского мануала
Set rs = cn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "Table"))
Здесь что, массив Array(Empty, Empty, Empty, "Table") четырехмерный ?
Или я чего-то не понимаю ?

КазанскийФункция Array возвращает массив типа Variant(), а у Вас все переменные Integer, отсюда Type mismatch.
И так не работает

Function Array_Bardak()
Dim a(1 To 3) As Variant
a(1) = 1: a(2) = 5: a(3) = 7
'Array_Bardak = Sum_Array(a())
Array_Bardak = Sum_Array(Array(1, 5, 7))
End Function

Function Sum_Array(a() As Variant) As Integer
Dim i As Integer
For i = 1 To UBound(a)
Sum_Array = Sum_Array + a(i)
Next i
End Function

КазанскийВообще полезно аргументом функции иметь единичную переменную типа Variant. В этом случае в функцию можно почти что угодно.
И справку читайте, да.

Спасибо огромное