Главная

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

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

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

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

ТОР 5 статей:

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

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

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

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

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

КАТЕГОРИИ:






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




Задание №1 Создайте приложение «Калькулятор». В текстовые поля должны вводиться числа, с которыми будут производиться четыре арифметических действия. По нажатию на клавиши +, -, *, / производятся вычисления. Предусмотреть кнопку «Начать снова», которая будет стирать значения в текстовых полях.

  1. На листе Excel спроектируйте кнопку вызова формы и назовите ее «Калькулятор», переименуйте Лист1 в лист «Калькулятор».
  2. Вызовите Панель Элементов управления и нарисуйте с помощью ее кнопку.
  3. Выделите кнопку, вызовите через правую кнопку мыши Свойства и на панели Properties отформатируйте ее.
  4. Выделите кнопку «Калькулятор», нажмите на панели элементов управления кнопку «Исходный текст»
  5. Запишите программу вызова формы:

UserForm1.Show

  1. Загрузите VBA. Сервис à Макрос à Редактор Visual Basic.
  2. Проверьте, чтобы на экране появилось окно проекта и окно свойств.
  3. Выполните команду «Вставить форму» или Insert à UserForm, назовите форму «Вычисления» и вызовите панель Toolbox.
  4. Спроектируйте в форме следующие объекты:
Объект Заголовок (надпись) Назначение
Label1 Первое число (Х) Комментарий
Label2 Второе число (Y) Комментарий
Label3 Результат Комментарий
CommandButton1 * Перемножение чисел
CommandButton2 / Деление чисел
CommandButton3 + Сложение чисел
CommandButton4 - Вычитание чисел
CommandButton5 Начать снова Очищается содержимое Label1 и Label2
CommandButton6 Выход Закрыть (скрыть) форму
TextBox1 Нет Для ввода первого числа
TextBox2 нет Для ввода второго числа
TextBox2 нет Для вывода результата

 

  1. Должно получиться:
  2. Щелкая по кнопкам, введите программы:
+ Private Sub CommandButton3_Click() Dim x, y As Single x = Val(TextBox1) y = Val(TextBox2) r = x + y TextBox3 = Str(r) End Sub
- Private Sub CommandButton4_Click() Dim x, y As Single x = Val(TextBox1) y = Val(TextBox2) r = x - y TextBox3 = Str(r) End Sub
/ Private Sub CommandButton2_Click() Dim x, y As Single x = Val(TextBox1) y = Val(TextBox2) r = x / y TextBox3 = Str(r) End Sub
* Private Sub CommandButton1_Click() Dim x, y As Single x = Val(TextBox1) y = Val(TextBox2) r = x * y TextBox3 = Str(r) End Sub
Выход Private Sub CommandButton6_Click() UserForm1.Hide End Sub
Начать снова Private Sub CommandButton5_Click() TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" End Sub
  1. Проверьте работоспособность вашей формы и запустите ее с листа Excel.






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

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