Двумерые массивы Visual Basic

[etc]

Задача: Определить наибольший элемент в каждой строке массива A и записать его в соответствующий элемент одномерного массива X. Вывести массив X.

Я сделал вот так:

Dim a(9, 3) As Single
Dim x(9) As Single

...

Public Sub maxMac(ByVal a(,) As Single, ByRef x() As Single)
Dim n, m, i, j As Integer, max As Single
n = a.GetUpperBound(0)
m = a.GetUpperBound(1)
max = a(0, 0)
For i = 0 To n
For j = 0 To m
If a(i, j) > max Then
max = a(i, j)
End If
Next
x(i) = max
Next
vivodMac(x, ListBox2)
End Sub

В ListBox2 выводит нули.

Подскажите, пожалуйста, что не так. Ну или, если всё не правильно, подскажите как правильно эту задачу решить.

[Z1000000]

ты массив-то заполняешь данными ?

[etc]

да. просто ошибка именно в этом месте. всё остальное работает

[Z1000000]

ну выложи тогда весь код. На пальцах что ли компилировать?
среда VB 2010 ?