Тип урока: урок закрепления новых знаний и выработки умений.

Цель урока: закрепление пройденного материала по созданию пользовательской формы; вставки надписей, полей, кнопок и картинки в пользовательскую форму; программирование кнопок пользовательской формы; вызов пользовательской формы на рабочий стол редактора Excel; проверка работы пользовательской формы.

Оборудование: компьютер, проектор, экран.

Продолжительность работы: 40 минут.

Домашнее задание: 5 минут.

1. Открыть или создать файл для работы;
2. Перейти в редактор Visual Basic (Сервис > Макрос > редактор Visual Basic);
3. Создать пользовательскую форму (Insert> UserForm);

(Рис.1)

4. На панели элементов выбрать пиктограмму “Label” - “Надпись”;

   

   (Рис.2)

5. В пользовательской форме нарисовать окно для надписи.
6. В окне сделать надпись “Расстояние”, для этого:
   - щелкнуть правой кнопкой по окну “Label1” и выбрать команду “Properties”;

   - в появившемся окне свойств выбрать:

   

   (Рис.3)

   - свойство “Caption”, в котором вместо слова “Label1” написать слово “Расстояние”;
   - свойство “TextAlign”, в котором поставить цифру 2 – выравнивание по центру.

7. Аналогичным образом сделать еще две надписи: “Время” и “Скорость”.
8. Подключить пиктограмму “TextBox” - “Поле” и под каждой надписью нарисовать окно.

   

   (Рис.4)

9. Подключить пиктограмму “CommandButton” - “Кнопка”.

(Рис.5)

10. Нарисовать в пользовательской форме 2 кнопки и подписать их “Выход из формы” и “Расчет Скорости” с помощью свойств “Caption” и “TextAlign”.
11. Свернуть окно редактора Visual Basic.
12. Войти в редактор Paint и нарисовать машинку в верхнем левом углу рабочего листа.
13. Сохранить данный рисунок на Рабочем столе под именем “Машина”.
14. Развернуть Пользовательскую форму.
15. Нажать пиктограмму “Image”.

    

    (Рис.6)

16. Нарисовать окно в пользовательской форме.
17. В появившемся окне “Properties” выбрать:
    - свойство “Picture” и щелкните по слову “None”;
    - в появившемся окне “LoadPicture” войти на Рабочий стол, найти

    свой файл “Машина” и выполнить команду “Открыть”;
    - в свойстве “PictureAlignment” поставить “0”, должна появиться картинка
    Вашей машины.

18. В получившейся пользовательской форме запрограммируйте кнопку “CommandButton1” для этого:
    - два раза щелкните по кнопке “Выход из формы”;
    - написать оператор UserForm1.Hide (закрыть пользовательскую форму №1);

(Рис.7)

19. Запрограммировать кнопку “CommandButton2” - “Расчет скорости” для этого:

    - два раза щелкнуть по кнопке;
    - написать программу:
    S = Val(TextBox1) - считываем значение из окошка TextBox1

    T = Val(TextBox2) - считываем значение из окошка TextBox2

    V = S / T - производим вычисление скорости

    TextBox3 = Str(V) - полученное значение записываем в окошко TextBox3

    

    (Рис.8)

20. Перейти на рабочий лист редактора Excel.
21. Подключить панель элементов (Вид > Панели инструментов > Панель элементов).
22. Начертить кнопку и подписать ее “Вызов формы”.
23. Запрограммировать данную кнопку, для этого:
    ? два раза щелкнуть по кнопке левой кнопкой мыши;
    ? написать фразу – UserForm1.Show (Показать пользовательскую форму №1)

    

    (Рис.9)

24. На панели элементов отключить Режим конструктора.

    

    (Рис.10)

25. Вызвать получившуюся форму и проверить работу всех кнопок.

(Рис.11)

 Домашнее задание:

Создать пользовательскую форму по заданному образцу и проверить ее работу.

См. приложение.