Из трех данных чисел выбрать наименьшее и наибольшее. (Ветвление) перевести из Pascal - VB

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

Из трех данных чисел выбрать наименьшее и наибольшее.

                    Листинг программы
                
 
                        
                          
                    
var
  a,b,c,max:integer;
begin
  read(a,b,c);
  if a > b then
    max:=a
  else
    max:=b;
  if max > c then
    write(max)
  else
    write(c);
end.

Решение задачи: «Из трех данных чисел выбрать наименьшее и наибольшее. (Ветвление) перевести из Pascal»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a = InputBox("A = ", , 5): b = InputBox("B = ", , 7): c = InputBox("C = ", , 9)
MsgBox "Min = " & min(min(a, b), c) & vbCrLf & _
       "Max = " & max(max(a, b), c)
End Sub
 
Private Function min(a As Integer, b As Integer) As Integer
    If a < b Then min = a Else min = b
End Function
 
Private Function max(a As Integer, b As Integer) As Integer
    If a > b Then max = a Else max = b
End Function

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

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

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

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

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