БарГУ.by » Учебные материалы » КСРы » Информационные технологии » Лабораторная работа №17. Создание пользовательских функций с условными выражениями на языке Visual Basic в MS Excel

Лабораторная работа №17. Создание пользовательских функций с условными выражениями на языке Visual Basic в MS Excel

Автор: Maxvel 9-11-2012, 17:34

Лабораторная работа №17. Создание пользовательских функций с условными выражениями на языке Visual Basic в MS Excel

 

Вы не можете скачивать файлы с нашего сервера

Цель работы: ознакомление с алгоритмами, использующими условные выражения на примере создания пользовательских функций на языке Visual Basic в MS Excel. Ознакомиться с принципами визуального проектирования.

Порядок выполнения задания.
1. Для создания пользовательской функции в книге Excel необходимо выполнить следующее:
1.1. перейти в редактор Visual Basic (Сервис/ Макрос/Редактор Visual Basic);
1.2. В меню редактора выбрать команду Вставка/ Модуль.
1.3. В окне Свойства в поле Nаme ввести имя модуля.
1.4. Ввести в модуль инструкции на языке Visual Basic.
2. Применять созданную функцию следует, также как другие встроенные функции Excel. Находятся все пользовательские функции в категории «определённые пользователем».

Задание №1
Фирма предлагает торговую скидку 10%, если заказано более 100 изделий одного сорта.
1. Лист книги Excel содержит бланк заказа следующего вида:

Код
Товар
Количество
Цена
Скидка
Сумма

001 Клён
10
54


002
Клён
100
54

2. Функция Скидка (Количество, Цена) на языке Visual Basic:
Function Скидка (Количество, Цена)
If Количество >=100 Then
Скидка = Количество * Цена * 0.1
Else
Скидка = 0
End If
End Function

3. Введём формулы в ячейки вычисляемых полей Скидка и Сумма:

A B C D E F
1 Код
Товар
Количество
Цена
Скидка
Сумма

2 001 Клён
10
54 =Скидка(С2:D2) =D2*C2-E2
3 002
Клён
100
54
=Скидка(С3:D3) =D3*C3-E3
4

Задание №2
На языке VBA создать пользовательскую функцию, принимающую следующие значения:
-1 при х >0
1 при x<0

Построить график данной функции на отрезке от -5 до 5.

Задание №3
В MS Excel создать список сотрудников (5..10 записей). Список должен содержать следующие поля: ФИО, название отдела, зарплата и вычисляемое поле – налог.
Для вычисления налога создать пользовательскую функцию Налог (Зарплата) на языке VBA.
Налог=х*Зарплата, где х – процент, который зависит от величины зарплаты и равен:

Зарплата
сотрудника До 100 000 От 100 000
до 200 000 Более 200 000
Процент 9 12 15

Задание№4
Задача. Вводятся три числа a, b, c. Требуется определить максимальное число.

Разработать программу на языке Visual Basic:
1. Создать форму с полями для ввода данных и кнопкой.
2. Написать процедуру обработки события, которая выполняется при щелчке по кнопке на форме.
Порядок выполнения задания.
3. Для создания формы в книге Excel необходимо выполнить следующее:
3.1. Перейти в редактор Visual Basic (Сервис/ Макрос/ Редактор Visual Basic).
3.2. В меню редактора выбрать команду Вставка/ User Form.
3.3. В окне Свойства в поле Caption ввести заголовок формы.
3.4. Нанести на форму элементы управления: метки, поля ввода и кнопку. Элемент управления выбирается на панели и рисуется мышью нужном месте формы. Далее в окне Свойства определяются его свойства. Некоторые свойства, например подпись (Caption) для метки можно определить прямо на форме: щёлкнуть по надписи и ввести новое значение (рис. 1)

Рис. 1
4. Для создания программного кода необходимо:
4.1. Дважды щёлкнуть по кнопке на форме, после чего появится заготовка для процедуры, обрабатывающей нажатие данной кнопки пользователем (рис. 2, 3)

Рис.2

Рис. 3
4.2. После заголовка процедуры допишите программу.
5. Запустить приложение на выполнение, можно нажав кнопку (Запуск подпрограммы/ User Form). Остановить выполнение программы (при ошибке) можно кнопкой (Сброс).

Порядок выполнения задания:
1. нанесём на форму следующие элементы:
• метку Label1. Свойство Caption – а;

• поле ввода Textbox 1 для переменной а;

• далее, ещё две метки Label 2, Label 3 и для поля ввода Textbox 2, Textbox 3 для переменных b и c;
• кнопку Command Button 1. Свойство Caption – определить максимальное.
• Метку Label 4 для вывода результата. На этой метке не должно быть надписи (Поле Caption - пустое).
2. Запишем следующую подпрограмму обработки события – щелчка мыши по кнопке:
Private Sub Command Button 1_Click ()
‘ Описание переменных
Dim a, b, c, max As Integer
' Определение переменных
a= TextBox1.Value
b= TextBox2.Value
c= TextBox3.Value
‘ находим максимальное число
‘ Если a<b, то максимум = b, иначе максимум = а.
If a <b Then
Max = b
Else: max = a
End If
‘ Если максимум <c, то максимум = с.
If max < c Then
Max = c
End If
‘ Вывод результата
Label4.Caption = «максимальное число равно» & max
End Sub
3. результат работы программы:



Обсудить на форуме

Комментарии к статье:

Уважаемый посетитель, Вы зашли на сайт как незарегистрированный пользователь
Мы рекомендуем Вам зарегистрироваться либо войти на сайт под своим именем
Информация
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.

Регистрация

Реклама

Последние комментарии