Как послать в функцию двумерную матрицу??

[Manson]

Как послать в функцию двумерную матрицу??

[Yurich]

Напр:
Option Explicit
Type MyMatrix
Number(1 To 2, 1 To 2) as Single
End Type

Private Sub Form_Load()
Dim Matrix As MyMatrix
Dim Result As MyMatrix
Matrix.Number(1,1)=...
Matrix.Number(1,2)=...
...
Matrix.Number(2,2)=...
Result= ProcessMatrix(Matrix)
End Sub

Function ProcessMatrix(SrcMatrix as MyMatrix) As MyMatrix
ProcessMatrix.Number(1,1)=...
ProcessMatrix.Number(1,2)=...
...
ProcessMatrix.Number(2,2)=...
End Function

[Алекс]

?:?:?:?:?:?:?:?:?:?:?:?:?:?
Зачем создавать тип???
Public MyMatrix(2, 2)

[Tauron]

Алекс:
Ты сильно не прав. Так можно седлать, если массив один на всю программу и вызывается функция из одного места. А если у тебя 10 массивов, 20? Функция-то одна.


А вообще в

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

Function ProcessMatrix(SrcMatrix() as Long) as Long


можно передать любой массив.

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

Dim MyMatrix(2,2) as Long
Ret=ProcessMatrix(MyMatrix)


[Алекс]

Алекс:
Ты сильно не прав. Так можно седлать, если массив один на всю программу и вызывается функция из одного места. А если у тебя 10 массивов, 20? Функция-то одна.

Ну а в данном то случае ему нужна одна...