Мы поможем в написании ваших работ!



ЗНАЕТЕ ЛИ ВЫ?

Процедура обработки события для кнопки Плюс

Поиск

Private Sub cmdПлюс_Click()

txtРезультат.Text = Val(txtЧисло1.Text) + Val(txtЧисло2.Text)

End Sub

5 Запишите процедуры для кнопок <Вычитание>, <Произведение>, <Частное>.

6 Сохраните проект под именем Calc.vba в папке вашей подгруппы, предварительно создав для него отдельную папку Calc, и закройте его (Файл / Удалить программу).

Задача 3. Сделайте копию проекта «Калькулятор». Разместите на нем кнопку возведения в квадрат числа из верхнего текстового поля, кнопку для очистки всех текстовых полей и кнопку выхода из программы (рисунок 9.10). Создайте исполняемый загрузочный файл.

Порядок выполнения работы

1 Откройте свою папку с проектами и сделайте копию папки с проектом Calc.vba. Переименуйте папку КопияCalc, дав ей другое имя Calc2. Откройте проект Calc из скопированной папки.

2 Разместите дополнительные элементы управления на форме, задайте их свойства, напишите процедуры.

3 Проверьте работу калькулятора и сохраните проект.

4 Для запуска калькулятора не из среды Visual Basic выберите команду меню Файл, затем Создать \ Calc.exe.

5 Закройте Visual Basic и запустите свой калькулятор, щелкнув по файлу Calc.exe.

Задача 4. Усовершенствуйте калькулятор таким образом, чтобы:

● при нажатии на клавишу вычитания эта клавиша прыгала в другое место калькулятора и на ней вместо минуса появлялся текст типа «Я устала вычитать» или «Не трогай меня – я нервная!»;

● при нажатии на клавишу <Очистка> клавиша вычитания возвращалась на свое место и принимала свой прежний вид;

● при нажатии на кнопку закрытия окна в режиме Run открывалось окно с сообщением «Указания».

 

Способы ввода-вывода данных

 

Цель занятия. Научиться объявлять переменные; освоить способы ввода-вывода данных.

Теоретические вопросы

1 Правила задания имен переменных. Типы переменных.

2 Перечислите основные способы объявления переменных.

3 Назначение оператора присваивания и оператора Print.

4 Какие способы для ввода и вывода информации применяются при создании простых приложений?

Задача 1. Разработайте приложение, которое предлагает пользователю ввести наименование, количество и цену покупаемого товара, затем вычисляет и выводит стоимость покупки.

Порядок выполнения работы

1 Создайте новый стандартный проект.

2 Разместите на форме управляющие элементы, как показано на рисунке 9.11.

 

Рисунок 9.11 – Форма в режиме запуска

 

3 Задайте самостоятельно свойства элементов управления. Для вывода в текстовом поле суммы оплаты за купленный товар в несколько строк измените свойство данного поля Multilane на Да.

4 Включите опцию обязательного объявления переменных, выбрав в меню Инструменты / Опции / Editor / Require Variable Declaration.

5 Перейдите в окно кода и, выбрав в списке объектов Общее (область объявления переменных на уровне модуля), запишите строки, объявляющие пере­менные.

6 Запишите процедуры обработки событий для кнопок <Сумма покупки>, <Очистка>, <Выход> (рисунок 9.12).

Рисунок 9.12 – Процедуры обработки событий

 

Задача 2. По итогам летней практики за выполненный объем работ группе студентов, состоящей из K человек, была начислена премия в размере S рублей. Разработайте приложение, которое предлагает пользователю ввести количество студентов в группе и общую сумму премии с помощью функции InputBox, затем вычисляет размер премии, полученной каждым студентом, и выводит результат:

 

.

 

Рисунок 9.13 – Варианты вывода результата выполнения приложения

Порядок выполнения работы

1 Создайте новый стандартный проект.

2 Разместите на форме управляющие элементы, как показано на рисунке 9.13а.

3 Задайте самостоятельно свойства элементов управления.

4 Перейдите в окно кода и запишите строки, объявляющие переменные.

5 Напишите процедуру для кнопки <cmdPremiya>:

Рисунок 9.14 – Окно кода проекта

 

6 Для вывода суммы премии, причитающейся студенту, на форме (рисунок 9.13б) замените строку на

Рисунок 9.15 – Форма в режиме запуска проекта

 

Print “ Сумма премии, причитающаяся каждому студенту равна”



Поделиться:


Последнее изменение этой страницы: 2016-12-16; просмотров: 242; Нарушение авторского права страницы; Мы поможем в написании вашей работы!

infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 3.14.142.131 (0.007 с.)