VBNet - Форум - Как передать функции двумерный массив?

Вопрос: Как передать функции двумерный массив? Добавлено: 15.07.03 11:51

Автор вопроса: Chill | ICQ: 554200

Как реальзовать сабж???

С одномерным все просо и понятно, а как передавать многомерный (мне нужен двухмерный) массив в функцию? Причем размер массива заранее не известен.

Плз. помогите, очень нада, трабла на работе....

Ответить

Ответы Всего ответов: 5

Номер ответа: 1
Автор ответа:

Snake

ICQ: 302130238

Вопросов: 16
Ответов: 39

Профиль | | #1

Добавлено: 15.07.03 14:35

Если размерность зараннее не известна, то ты Redim шспользуешь гдето? Если так то вот... работает

Private Sub Command1_Click()
Dim matrix As Variant
ReDim matrix(3, 4)
matrix(0, 1) = 11
matrix(0, 2) = 12
matrix(1, 1) = 21
matrix(1, 2) = 22
Call farr(matrix)
matrix = fmatrix(matrix)
End Sub

Public Sub farr(matrix)
matrix(0, 0) = 10 + matrix(0, 1)
End Sub

Public Function fmatrix(matrix)
matrix(0, 0) = matrix(0, 0) + matrix(0, 1) * 5
fmatrix = matrix
End Function

Ответить

Номер ответа: 2
Автор ответа:

Chill

ICQ: 554200

Вопросов: 101
Ответов: 343

Профиль | | #2

Добавлено: 15.07.03 17:19

А как в таком случае контролировать выход за рамки массива??

У мя в функции внутри цикла заполнение идет. В принципе можно передавать размер массива в функцию в качестве параметров, но хотелось бы, что-нибудь поизящнее