Порядок выполнения. 1. Откройте новый проект, установите следующие объекты и измените им свойства Объект Свойство Значение Рамки Caption Как Вас

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