Задан двухмерный массив надо найти сумму максимальных элементов столбцов матрицы х(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 я убрал, потому что он уничтожит содержимое массива.