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

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

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

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

1. Откройте новый проект, установите следующие объекты и измените им свойства

   Объект	Свойство	Значение
   Рамки	Caption	Как Вас зовут?
   	Caption	Полное имя (заглавные буквы)
   	Caption	Полное имя (строчные буквы)
   	Caption	Инициалы
   Метки	Caption	Фамилия
   	Caption	Имя
   	Caption	Отчество
   	Name	LblNam2 (для рамки строчные буквы)
   Командные кнопки	Name	CmdNam1
   	Caption	Вывести
   	Name	CmdNam2
   	Caption	Вывести в одну строку
   	Name	CmdNam3
   	Caption	Вывести в три строки
   	Name	CmdFIO
   	Caption	Вывести инициалы
   	Name	CmdShifr
   	Caption	Шифровать
   Текстовые окна	Name	TxtFam
   	Name	TxtName
   	Name	TxtOt
   	Name	TxtNam1 (для заглавных букв)
   	Name	TxtFIO
   	Name	TxtShifr

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

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

TxtNam1.Text = UCase(tXTfAM.Text) + " " + UCase(TxtName.Text) + " " + UCase(TxtOt.Text)

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

LblNam2.Caption = LCase(tXTfAM.Text) + " " + LCase(TxtName.Text) + " " + LCase(TxtOt.Text)

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

LblNam2.Caption = LCase(tXTfAM.Text) + Chr(13) + Chr(10) + LCase(TxtName.Text)

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

Dim fam, nam,ot As String

Fam= TxtFam.Text

Nam= TxtName.Text

Ot= TxtOt.Text

TxtFIO.Text = Left(Fam, 1) + "." + Left(Nam, 1) + "." + Left(Ot, 1)

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

Dim S,Shifr As String

Dim K As Integer

S = TxtFIO.Text

Shifr=””

K = Asc(Left(S, 1))

Shifr=Shifr+Str(K)+” “

K = Asc(Mid(S, 3, 1))

Shifr=Shifr+Str(K)+” “

K = Asc(Right(S, 1))

Shifr=Shifr+Str(K)

TxtShifr.Text = Shifr

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

9. Самостоятельно добавьте на форму еще три метки и командную кнопку. При щелчке по этой кнопке в метки должны выводиться числа – количество символов в имени, фамилии и отчестве соответственно.

10. Результат показать преподавателю.

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

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

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

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

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

Объект	Свойство	Значение
Метки	Caption	212
	Caption	100
	Caption	По Фаренгейту
	Caption	По Цельсию
	Caption	-40
	Caption	-40
Вертикальная прокрутка	Name	VsbTherm
	Max	-40
	Min	100
	LargeChange	10
	SmallChange	1
Текстовые окна	Name	TxtF
	Text	(отсутствует)
	Name	txtC
	Text	(отсутствует)

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

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

Dim tempC, tempF As Integer

tempC = CInt ( vsbTherm.Value )

TxtC.Text = Str ( tempC )

tempF = CInt ( tempC * 9 / 5 + 32 )

txtF.Text = Str( tempF )

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

5. Самостоятельно разработайте приложение, которое позволяет с помощью прокрутки установить величину угла в градусах, перевести эту величину в радианы, а также определить значение синуса, косинуса и тангенса угла. Разработайте форму по следующему образцу.

6. Результат показать преподавателю.