If a > b Then Max = à Else Max = b
End Sub
где mах2 — имя процедуры, а и b — входные параметры, а Мах — выходной параметр процедуры.
6. Напишите процедуру, которая будет выполняться при щелчке по кнопке < Мах >:
Private Sub cmdM_Click()
Dim x As Single, y As Single, z As Single, m As Single
x = Val(TxtX.Text)
y = Val(TxtY.Text)
z = Val(TxtZ.Text)
Call max2 (x, y, m)
Call max2 (m, z, m)
txtMAX.Text = Str(m)