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

Нужно найти значение \( \max(\min(a,b),\min(c,d)) \): сначала берём меньшие числа из пар \(a,b\) и \(c,d\), потом из двух результатов выбираем большее.

Программа на VBA:
Sub Main()
    Dim a As Double, b As Double, c As Double, d As Double
    Dim x As Double, y As Double, result As Double

    a = InputBox("Введите a")
    b = InputBox("Введите b")
    c = InputBox("Введите c")
    d = InputBox("Введите d")

    x = WorksheetFunction.Min(a, b)
    y = WorksheetFunction.Min(c, d)
    result = WorksheetFunction.Max(x, y)

    MsgBox "Ответ: " & result
End Sub

0 0 Пожаловаться