Dim tempC, tempF As Integer

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

ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 6

Dim K As Integer

Dim S,Shifr As String

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

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. Результат показать преподавателю.

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

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

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

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

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

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

tempC = CInt (vsbTherm.Value)

TxtC.Text = Str (tempC)

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

txtF.Text = Str(tempF)

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

5. Самостоятельно

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

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

Дата добавления: 2014-12-25