Сравнение двух матриц - VB (59957)

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

напишите мне пожалуйста код желательно на кнопку и чтобы при нажатии кнопки программа давала ответ РАВНЫ ли матрицы или нет!

в среде VISUAL BASIC для начинающих

Решение задачи: «Сравнение двух матриц»

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

                            Private Sub CommandButton1_Click()
        Dim a, b
        a = Range("A2:G8")
        b = Range("I2:O8")
        MsgBox IIf(MatrEq(a, b), "Р", "Не р") & "авны"
    End Sub
 
    Private Function MatrEq(ByVal a, ByVal b) As Boolean
        Dim i&, j&
        If LBound(a) = LBound(b) And UBound(a) = UBound(b) And _
          LBound(a, 2) = LBound(b, 2) And UBound(a, 2) = UBound(b, 2) Then
            For i = LBound(a) To UBound(a)
                For j = LBound(a, 2) To UBound(a, 2)
                    If a(i, j) <> b(i, j) Then Exit Function
                Next
            Next
        End If
        MatrEq = True
    End Function
                        