Private Sub max2(a As Single, b As Single, Max As Single)

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)