Лабораторно-практическая работа №7

Тема: Встроенные функции

Цель работы: Получить навыки использования встроенных системных функций.

Порядок выполнения

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. Проверьте работу программы

Лабораторно-практическая работа №8

Тема: Встроенные функции

Цель: Получить навыки использования функций времени и даты

Порядок выполнения

1. Установите на форме следующие объекты и измените им свойства 1 часть

   Объект	Свойство	Значение
   Метки	Caption	Время старта
   	Caption	Время окончания
   	Caption	Сколько прошло
   Командные кнопки	Name	CmdStart
   	Caption	Start
   	Name	CmdStop
   	Caption	Stop
   Текстовые окна	Name	TxtStart
   	Text	(отсутствует)
   	Name	TxtStop
   	Text	(отсутствует)
   	Name	TxtItog
   	Text	(отсутствует)

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

3. В разделе общих объявлений набрать General Declarations

Dim starttime As Variant, dtime As Variant, itogtime As Variant

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

starttime = Now

txtstart.Text = Format ( starttime, "hh:mm:ss" )

txtstop.Text = "" : txtItog.Text = ""

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

endtime = Now

itogtime = endtime - starttime

txtstop.Text = Format ( endtime, "hh:mm:ss" )

txtItog.Text = Format ( itogtime, "hh:mm:ss" )

6. Проверьте работу программы. Результат показать преподавателю.