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

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

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

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

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

Объект	Свойство	Значение
Рамка	Caption	Случайное число от 0 до10
Текстовое окно	Name	TxtX
	Text	(отсутствует)
Рамка	Caption	Sin(X)
Метка	Name	LblSin
	Caption	(отсутствует)
	BorderStyle	1
Командная кнопка	Name Caption	CmdResult Вычислить
Рамка	Caption	Cos(X)
Метка	Name	LblCos
	Caption	(отсутствует)
	BorderStyle	1
Рамка	Caption	Tn(X)
Метка	Name	LblTan
	Caption	(отсутствует)
	BorderStyle	1
Рамка	Caption	Квадратный корень
Метка	Name	LblSqr
	Caption	(отсутствует)
	BorderStyle	1
Рамка	Caption	X^2
Метка	Name	Lbl_2
	Caption	(отсутствует)
	BorderStyle	1

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

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

x = Rnd * 10

txtX.Text = x

LblSin.Caption = Sin(x)

LblCos.Caption = Cos(x)

LblTan.Caption = Tan(x)

LblSqr.Caption = Sqr(x)

Lbl_2.Caption = x ^ 2

4. Загрузите программу и проверьте ее работу

5. Самостоятельно измените форму и программный код для:

• изменения интервала случайного числа от 0 до 50

• получения целого случайного числа от 10 до 100

• определения остатка от деления числа Х на 2

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

Лабораторно-практическая работа № 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. Результат показать преподавателю.