Самостоятельная работа 4, 5, 6, 7
4.Разработайте приложение — «Обо мне». В форме должны выводиться ваши любимые группа, кино и персонаж по нажатию на соответствующие кнопки на форме. При нажатии на кнопкуВыходформа скрывается с экрана. Для запуска формы на листе необходимо создать кнопку с надписьюОбо мне.
5.Измените диалоговое окно таким образом, чтобы каждый ответ выводился в отдельном окне. Для запуска формы на листе создайте кнопку с надписьюОбо мне 1.
6. Разработайте приложение —обо мне 2. В форме должны выводиться ваши фамилия, имя и дата вашего рождения, при нажатии на кнопкуИнформация, а также рисунок. При нажатии на кнопкуВыходформа закрывается.Для запуска формы на листе необходимо создать кнопку с надписью Обо мне 2.Для вывода рисунка в форме используйте элементРисунок.
7.Создайте экранную форму, в которой будут приведены 2 примера размещения рисунка в объектеРисунок. Во всех случаях рисунок выравнивается по верхнему левому краю:
изображение пропорционально масштабируется так, чтобы целиком заполнить область объекта.
область объекта покрывается мозаикой из рисунков.
Практическое задание № 5
Откройте новую рабочую книгу.
Выполните команду Сервис — Макрос — Редактор Visual Basic.
В левой части окна вы видите окно проектов. Откройте проект Книга1 и щелкните правой кнопкой мыши на элементе Эта Книга. В контекстном меню выберите командуВставка — Модуль.
Выполните команду Вставка — Процедура. Откроется диалоговое окна.
Введите имя процедуры Первая Процедура. В секцииTypeустановите переключательSub. Щелкните на кнопке ОК. Новая процедура будет добавлена в модуль.
В пустой строке находится текстовый курсор, предлагая начать ввод кода процедуры. Нажмите клавишу <Tab> и введите следующий текст:MsgBox“Я изучаюVBA”.
Щелкните на кнопке Run.
Щелкните на кнопке ОК. Вы вернетесь в окно редактора.
Сохранение новой процедуры происходит при сохранении рабочей книги, где находится процедура.
Сохраните выполненную работу в файле с именем «Пр5».
Практическое задание № 6
Откройте файл «Пр5»
Ведите следующий текст процедуры: InputBox«Введите Ваше имя»
Нажмите F5
Введите свое имя и нажмите ОК. Процедура закончится.
В этом же модуле создайте еще одну новую процедуру Польза1.
Введите текст процедуры:
PublicSubПольза1()
DIMИмяAsString
Имя = InputBox(«Введите Ваше имя: »)
MsgBox «Привет, »& Имя
EndSub
Запустите процедуру на выполнение. На экране появится окно ввода.
Введите свое имя и нажмите клавишу ОК. Окно ввода закроется и на экране появится окно Сообщение, содержащее ваше имя.
Щелкните на кнопке ОК. Сохраните работу в том же файле.
Практическое задание № 7
Создадим пользовательскую форму, в которой будет выводиться время начала и окончания работы программы.
Откройте файл «Пр5». Создайте пользовательскую форму.
Напишите программу для кнопки «Запуск программы»
Private Sub CommandButton1_Click()
DIM Начало_работы_процедуры
DIMОкончание_работы_процедуры
DIMI
DIMk
Начало_работы_процедуры = Time()
For I = 1 To 10000000
k=k+1
Next I
Окончание_работы_процедуры =Time()
Label2.Caption= Начало_работы_процедуры
Label4.Caption= Окончание_работы_процедуры
EndSub
В этой программе мы использовали новую функцию Time(), которая определяет текущее время, а также оператор цикла, в котором значение переменной изменяется от единицы до десяти миллионов.
На рабочем листе создайте кнопку для вывода формы на экран.
Нажмите на кнопку «Запуск программы». Если программа выполнилась быстро, увеличьте конечное значение переменной I.
Сохраните работу.