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

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

напишите код для сравнение двух матриц то есть если одинаковы то сообщение - равны если нет то - не равны

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

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

                            Option Explicit
 
Private Declare Function memcmp Lib "ntdll" Alias "RtlCompareMemory" (Destination As Any, Source As Any, ByVal Length As Long) As Long
 
Private Sub Form_Load()
    Dim A(5, 5) As Double, B(5, 5) As Double, c As Long
    c = (UBound(A, 1) + 1) * (UBound(A, 2) + 1) * Len(A(0, 0))
    MsgBox IIf(memcmp(A(0, 0), B(0, 0), c) = c, "ГђГ*ГўГ*Г»", "ГЌГҐГ°Г*ГўГ*Г»")
End Sub
                        