Найти max{min{a, b}, min{c, d}}. Напишите пожалуйста программу в VBA

Question

Найти max{min{a, b}, min{c, d}}. Напишите пожалуйста программу в VBA

Answer 1

Sub M1()
MsgBox (Application.Max( _
                                          Application.Min(InputBox("Введите a"), _
                                                                    InputBox("Введите b")), _
                                          Application.Min(InputBox("Введите c"), _
                                                                    InputBox("Введите d")) _
                                          ))

End Sub