15
Сентябрь
2008
Как найти максимальное число из двух?
Как найти максимальное число из двух?
Есть 2 числа и Вам необходимо найти большее из них.
Option Explicit
Dim a As Double
Dim b As Double
Dim buffer As Double
Function Max(a, b)
If a >= b Then buffer = a Else buffer = b
Label1 = "Максимум: " & buffer
End Function
Private Sub Form_Load()
Text1 = ""
Text2 = ""
End Sub
Private Sub Text1_Change()
a = Val(Text1)
Call Max(a, b)
End Sub
Private Sub Text2_Change()
b = Val(Text2)
Call Max(a, b)
End Sub