Дан двумерный массив С(6,10) целых чисел

Option Explicit On
Option Strict On
Imports System.Math
Public Class Form1
    Sub vivod(ByRef Z As Integer, ByRef D As TextBox)
        D.Text = CStr(Z)
    End Sub
    Sub vvodmatr(ByRef C(,) As Integer)
        Dim m, n, i, j As Integer
        m = C.GetLength(0) - 1
        n = C.GetLength(1) - 1
        For i = 0 To m
            For j = 0 To n
                C(i, j) = CInt(Rnd(1) * 7)
            Next j
        Next i
    End Sub
    Sub vivodlist(ByRef C(,) As Integer, ByRef LB As ListBox)
        Dim m, n, i, j As Integer
        Dim z, z1 As String
        m = C.GetLength(0) - 1
        n = C.GetLength(1) - 1
        LB.Items.Clear()
        For i = 0 To m
            z = ""
            For j = 0 To n
                z1 = Format(C(i, j), "0.")
                If C(i, j) < 0 Then
                    z1 = Space(3) + z1
                Else
                    z1 = Space(2) + z1
                End If
                z = z1 + z
            Next j
            LB.Items.Add(z)
        Next i
    End Sub
    Sub vivodmas(ByRef b() As Integer, ByVal L As ListBox)
        Dim i As Integer
        Dim m As String = ""
        For i = 0 To UBound(b)
            m = m + Format(b(i), "0.0") + Space(4)
        Next i
        If m = "" Then m = "массив пуст"
        L.Items.Add(m)
    End Sub
    Function resh1(ByVal i As Integer, ByVal n As Integer, ByVal C(,) As Integer) As Integer
        Dim j, nom As Integer
        Dim min As Integer
        n = C.GetLength(1) - 1
        min = C(i, 0)
        nom = 0
        For j = 0 To n
            If C(i, j) < min Then
                min = C(i, j)
                nom = j
            End If
        Next
        Return nom
    End Function
    Sub resh2(ByVal m As Integer, ByVal n As Integer, ByVal C(,) As Integer, ByRef p As Integer)
        Dim t, i As Integer
        m = C.GetLength(0) - 1
        p = 1
        For i = 0 To m
            t = resh1(i, n, C)
            p = p * t
 
        Next
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim C(2, 2), n, m, i, p As Integer
        vvodmatr(C)
        vivodlist(C, ListBox1)
        resh2(m, n, C, p)
        vivod(p, TextBox1)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class

Option Explicit On
Option Strict On
Imports System.Math
 
Public Class Form1
    Sub Vivod(ByRef Z As Integer, ByRef D As TextBox)
        D.Text = CStr(Z)
    End Sub
    Sub VvodMatr(ByRef C(,) As Integer)
        Dim i, j As Integer
        For i = 0 To C.GetLength(0) - 1
            For j = 0 To C.GetLength(1) - 1
                C(i, j) = CInt(Rnd(1) * 7)
            Next j
        Next i
    End Sub
    Sub VivodList(ByRef C(,) As Integer, ByRef LB As ListBox)
        Dim i, j As Integer, z As String
        LB.Items.Clear()
        For i = 0 To C.GetLength(0) - 1
            z = ""
            For j = 0 To C.GetLength(1) - 1
                z = z & C(i, j) & Space(2)
            Next j
            LB.Items.Add(z)
        Next i
    End Sub
    Sub VivodMas(ByRef b() As Integer, ByVal L As ListBox)
        Dim i As Integer
        Dim m As String = ""
        For i = 0 To UBound(b)
            m = m + Format(b(i), "0.0") + Space(4)
        Next i
        If m = "" Then m = "массив пуст"
        L.Items.Add(m)
    End Sub
    Function Resh1(ByVal i As Integer, ByVal C(,) As Integer) As Integer
        Dim j, n, nom As Integer
        Dim min As Integer
        n = C.GetLength(1) - 1
        min = C(i, 0)
        nom = 1
        For j = 0 To n
            If C(i, j) < min Then
                min = C(i, j)
                nom = j + 1
            End If
        Next
        AddToListBox(ListBox1, CStr(nom))
        Return nom
    End Function
    Sub AddToListBox(ByVal LB As ListBox, ByVal s As String)
        LB.Items.Add(s)
    End Sub
    Sub Resh2(ByVal m As Integer, ByVal C(,) As Integer, ByRef p As Integer)
        Dim t, i As Integer
        m = C.GetLength(0) - 1
        p = 1
        AddToListBox(ListBox1, "Номера столбцов минимальных элементов строк")
        For i = 0 To m
            t = Resh1(i, C)
            p = p * t
        Next
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim C(6, 10), m, p As Integer
        VvodMatr(C)
        VivodList(C, ListBox1)
        Resh2(m, C, p)
        Vivod(p, TextBox1)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class