ТОР 5 статей:
Методические подходы к анализу финансового состояния предприятия
Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века
Характеристика шлифовальных кругов и ее маркировка
Служебные части речи. Предлог. Союз. Частицы
КАТЕГОРИИ:
- Археология
- Архитектура
- Астрономия
- Аудит
- Биология
- Ботаника
- Бухгалтерский учёт
- Войное дело
- Генетика
- География
- Геология
- Дизайн
- Искусство
- История
- Кино
- Кулинария
- Культура
- Литература
- Математика
- Медицина
- Металлургия
- Мифология
- Музыка
- Психология
- Религия
- Спорт
- Строительство
- Техника
- Транспорт
- Туризм
- Усадьба
- Физика
- Фотография
- Химия
- Экология
- Электричество
- Электроника
- Энергетика
Задания для практического занятия и инструктаж по их выполнению. Задание №1Создайте приложение «Калькулятор»
Задание №1 Создайте приложение «Калькулятор». В текстовые поля должны вводиться числа, с которыми будут производиться четыре арифметических действия. По нажатию на клавиши +, -, *, / производятся вычисления. Предусмотреть кнопку «Начать снова», которая будет стирать значения в текстовых полях.
- На листе Excel спроектируйте кнопку вызова формы и назовите ее «Калькулятор», переименуйте Лист1 в лист «Калькулятор».
- Вызовите Панель Элементов управления и нарисуйте с помощью ее кнопку.
- Выделите кнопку, вызовите через правую кнопку мыши Свойства и на панели Properties отформатируйте ее.
- Выделите кнопку «Калькулятор», нажмите на панели элементов управления кнопку «Исходный текст»
- Запишите программу вызова формы:
UserForm1.Show
- Загрузите VBA. Сервис à Макрос à Редактор Visual Basic.
- Проверьте, чтобы на экране появилось окно проекта и окно свойств.
- Выполните команду «Вставить форму» или Insert à UserForm, назовите форму «Вычисления» и вызовите панель Toolbox.
- Спроектируйте в форме следующие объекты:
| Объект | Заголовок (надпись) | Назначение |
| Label1 | Первое число (Х) | Комментарий |
| Label2 | Второе число (Y) | Комментарий |
| Label3 | Результат | Комментарий |
| CommandButton1 | * | Перемножение чисел |
| CommandButton2 | / | Деление чисел |
| CommandButton3 | + | Сложение чисел |
| CommandButton4 | - | Вычитание чисел |
| CommandButton5 | Начать снова | Очищается содержимое Label1 и Label2 |
| CommandButton6 | Выход | Закрыть (скрыть) форму |
| TextBox1 | Нет | Для ввода первого числа |
| TextBox2 | нет | Для ввода второго числа |
| TextBox2 | нет | Для вывода результата |
- Должно получиться:
- Щелкая по кнопкам, введите программы:
| + | 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 |
- Проверьте работоспособность вашей формы и запустите ее с листа Excel.
Не нашли, что искали? Воспользуйтесь поиском: