КОНСУЛЬТАЦИЯ ЭКЗАМЕН 1. Постановка задачи: Скласти VBA-проект для
КОНСУЛЬТАЦИЯ ЭКЗАМЕН
1. Постановка задачи: Скласти VBA-проект для обчислень вартості товару з врахуванням можливої знижки (заданої в %) при наявності в покупця дисконтної картки, якщо відома ціна товару і його кількість. При відсутності картки знижка не надається (Додаток 1). У проекті передбачити такі додаткові можливості: очищення текстових полів; перевірку даних, що вводяться; відображення поточної дати у форматі дд ММММ рр; виведення результату у форматі #0.00 грн. Задача 1
2. Исходные данные: Дано: Цена товара (Ц) Количество товара (К) Скидка (Д) при наличии дисконтной карты (ДК) Найти: Стоимость товара (Ст) 3. Математическая модель: Ст = Ц * К (1-Д) Ст = Ц * К, если ДК нет Ст = Ц * К (1 - Д), если ДК есть
4. Блок-схема алгоритма:
5. Экранная форма:
6. Таблица свойств элементов управления:
7. Структура данных:
7. Программный код: Option Explicit Dim Cena As Currency Dim Stoimost As Currency Dim Kolvo As Integer Dim Diskont As Single Private Sub cmdRaschet_Click() Cena = CCur(txtCena.Value) Kolvo = CInt(txtKolvo.Text) If chkSkidka.Value = True Then Diskont = CSng(InputBox("Введите скидку в процентах", "Скидка") / 100) Stoimost = Cena * Kolvo * (1 - Diskont) Else Stoimost = Cena * Kolvo End If txtStoimost.Text = Format(Stoimost, "#0.00") & " грн." End Sub Private Sub cmdOchistit_Click() txtCena.Value = " " txtKolvo.Value = " " txtStoimost.Value = " " End Sub
Задача 2 За допомогою MS Excel здійснити розрахунок вартості проданих офісних меблів з 10-відсотковою знижкою, яка надається, якщо вартість покупки перевищує 5 000 грн. Результати обчислень оформити у вигляді таблиці «Відомість продажів товарів». (Додаток 2) Заповнити таблицю вхідними даними й результатами обчислень; формули для обчислень показати для першого рядка таблиці.
Задача 3 Побудувати розширений фільтр для відбору даних про товари, назва яких починається на букву «л», і ціна яких не більше 2 000 грн. (Додаток 3).
Задача 4 Побудувати макет зведеної таблиці для розв'язку такого завдання: визначити середню ціну товарів кожного постачальника. (Додаток 4).
12616-l9_tests.ppt
- Количество слайдов: 17