Поиск и вывод значения одинаковых элементов матрицы, их индексов - Visual Basic .NET - Ответ 4209720

Option Explicit On
Option Strict On
Imports System.Math
Public Class Form3
    Sub FormMatr(ByRef N(,) As Double, ByVal l As Integer, ByVal m As Integer)
        Dim i, j As Integer
 
        For i = 0 To l
            If i <= 3 Then
                For j = 0 To m
                    N(i, j) = i + 5 * j
                Next
            Else
                For j = 0 To m
                    N(i, j) = 7 * i + 2 * (j - 1)
                Next
            End If
        Next
    End Sub
    Sub VivodMatr(ByRef N(,) As Double, ByVal l As Integer, ByVal m As Integer, ByRef z As String)
        Dim i, j As Integer
        z = ""
        For i = 0 To l
            For j = 0 To m
                z = z + Format(N(i, j), "0") + Space(11)
            Next j
            z = z + vbNewLine
        Next i
    End Sub
    Sub SameElem(ByRef N(,) As Double, ByVal l As Integer, ByVal m As Integer, ByRef findelem As String)
        Dim i1, j1, i2, j2 As Integer
        Dim elem As Double
        For i1 = 0 To l
            For j1 = 0 To m
                elem = N(i1, j1)
                For i2 = 0 To l
                    For j2 = 0 To m
                        If (elem = N(i2, j2) And (i1 <> i2 Or j1 <> j2)) Then
                            findelem = "N(" + CStr(i1) + "," + CStr(j1) + ")=N(" + CStr(i2) + "," + CStr(j2) + ")=" + CStr(elem)
                            Exit Sub
                        End If
                    Next j2
                Next i2
            Next j1
        Next i1
        findelem = "Одинаковые элементы не найдены"
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim l, m As Integer
 
        l = CInt(TextBox2.Text) - 1
        m = CInt(TextBox3.Text) - 1
        Dim N(CInt(TextBox2.Text), CInt(TextBox3.Text)) As Double
        Dim z As String = ""
        Dim findelem As String = ""
        FormMatr(N, l, m)
        SameElem(N, l, m, findelem)
        VivodMatr(N, l, m, z)
        TextBox1.Text = z
        TextBox4.Text = findelem
 
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class