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

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

Дата добавления: 2015-11-16