Пользовательский интерфейс VBA 4 страница

Таблица 16

№ В	Варианты индивидуальных заданий
Разработать процедуру пользователя, вычисляющую значение функции
	a=2.85, b=1.56, x=0.63
	a=12.5, b=0.03, x=5.256
	a=8.7, b=-5.2, x=8.1

Продолжение таблицы 16

	x=1.204, a=0.8
	a=3.08, x=-0.004
	a=16.01, b=18.1, x=5.93

Продолжение таблицы 16

	a=7.02, b=16.02, x=1.085
	x=2.4, a=2.65, b=4.24, c=1.83
	a=0.36, b=1.18, x=1.16
	x=0.12, a=0.111, b=0.348

Продолжение таблицы 16

	x=-0.37

Таблица 17

№ В	Варианты индивидуальных заданий
Разработать экономическую функцию пользователя
	Вычислить надбавку к зарплате сотрудника предприятия в зависимости от стажа его работы. Значения рассчитать по формулам: Стаж работы = (Текущая дата – Дата поступления на работу)/365. Результат округлить до целого. Значение зарплаты подобрать самостоятельно. Надбавка =
	Вычислить годовой подоходный налог с физических лиц. Принята следующая налоговая сетка: Доход % налога от: до: 12% 18% 25% и выше 35%
	Менеджеру по продажам необходимо разработать функцию, позволяющую рассчитывать комиссионные. Процент комиссионных зависит от объема проданного товара и начисляется по следующему правилу, представленному в таблице Объем продаж за неделю, р. Комиссионные, % От 0 до 29 999 От 30 000 до 59 999 4,5 От 60 000 до 119 999 6,8 Свыше 120 000 7,4
	Вычислить сдельную зарплату работника, а также сумму налога и сумму на руки. Значения рассчитать по формулам: <зарплата> = <обработано деталей> * <стоимость работы> - <деталей брака>*<стоимость детали>. Налог исчисляется в зависимости от зарплаты: если она выше 5000 р. – налог составляет 20%, если нет – 13%. Стоимость работы: Стоимость детали:

Продолжение таблицы 17

Продолжение таблицы 17

Продолжение таблицы 17

Продолжение таблицы 17

2.9 Оператор выбора (переключатель)

С помощью оператора выбора VBA можно выбрать вариант из любого количества вариантов. Параметром, по которому осуществляется выбор, служит ключ выбора.

Структура оператора выбора:

Select Case <ключ_выбора>

Case Значение_1

<Оператор1>

<Оператор2>

.…………………

Case Значение_n (константа)

<Оператор n>

End Select

где

Select, Case, End - зарезервированные слова VBA (выбирать, случай,

конец);

<ключ_выбора> - переключатель варианта (некоторое выражение);

<список_выбора> - одна или более конструкций вида: <константа_выбора>

<оператор>;

Значение_n - <константа_выбора>того же типа,

что и выражение <ключ_выбора>;

<операторы> - произвольные операторы VBA, выполняемые

при совпадении Значения_n и значения

ключа_выбора.

Работа оператора выбора.

Вначале вычисляется значение выражения <ключ_выбора>,а затем в последовательности операторов <список_выбора>отыскивается такой, которому предшествует константа, равная вычисленному значению. Найденный оператор выполняется, после чего оператор выбора завершает свою работу. Если в списке выбора не будет найдена константа, соответствующая вычисленному значению ключа выбора, управление передается операторам, стоящим за End Select.

В операторе Select Case можно использовать операции отношения. Для этого надо включить в выражение ключевое слово Is или ключевое слово To.

Ключевое слово Is дает указание компилятору сравнить значение проверяемой переменной со значением выражения, следующего за ключевым словом Is.

Ключевое слово To задает диапазон значений.

Пример 1.

Постановка задачи. Составить пользовательскую подпрограмму процедуру, расшифровывающую количество баллов за полученный ответ по введенному числу с клавиатуры.

Технология выполнения задания:

1 Исходные данные:

х ÎZ.

2 Набрать в стандартном модуле проекта следующую пользовательскую процедуру:

Sub DemoSelect ()

Dim x As Integer

x = InputBox ("введите целое число")

Select Case x

Case 8 To 10

MsgBox ("Отлично")

Case 6 To 7

MsgBox ("Хорошо")

Case 4 To 5

MsgBox ("Удовлетворительно")

Case Is < 4

MsgBox ("Неудовлетворительно")

End Select

End Sub

3 Запустить подпрограмму-процедуру.

Примечание. Процедура MsgBox выводит на экран диалоговое окно, содержащее сообщение для пользователя.

Лабораторная работа № 3

Программирование алгоритмов ветвлений со многими вариантами

Цель: приобретение навыков программирования алгоритмов ветвлений со многими вариантами с помощью пользовательской подпрограммы-функции, позволяющей выбрать необходимый вариант из любого предложенного количества вариантов. Индивидуальные варианты лабораторной работы № 3 представлены в таблице 18 (2 часа)

Таблица 18

Продолжение таблицы 18

Продолжение таблицы 18

2.10 Операторы цикла

В VBA существуют два основных типа циклов – циклы со счетчиком (параметрические) и циклы с условием (итерационные).

Циклы со счетчиком используют в тех случаях, когда необходимо выполнить некоторые действия определенное число раз

Циклы с условием применяются тогда, когда некоторые действия в программе должны повторяться до тех пор, пока выполняется определенное условие.

2.10.1 Циклы с параметром For … Next

Структура цикла:

For Параметр_Цикла = Начальное_Значение To Конечное_Значение

[Step Шаг]

Операторы

[Exit For]

Next [Параметр_Цикла]

где For – ключевое слово VBA (от), обозначающее начало цикла;

Параметр_цикла – переменная, определенная в качестве счетчика цикла;

Начальное_Значение – число, задающее начальное значение параметра цикла;

To – ключевое слово VBA (до), разделяющее

Начальное_значение и Конечное_Знаение;

Конечное_Значение – число, задающее значение параметра цикла,

при котором цикл завершается;

Step – ключевое слово VBA (шаг), используемое для

задания шага цикла, необязательный аргумент;

Шаг – число, задающее шаг цикла, т.е. значение, на которое

увеличивается (или уменьшается) значение параметра

цикла на каждом шаге. Это число может быть

отрицательным;

Exit For – оператор досрочного выхода из цикла (необязательный);

Next – ключевое слово VBA (следующий), обозначающее

конец цикла.

Работа цикла:

Шаг 1 Сначала определяется параметр цикла, а также вычисляются и запоминаются начальное и конечное значения этой переменной.

Шаг 2 Параметру цикла присваивается начальное значение.

Шаг 3 Начальное значение параметра цикла сравнивается с конечным значением.

Если параметр цикла больше конечного значения, программа сразу выходит из цикла и переходит к той строке кода, которая следует за циклом.

Шаг 4 Выполняется тело цикла.

Шаг 5 После выполнения тела цикла происходит присваивание параметру цикла следующего значения. Переход к шагу 3.

Примечание.

1 Если используется ключевое слово Step, то параметр цикла изменяется в соответствии с числом, указанным после этого слова. Если слово Step отсутствует, то значение шага равно единице.

Пример 1.

For I = 0 To 10 Step 2 (Значение I будет увеличиваться на 2)

2 Цикл For … Next может быть прерван досрочно при достижении какого либо условия. Для этого в нужном месте цикла нужно поместить оператор Exit For.

Пример 2.

Dim S As Integer

Dim j As Integer

S = 2

For j = 1 To 10

S = S + j

If S > 6 Then

Exit For (Выход из цикла, если значение S > 6)

End If

Next j

MsgBox (S)

2.10.2 Циклы с условием (итерационные)

Если какое-то действие (несколько действий) необходимо выполнить много раз, но заранее неизвестно сколько раз и это зависит от какого-то условия, то тогда следует воспользоваться циклом с предусловием или с постусловием.

В VBA есть два основных цикла DO … LOOP – с условием, вводимым ключевым словом While, и с условием, вводимым ключевым словом Until. Оба они могут быть с предусловием или с постусловием.

Синтаксис:

где Do – ключевое слово (делать);

While – ключевое слово (пока);

Until – ключевое слово (до тех пор пока);

Loop – ключевое слово, указывающее на окончание цикла;

<условие> – логическое выражение, истинность которого проверяется

в начале каждого выполнения тела цикла;

<тело_цикла> – произвольная последовательность операторов;

КонструкцияDo … Whileчитается: делать пока выполняется условие. В конструкции Do … While для увеличения шага следует писать специальный оператор, т.к. в ней в отличие от конструкции For, не делается это автоматически.

КонструкцияDo … Untilчитается:делать до тех пор, пока не будет выполнено условие. В конструкции Do … Untilдля увеличения шага следует писать специальный оператор, т.к. в ней в отличие от конструкции For, не делается это автоматически.

Условие, записанное после ключевого слова Until, проверяется в конце каждой итерации (после выполнения тела цикла). Обратить внимание, что оно работает здесь не совсем так, как в цикле While. Если условие является истинным (True), то выполнение цикла завершается. Если условие не выполняется (является ложным – False), то вновь выполняется тело цикла.

Пример 1.

Постановка задачи. Вычислить сумму конечного ряда с помощью подпрограммы-процедуры.

Технология выполнения задания:

1 Исходные данные: i Î Z

Результат: S Î R.

2 Набрать в стандартном модуле проекта следующую пользовательскую процедуру, используя цикл с предусловием While:

Sub summa()

Dim S As Integer

Dim i As Integer

S = 0

i = 1

Do While i <= 10

S = S + i ^ 2

i = i + 1

Loop

MsgBox (S)

End Sub

3 Набрать в стандартном модуле проекта следующую пользовательскую процедуру, используя цикл с предусловием Until:

Sub summa()

Dim S As Integer

Dim i As Integer

S = 0

i = 1

Do Until i > 10

S = S + i ^ 2

i = i + 1

Loop

MsgBox (S)

End Sub

4 Набрать в стандартном модуле проекта следующую пользовательскую процедуру, используя цикл с постусловием While:

Sub summa()

Dim S As Integer

Dim i As Integer

S = 0

i = 1

Do

S = S + i ^ 2

i = i + 1

Loop While i <= 10

MsgBox (S)

End Sub

5 Набрать в стандартном модуле проекта следующую пользовательскую процедуру, используя цикл с постусловием Until:

Sub summa()

Dim S As Integer

Dim i As Integer

S = 0

i = 1

Do

S = S + i ^ 2

i = i + 1

Loop Until i > 10

MsgBox (S)

End Sub

Лабораторная работа № 4

Программирование алгоритмов циклической структуры

Цель: приобретение навыков программирования алгоритмов циклической структуры с помощью подпрограммы-процедуры, позволяющую вычислять сумму (произведение) конечного ряда с помощью операторов цикла с параметром, с предусловием, с постусловием. Индивидуальные варианты лабораторной работы № 4 представлены в таблицах 19, 20 (2 часа).

Таблица 19

№ В	Варианты индивидуальных заданий
Разработать подпрограмму процедуру, вычисляющую сумму (произведение) конечного ряда

Продолжение таблицы 19