Так как исходные данные цена и количество вводятся в текстовые поля (строковый тип) и в дальнейшем участвуют в арифметических выражениях, для их преобразования к числовому типу используются встроенные функции CCur() и CInt().
При формировании сообщения о результате (строковый тип) используется встроенная функция Format(curСтоимость,”0.00”), которая преобразует значение числовой переменной curСтоимость из денежного типа в строковый. При этом в дробной части сохраняет два разряда для копеек.
Для вывода второго предложения результата в начало второй строки используется константа vbCrLf.
Требуется решить задачу 23.10.01 при цене изделия 5,2 грн. и количестве 4 шт. Цена действует, начиная с 30.10.01. На рис. 3.3. показана форма с данными начала и окончания периода, которые появляются в ней при запуске приложения. В качестве начальной даты отображается текущая дата (т.е. решение задачи происходит 23.10.01).
На рис. 3.4. представлена форма с введенной нужной датой начала периода 30.10.01 и вычисленной датой его окончания 06.11.01.
Рис.3.3. Внешний вид формы Рис. 3.4. Внешний вид формы
при ее загрузке после ввода начальной
(текущая дата 23.10.01) даты 30.10.01
После ввода цены и количества, а также нажатия кнопки «Вычислить» в поле результата под ней выводится результат вычислений (рис. 3.5).
Разработанное приложение может использоваться при планировании стоимости товара в маркетинговых исследованиях предприятия.
Рис. 3.5. Результат вычисления стоимости товара с учетом НДС
1. Определить рентабельность работы предприятия за квартал по формуле:
Р = П / (ОФ + ОБФ)*100,
где П – прибыль, ОФ – основные фонды, ОБФ – оборотные фонды за этот период.
По заданной дате начала периода указать начальную и конечную даты периода, за который подводятся итоги.
2. За период от заданной начальной даты Дата1 до заданной конечной даты Дата2 выручка магазина составлял S грн. Определить среднедневную выручку этого магазина.
3. При поденной оплате работы рабочий зарабатывает К грн. в день. Определить заработок рабочего, если он работал от заданной даты Дата1 до заданной даты Дата2 без выходных дней.
4. Определить пеню в гривнях, которая начисляется при задержке уплаты налога, если за каждый день задержки пеня составляет Р % от суммы налога. Известны также дата, когда нужно было уплатить налог, и дата, когда он фактически был уплачен.
5. За период от даты Дата1 до Дата2 предприятием реализовано готовой продукции на сумму Г грн. и полуфабрикатов на сумму ПФ грн. Определить среднемесячный объем реализованной продукции, если общая сумма реализованной продукции вычисляется по формуле:
РП = Г + НФ.
6. В день Дата1 на счет в банк положено определенную сумму S грн. под Р процентов годовых. Определить сумму средств, которые будут на счете в день Дата2.
7. В день Дата1 поступил заказ на изготовление N одинаковых деталей. Определить дату Дата2 выполнения заказа, если в цеха С одинаковых станков, а на изготовление одной детали расходуется Т минут. Продолжительность рабочего дня 8 часов.
8. В день Дата1 для отопления в котельную завезли Т тонн угля. Определить день Дата2, когда закончится завезенный уголь, если за сутки его сжигают К тонн.
9. Каникулы длятся в период с Дата1 до Дата2. Сколько часов занятий пропустил студент, если он возвратился из каникул в день Дата3, а каждый день проводится 6 часов занятий?
10. В резервуаре объемом V куб. т имеется V1 куб. т воды. В текущее время Время1 включили насос, который наполняет резервуар с скоростью Н куб. м в час. Определить время Время2, когда резервуар будет полным.
1. Для чего нужны переменные?
2. У чем состоит отличие констант от переменных?
3. Где хранятся значения констант и переменных?
4. Приведите пример пяти разных констант. К каким типам данных они принадлежат?
5. Сравните назначение ключевых слов Public и Private.
6. Сравните действие операторов Const и Dim.
7. Из каких частей обычно образуются имена переменных? Каково назначение каждой части?
8. Сравните типы данных Byte, Integer и Long. Приведите примеры ситуаций, в которых лучше применять типы Byte и Integer чем Long и запишите имена таких переменных.
9. Сравните типы данных Single, Double и Currency. Приведите примеры ситуаций, в которых используется каждый из них, и запишите имена таких переменных.
10. Какого типа получаются результаты при выполнении арифметических операций с целыми и дробными числами?
11. Какого типа получается результат , если сравнить два числа?
12. Как узнать, какая дата будет через 50 дней?
13. Как узнать, в какой день недели будет ближайший новый год?
14. Из каких данных складывается тип Date – времени или дат?
15. Запишите сегодняшнюю дату и время, которое показывают часы, в виде константы даты и времени.
16. Запишите строку, которая состоит из вашей фамилии и даты рождения.
17. Определите, сколько недель вы прожили.
18. Определите, в какой день недели вы родились.
19. Определите дату, когда вам исполнилось миллион секунд.
20. В текстовое поле txtНазвание введено название товара. Определите, из скольких символов состоит это название.
21. В каком порядке выполняются действия во время вычисления выражения, если отсутствуют скобки?
22. Каково назначение оператора присваивания?
23. Как отличить в коде оператор присваивания от операции равно?
24. Какие функции нужно использовать, чтобы можно было выполнять действия с данными, которые введены в текстовые поля?
25. С какой целью в коде используется оператор Option Explicit?
26. Для чего используют функцию Format?
27. Каково назначение константы vbCrLf ?
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.