Определить в матрице столбец с максимальной суммой и в нем минимальный по величине элемент - VB (60844)

Формулировка задачи:

Дан двумерный массив размером n*m, заполненный случайными числами. Определить в нем столбец с максимальной суммой и в нем минимальный по величине элемент.

Решение задачи: «Определить в матрице столбец с максимальной суммой и в нем минимальный по величине элемент»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim i, sum, n, m, max, max_st, min As Integer
Dim a() As Double
Cls
n = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ°Г®ГЄ", "Г‘ГІГ°Г®ГЄГЁ")
m = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®Г«ГЁГ·ГҐГ±ГІГўГ® Г±ГІГ®Г«ГЎГ¶Г®Гў", "Г‘ГІГ®Г«ГЎГ»")
ReDim a(1 To n, 1 To m)
max = 0
For i = 1 To n
      For j = 1 To m
         a(i, j) = Int(Rnd * 100 - 10)
            If a(i, j) > max Then
max = a(i, j)
 max_st = j
End If
            Print a(i, j);
      Next
Print
Next
Print "ГЊГ*ГЄГ±ГЁГ¬Г*Г«ГјГ*Г»Г© ГЅГ«ГҐГ¬ГҐГ*ГІ"; max
Print "ГЌГ®Г¬ГҐГ° Г±ГІГ®Г«ГЎГ¶Г* Г± Г¬Г*ГЄГ±ГЁГ¬Г*Г«ГјГ*Г»Г¬ ГЅГ«ГҐГ¬ГҐГ*ГІГ®Г¬"; max_st
min = a(1, max_st)
For i = 2 To n
      If a(i, max_st) < min Then min = a(i, max_st)
Next
Print "ГЊГЁГ*ГЁГ¬Г*Г«ГјГ*Г»Г© ГЅГ«ГҐГ¬ГҐГ*ГІ Гў Г±ГІГ®Г«ГЎГ¶ГҐ В№ " & max_st & "="; min
End Sub
                        