Порядок выполнения. 1. Расположите на форме следующие объекты и измените для них свойства: Объект Свойство Значение Изображение (Image) Name Image1

1. Расположите на форме следующие объекты и измените для них свойства:

Объект	Свойство	Значение
Изображение (Image)	Name	Image1
Picture	\Icons\Elements\Water
Изображение (Image)	Name	Image2
Picture	\Icons\Elements\Sun
Изображение (Image)	Name	Image3
Picture	\Icons\Elements\Show
Изображение (Image)	Name	Image4
Picture	\Icons\Elements\Litening
Командные кнопки (CommandButton)	Name Caption	CmdHello Познакомимся?
Name Caption	CmdExit Выход

2.
Приведите форму в соответствие с образцом

3. В окне кода процедуры обработки события Click для объекта Image1 набрать

MsgBox "это вода", 0, "справка"

4. Наберите код для других картинок (самостоятельно)

5. В окне кода процедуры обработки события Click для объекта CmdHello набрать

MyFam = InputBox("Ваша фамилия", "Скажите пожалуйста")

MyNam = InputBox("Ваше имя", "Скажите пожалуйста")

MyOt = InputBox("Ваше отчество", "Скажите пожалуйста")

'выделим последнюю букву отчества и определим пол человека

k = Len(MyOt)

x = Mid(MyOt, k, 1)

If x = "а" Then y = "Здравствуйте, укажаемая" Else y = "Здравствуйте, укажаемый"

MsgBox MyNam + Chr(10) + MyOt + Chr(10) + MyFam,, y

6. В окне кода процедуры обработки события Click для объекта CmdExit набрать

s = MsgBox("Вы хотите выйти", 4, "Выход")

If s = 6 Then

s = MsgBox("Хотите остаться", 32 + 4, "Просьба")

If s = 6 Then

MsgBox "Ну и правильно", 48, "Мы очень рады"