Найти номер строки матрицы с максимальным элементом - Visual Basic .NET - Ответ 5458071

Public Class Form1
    Private Sub vvod_mat(ByRef a(,) As Integer, ByRef n As Integer, ByRef m As Integer)
        Dim i, j As Integer
        n = val(inputbox("укажите количество строк в матрице"))
        m = val(inputbox("укажите количество столбцов в матрице"))
        ReDim a(n - 1, m - 1)
        For i = 0 To n - 1
            For j = 0 To m - 1
                a(i, j) = val(inputbox("введите элемент матрицы, стоящий в " + str(i + 1) + "-й строке и в " + str(j + 1) + "-м столбце"))
            Next
        Next
    End Sub
    Private Sub vivod_mat(ByVal a(,) As Integer, ByVal n As Integer, ByVal m As Integer, ByRef list As ListBox)
        Dim i, j As Integer
        Dim s As String
        For i = 0 To n - 1
            s = ""
            For j = 0 To m - 1
                s = s + str(a(i, j)) + " "
            Next
            list.items.add(s)
        Next
    End Sub
    Public Function nah(ByVal a(,) As Integer, ByVal n As Integer, ByVal m As Integer) As Integer
        Dim i, j, imax, max As Integer
        max = a(0, 0)
        imax = 0
        For i = 0 To n - 1
            For j = 0 To m - 1
                If a(i, j) > max Then max = a(i, j) : imax = i
            Next
        Next
        nah = imax
 
    End Function
    Private Sub sr_ar(ByVal a(,) As Integer, ByVal n As Integer, ByVal m As Integer, ByRef ni As Integer, ByRef text As TextBox)
        Dim i, j, ch, sum, ar As Integer
        sum = 0
        ch = 0
        i = ni
        For j = 0 To m - 1
            If (a(i, j) Mod 2) > 0 Then sum = sum + a(i, j) : ch = ch + 1
        Next
        ar = sum / ch
        text.Text = Str(ar)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a(,), n, m As Integer
        ListBox1.Items.Clear()
        TextBox1.Text = ""
        vvod_mat(a, n, m)
        vivod_mat(a, n, m, ListBox1)
        nah(a, n, m)
        sr_ar(a, n, m, nah, TextBox1)
 
 
 
 
 
    End Sub
End Class