Главная

Популярная публикация

Научная публикация

Случайная публикация

Обратная связь

ТОР 5 статей:

Методические подходы к анализу финансового состояния предприятия

Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века

Ценовые и неценовые факторы

Характеристика шлифовальных кругов и ее маркировка

Служебные части речи. Предлог. Союз. Частицы

КАТЕГОРИИ:






Задания для практического занятия и инструктаж по их выполнению. Задание №1 Спроектировать форму для вычисления умножения, сложения, вычитания и деления двух чисел, заданных датчиком случайных чисел. Запустите Excel




Задание №1 С проектировать форму для вычисления умножения, сложения, вычитания и деления двух чисел, заданных датчиком случайных чисел.

  1. Запустите Excel.
  2. Загрузите VBA. Сервис à Макрос à Редактор Visual Basic.
  3. Проверьте, чтобы на экране появилось окно проекта и окно свойств.

  1. Выполните команду «Вставить форму» или Insert à UserForm, назовите форму «Вычисления» и вызовите панель Toolbox

 

 

  1. Спроектируйте в форме 4 командные кнопки CommandButton и пять надписей Label.

Значения свойств объектов установите самостоятельно.

Объект Заголовок(CAPTION) Назначение
Label1 Первое число Комментарий
Label2 Второе число Комментарий
Label3 Ответ Для вывода результата
Label4 (пусто) Значение первого числа
Label5 (пусто) Значение второго числа
CommandButton1 Х Перемножение чисел
CommandButton2 + Сложение чисел
CommandButton3 - Вычитание чисел
CommandButton4 : Деление чисел
CommandButton5 Выход Закрыть форму

Должно получиться:

  1. В форме дважды щелкните на кнопке «Х», чтобы вывести заготовку программы:

Программа начинается с заголовка Private Sub и заканчивается предложением End Sub (конец процедуры). Между этими предложениями запишите текст программы:

Randomize

Label4.Caption = Int(Rnd * 90)+1)

Label5.Caption = Int(Rnd * 90)+1)

Label3.Caption = Label4.Caption* Label5.Caption

  1. Аналогично для кнопок + -: и Выход программа будет следующая:
+ 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
  1. Проверьте работоспособность формы, с помощью команды RunàRun Sub/UserForm (ВыполнитьàВыполнить процедуру/экранную форму), или нажать на кнопку в меню , или клавишу F5.
  2. На листе Excel создайте кнопку вызова формы и назовите ее «Вычисления», переименуйте Лист1 в лист «Вычисления».
  3. Вызовите Панель Элементов управления и нарисуйте с помощью ее кнопку. Выделив кнопку, вызовите через правую кнопку мыши Свойства и на панели Properties отформатируйте ее.






Не нашли, что искали? Воспользуйтесь поиском:

vikidalka.ru - 2015-2024 год. Все права принадлежат их авторам! Нарушение авторских прав | Нарушение персональных данных