Задан двухмерный массив надо

Найти сумму максимальных элементов столбцов матрицы Х (n, n).

вот написал но не так как надо делает помогите

Private Sub CommandButton4_Click ()

ReDim w (m, n)

For j = 1 To n

Max = 0

For i = 1 To mIf Max < a (i, j) Then Max = a (i, j)

Next i

MaxNext j

TextBox2. Text = TextBox2. Text + Str (s) + " "

End Sub

Видимо, это фрагмент программы на VB, привязанный к клику по кнопке Button4 на некоторой форме.

Private Sub CommandButton4_Click ()

Max = 0

For j = 1 To n

For i = 1 To m

If Max < a (i, j) Then Max = a (i, j)

Next i

Next j

TextBox2. Text = TextBox2. Text + Str (Max) + " "

End Sub

Здесь ищется, а затем выводится в поле на форме максимальный элемент двухмерного массива, который извне и заполнен некоторыми значениями. Оператор ReDim я убрал, потому что он уничтожит содержимое массива.