Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Порядок выполнения. 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, " Мы очень рады"

Exit Sub

End If

MsgBox " Ну и иди отсюда", 16, " Мы обиделись"

End

End If

 

7. Проверьте работу программы

 







© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.