Dim A( 10 ,  10 ) As Integer
    Dim m As Byte ' строки
    Dim n As Byte ' столбцы

    Private Sub Ввод()
        Dim i As Integer
        Dim j As Integer

        Do
            m = Val(InputBox("Кол-во строк"))
        Loop Until m >=  2  And m <=  10 
        Do
            n = Val(InputBox("Кол-во столбцов"))
        Loop Until n >=  2  And n <=  10 

        For i =  1  To m
            For j =  1  To n
                A(i, j) = Val(InputBox("A(" & i & "," & j & ")"))
            Next j
        Next i

    End Sub

    Private Sub Вывод(ByRef oText As Object)
        Dim s As String
        Dim i As Integer
        Dim j As Integer

        s$ = ""
        For i =  1  To m
            For j =  1  To n
                s = s + Str(A(i, j)) + " "
            Next
            s = s + vbCrLf
        Next
        oText.Text = s
    End Sub

    Private Function Проверка(ByVal num As Byte) As Boolean
        Dim j As Byte
        Проверка = True
        For j =  2  To n
            If A(num,  1 ) <> A(num, j) Then
                Проверка = False
                Exit Function
            End If
        Next
    End Function

    Private Sub Удаление(ByVal num As Byte)
        Dim j As Integer
        If num < m Then
            For j =  1  To n
                A(num, j) = A(m, j)
            Next
        End If
        m = m -  1 
    End Sub

    Private Sub Command1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command1.Click
        Dim i As Byte
        Dim nums As Byte

        Ввод()
        Text1.Text = ""
        Text2.Text = ""
        Вывод(Text1)
        ' Сначала проверяем на количество строк с одинаковыми элементами
        nums =  0 
        For i =  1  To m
            If Проверка(i) Then
                nums = nums +  1 
            End If
        Next
        If nums > m /  2  Then
            MsgBox("Строк с одинаковыми элементами больше половины!")
        Else
            ' Теперь удаляем эти строки
            ' Поскольку Удаление() изменяет размерность массива,
            ' используем цикл do
            i =  1 
            Do
                If Проверка(i) Then
                    Удаление(i)
                Else
                    i = i +  1 
                End If
            Loop Until i > m
            Вывод(Text2)
        End If
    End Sub