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


Пример 7.3


Public Sub BoyOrMan()

Dim Boy As New Child

Dim Person As New Man

Dim SomeBody As Object

Dim Answer As Integer

Boy.Age = 10: Boy.Name = "Александр"

Person.Age = 21: Person.Name = "Александр"

Answer = InputBox("Введите число от 10 до 20", "Возраст", 15)

If Answer > 15 Then

Set SomeBody = Person

Else: Set SomeBody = Boy

End If

If TypeOf SomeBody Is Child Then

Debug.Print "Это мальчик!"

ElseIf TypeOf SomeBody Is Man Then

Debug.Print "Это Мужчина"

Else

Debug.Print "Не знаю, кто это"

End If

End Sub




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



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