Определить значение функции min - VB

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

Определить значение ? = min(a, 3b) * min(2a — b, 2b), где min(a, b) есть минимальное из чисел a,b. При решении задачи определить и использовать функцию min.

                    Листинг программы
                
 
                        
                          
                    
Option Explicit
Function min(ByVal A  As Integer, ByVal B As Integer) As Integer
e = 3 * B
f = (2 * A) - B
g = 2 * B
If A < e Then C = A Else C = e
If f < g Then D = f Else D = g
 
min = C * D
End Function
 
Sub vv()
Dim A As Integer
Dim min As Integer
Dim B As Integer
Dim e As Integer
Dim f As Integer
Dim g As Integer
Dim C As Integer
Dim D As Integer
A = InputBox(" введите a ")
B = InputBox(" введите b ")
MsgBox " результат " & min
End Sub

Решение задачи: «Определить значение функции min»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Function min(a as integer, b as integer) as integer
  If (a < b) then
     min=a
  else
     min=b
  end if 
End Function
 
Sub Main
Dim a as integer
Dim b as integer
     a=Val(InputBox("a="))
     b=Val(InputBox("b="))
     Debug.print min(a, 3*b) * min(2*a — b, 2*b)
End Sub

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

10 голосов , оценка 4.2 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы