Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Порядок выполнения. 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






© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.