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

Question

Задан двухмерный массив надо
Найти сумму максимальных элементов столбцов матрицы Х(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

Answer 1

Видимо, это фрагмент программы на 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 я убрал, потому что он уничтожит содержимое массива.