ТОР 5 статей:
Методические подходы к анализу финансового состояния предприятия
Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века
Характеристика шлифовальных кругов и ее маркировка
Служебные части речи. Предлог. Союз. Частицы
КАТЕГОРИИ:
- Археология
- Архитектура
- Астрономия
- Аудит
- Биология
- Ботаника
- Бухгалтерский учёт
- Войное дело
- Генетика
- География
- Геология
- Дизайн
- Искусство
- История
- Кино
- Кулинария
- Культура
- Литература
- Математика
- Медицина
- Металлургия
- Мифология
- Музыка
- Психология
- Религия
- Спорт
- Строительство
- Техника
- Транспорт
- Туризм
- Усадьба
- Физика
- Фотография
- Химия
- Экология
- Электричество
- Электроника
- Энергетика
Задания для практического занятия и инструктаж по их выполнению. Задание №1 Спроектировать форму для вычисления умножения, сложения, вычитания и деления двух чисел, заданных датчиком случайных чисел. Запустите Excel
Задание №1 С проектировать форму для вычисления умножения, сложения, вычитания и деления двух чисел, заданных датчиком случайных чисел.
- Запустите Excel.
- Загрузите VBA. Сервис à Макрос à Редактор Visual Basic.
- Проверьте, чтобы на экране появилось окно проекта и окно свойств.
- Выполните команду «Вставить форму» или Insert à UserForm, назовите форму «Вычисления» и вызовите панель Toolbox
- Спроектируйте в форме 4 командные кнопки CommandButton и пять надписей Label.
Значения свойств объектов установите самостоятельно.
| Объект | Заголовок(CAPTION) | Назначение |
| Label1 | Первое число | Комментарий |
| Label2 | Второе число | Комментарий |
| Label3 | Ответ | Для вывода результата |
| Label4 | (пусто) | Значение первого числа |
| Label5 | (пусто) | Значение второго числа |
| CommandButton1 | Х | Перемножение чисел |
| CommandButton2 | + | Сложение чисел |
| CommandButton3 | - | Вычитание чисел |
| CommandButton4 | : | Деление чисел |
| CommandButton5 | Выход | Закрыть форму |
Должно получиться:
- В форме дважды щелкните на кнопке «Х», чтобы вывести заготовку программы:
Программа начинается с заголовка Private Sub и заканчивается предложением End Sub (конец процедуры). Между этими предложениями запишите текст программы:
Randomize
Label4.Caption = Int(Rnd * 90)+1)
Label5.Caption = Int(Rnd * 90)+1)
Label3.Caption = Label4.Caption* Label5.Caption
- Аналогично для кнопок + -: и Выход программа будет следующая:
| + | Randomize Label4.Caption = Int(Rnd * 90)+1) Label5.Caption = Int(Rnd * 90)+1) Label3.Caption = Val(Label4.Caption)+ Val(Label5.Caption) |
| - | Randomize Label4.Caption = Int(Rnd * 90)+1) Label5.Caption = Int(Rnd * 90)+1) Label3.Caption = Label4.Caption- Label5.Caption |
| : | Randomize Label4.Caption = Int(Rnd * 90)+1) Label5.Caption = Int(Rnd * 90)+1) Label3.Caption = Label4.Caption / Label5.Caption |
| Выход | UserForm1.Hide |
- Проверьте работоспособность формы, с помощью команды RunàRun Sub/UserForm (ВыполнитьàВыполнить процедуру/экранную форму), или нажать на кнопку в меню
, или клавишу F5. - На листе Excel создайте кнопку вызова формы и назовите ее «Вычисления», переименуйте Лист1 в лист «Вычисления».
- Вызовите Панель Элементов управления и нарисуйте с помощью ее кнопку. Выделив кнопку, вызовите через правую кнопку мыши Свойства и на панели Properties отформатируйте ее.
Не нашли, что искали? Воспользуйтесь поиском: