Задание 2

1. Добавьте к проекту форму. На панели элементов выберите элемент управления "Надпись" и элемент управления "Кнопка" и разместите их на форме.

2. Измените в окне свойств исходные значения свойств объектов:

Имя объекта	Имя свойства	Значение свойства	Описание свойства
UserForm 1 (Форма)	Caption	Первая форма	заголовок формы
	StartUpPosition	2-CenterScreen	начальное положение формы при запуске
UserForm 1 (Форма)	Font	Times New Roman	название шрифта
		Полужирный	начертание
		11	размер шрифта
Label 1 (Надпись)	Caption	Hello, World!!!	текст надписи
Command Button 1 (Кнопка)	Caption	изменить надпись	текст на кнопке

3. Запустите приложение.

4. Напишите код процедуры для обработки события Click элемен­та "Кнопка". Для этого:

а) выберите на форме эле­мент "Кнопка";

б) перейдите в режим ввода программного кода (команда "Вид / Программа" View/Code, либо клави­ша F7). Введите код процедуры CommandButtonl_Click():

Label1.Caption = " Здравствуй, мир !!!"

5. Выполните запуск приложения и нажмите левую кнопку мыши на элементе "Кнопка".

6. Добавьте к проекту вторую форму. Разместите на ней два элемента "Надпись", два элемента "Поле" и два элемента "Кнопка". Измените свой­ства объектов так, чтобы форма имела вид:

7. Напишите для собы­тия Click первого эле­мента "Кнопка" (CommandButtonl) код процедуры:

Private Sub CommandButtonl_Click()

Dim strVarl As String, strVar2 As String

strVar1 = "": strVar2 = ""

strVar1 =TextBox1.Text

strVar2 = TextBox2.Text

MsgBox "Ваша фамилия" & strVar1 & _

". Вам сейчас " & strVar2

End Sub

Оператор strVar1 =TextBox1.Text заносит в переменную strVarl текст из первого текстового поля. Оператор strVar2 =TextBox2.Text заносит в переменную strVarl текст из второго текстового поля. Функция MsgBox служит для вывода сообщения из программы.

8. Напишите для события Click второго элемента "Кнопка" (CommandButton2) код процедуры:

Private Sub CommandButton2_Click()

End

End Sub

9. Выполните запуск приложения (при этом форма UserForm2 долж­на быть активной).

10. Завершите работу приложения с помощью кнопки CommandButton2.