Поиск минимума/максимума среди нескольких значений - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д