Выяснить, пройдет ли кирпич с ребрами А, В, С в прямоугольное отверстие со сторонами x, y - VBA

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

задача: Даны действительные числа A, B, C. Выяснить пройдет ли кирпич с ребрами А, В, С в прямоугольное отвермтвие со сторонами x, y

Решение задачи: «Выяснить, пройдет ли кирпич с ребрами А, В, С в прямоугольное отверстие со сторонами x, y»

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

                            Sub test()
    Dim A As Double, B As Double, C As Double, ABC1 As Double, ABC2 As Double
    Dim x As Double, y As Double, xy1 As Double, xy2 As Double, temp As Double
    Randomize
    A = 15 * Rnd + 5 'Заполняем случайно стороны кирпича и отверстия.
    B = 15 * Rnd + 5
    C = 15 * Rnd + 5
    x = 15 * Rnd + 5
    y = 15 * Rnd + 5
    'Ищем две меньшие длины ребер кирпича.
    If A < B Then
        ABC1 = A
        ABC2 = B
      Else
        ABC1 = B
        ABC2 = A
    End If
    If ABC2 > C Then
        ABC2 = C
        If ABC1 > ABC2 Then
            temp = ABC1
            ABC1 = ABC2
            ABC2 = temp
        End If
    End If
    'Ищем длинную и короткую стороны отверстия.
    If x > y Then
        xy1 = y
        xy2 = x
      Else
        xy1 = x
        xy2 = y
    End If
    'Сравниваем короткую сторону отверстия с коротким ребром кирпича
     'и длинную сторону отверстия с вторым по длине ребром кирпича.
    If xy1 > ABC1 And xy2 > ABC2 Then
        MsgBox ("Пройдет" & vbCrLf & _
        "A=" & A & vbCrLf & "B=" & B & vbCrLf & "C=" & C & vbCrLf & _
        "x=" & x & vbCrLf & "y=" & y & vbCrLf)
      Else
        MsgBox ("Не пройдет" & vbCrLf & _
        "A=" & A & vbCrLf & "B=" & B & vbCrLf & "C=" & C & vbCrLf & _
        "x=" & x & vbCrLf & "y=" & y & vbCrLf)
    End If
End Sub
                        