Основы офисного программирования и язык VBA


Пример 7.2


Public Sub MinMax1(ByVal X As Integer, ByVal Y As Integer, _

Min As Integer, Max As Integer)

'Оператор If в одну строку

If X > Y Then Max = X: Min = Y Else Max = Y: Min = X

End Sub

Public Sub MinMax2(ByVal X As Integer, ByVal Y As Integer, _

Min As Integer, Max As Integer)

'Оператор If в виде блока

If X > Y Then

Max = X

Min = Y

Else

Max = Y

Min = X

End If

End Sub

Public Sub If1()

Dim Max As Integer, Min As Integer

Call MinMax1(2 + 3, 2 * 3, Min, Max)

Debug.Print Max, Min

Call MinMax2(2 + 3, 2 * 3, Min, Max)

Debug.Print Max, Min

End Sub




Начало  Назад  Вперед



Книжный магазин