Поиск минимума/максимума среди нескольких значений - VB

Узнай цену своей работы

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

Нужно решить функцию в дополнении visual basic для excel,возникла проблема с поиском минимального и максимального значения среди значений (a,b,c). вот сама функция,все числа (a,b,c) должны задаваться вручную через imputbox(если не путаю название). Прошу помочь кому не сложно.

Решение задачи: «Поиск минимума/максимума среди нескольких значений»

textual
Листинг программы
Option Explicit
 
Private Sub Command1_Click()
    Dim z As Double, x As Double, a As Double, b As Double, c As Double
    a = Val(Replace(InputBox("a = ", "Ввод данных", -2.5), ",", "."))
    b = Val(Replace(InputBox("b = ", "Ввод данных", 5.3), ",", "."))
    c = Val(Replace(InputBox("c = ", "Ввод данных", 4.1), ",", "."))
    x = Val(Replace(InputBox("x = ", "Ввод данных", 0.76), ",", "."))
    
    If min(min(a, b), c) > 0 And a < 0 Then '???
       z = a * Sqr(Abs(1 - x)) + b * 2
    ElseIf max(max(a, b), c) < 0 And a > 0 Then '???
       z = Sqr(Abs(Log(3) - x) ^ 2)
    Else
       z = c / (Cos(x ^ 3) + b)
    End If
    
    MsgBox "a = " & a & vbCrLf & "b = " & b & vbCrLf & "c = " & c & vbCrLf & "x = " & x & vbCrLf & _
           "min(a, b, c) = " & min(min(a, b), c) & vbCrLf & "max(a, b, c) = " & max(max(a, b), c) & vbCrLf & _
           "z = " & Round(z, 2)
End Sub
 
Private Function max(ByVal a As Double, ByVal b As Double) As Double
    If a > b Then max = a Else max = b
End Function
 
Private Function min(ByVal a As Double, ByVal b As Double) As Double
    If a < b Then min = a Else min = b
End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4.333 из 5
Похожие ответы