Структура оператора If для проверки большого числа условий

Пример 6

Составить программу для начисления премии работникам предприятия в зависимости от стажа работы согласно табл. 16:

Таблица 16

Стаж работника записан в ячейке А4 листа Excel Данные. Начисленную премию нужно записать в ячейку С4 того же листа.

Создаем программу с именем Премия:

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

Изучаемые вопросы:

• Обработка массивов;

• Циклы с заданным числом повторений;

• Циклы с неизвестным числом повторений;

• Обработка двумерных массивов.

2.3.1. Обработка массивов

Массив – это упорядоченный набор данных, например, А1, А2, А3,…, АN.

При работе с массивами их следует описывать в начале программы с указанием размерности. Синтаксис описания массивов:

Dim ИмяМассива(Размерность) As ТипЭлементов

Например,

Dim A(15) As Integer –Массив А из 15 целых чисел;

Dim B(3,4) As Single – Матрица В из трех строк и четырех столбцов действительных чисел.

Допускается такая запись:

Dim A(1 To 15) As Integer

Dim B(1 To 3, 1 To 4) As Single

Массив в программе изменяется поэлементно, например,

Y = A(7) -

переменной Y присвоено значение 7-го элемента массива А.

или Z = B(1,3) -

переменной Z присвоено значение элемента матрицы В, стоящего на пересечении первой строки и третьего столбца

2.3.2. Циклы с заданным числом повторений

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

Оператор For (для)…Next (следующий)

Имеет синтаксис

For

Оператор цикла работает так:

1. Переменной цикла присваивается начальное значение.

2. Выполняются операторы тела цикла.

3. Оператор Next возвращает управление оператору For.

4. Оператор For увеличивает значение переменной цикла на шаг и проверяет условие окончания цикла.

5. При выполнении условия происходит переход к оператору, следующему за Next. При невыполнении повторяются пп. 2 – 5.

Пример 7

Вычислить Y = X³ для Х = 1, 3, 5,…,101.

Решение

Программа вычислений имеет вид:

Пример 8

Вычислить Z = Cos x для х = 1, 2, 3, …50

Решение

Если шаг цикла равен единице, ключевое слово Step можно опустить:

Пример 9

Дан массив А(70). Вычислить массив В(70), каждый элемент которого равен

B(I) = 0.8 *A(I).

Решение

Массивы описываются в начале программы с использованием ключевого слова Dim и указанием их размерности. Для перебора всех элементов массива нужно организовать цикл.

Вычисление суммы элементов массива

Алгоритм суммирования:

• Обнулить ячейку для хранения суммы;

• Организовать цикл по перебору элементов массива;

• На каждом шаге цикла добавлять к сумме очередной элемент массива.

Пример 10

Вычислить сумму элементов массива С(90). Результат поместить в ячейку D8 листа Excel