Часть 5. СОЗДАНИЕ ПРОГРАММС МАССИВАМИ

Начальные сведения по решению задач данной части содержатся в части 6 учебно-методического пособия «Программирование на VBA».

Приступая к решению задач этого раздела, следует вспомнить, что:

• массив – это структура данных, представляющая собой совокупность элементов одного типа;

• массив должен быть объявлен в разделе объявления переменных;

• доступ к элементу массива осуществляется путем указания индекса (номера) элемента, в качестве которого используется выражение целого типа, например, целая константа или переменная типа Integer;

• для ввода, вывода и обработки массивов удобно применять инструкции циклов (For…Next, Do While, Do Until, Do…Loop While, Do…Loop Until).

ВАРИАНТЫ ЗАДАНИЙ

1. Составьте программу на языке VBA, которая определяет минимальный элемент и его номер из одномерного массива целых чисел. Программа должна проверять правильность введенных пользователем данных и, если они неверные ( n <> 0), выдавать сообщение об ошибке.

Исходные данные:	Результат:
1. Введите размерность массива n: 0	Неверно введено n
2. Введите размерность массива n: 3 Массив: (-1 -7 5)	Минимальный элемент –7, его номер 2

2. Составьте программу на языке VBA, которая определяет количество нецелыx чисел в одномерном массиве вещественных чисел. Программа должна проверять правильность введенных пользователем данных и, если они неверные

( n <= 0), выдавать сообщение об ошибке.

Исходные данные:	Результат:
1. Введите размерность массива n: 0	Неверно введено n
2. Введите размерность массива n: 5 Массив: (-1 -7.5 5 3 3.33)	Количество нецелых чисел: 2 шт.

---

3. Составьте программу на языке VBA, которая определяет сумму целыx чисел в одномерном массиве вещественных чисел. Программа должна проверять правильность введенных пользователем данных и, если они неверные ( n <= 0), выдавать сообщение об ошибке.

Исходные данные:	Результат:
1. Введите размерность массива n: 0	Неверно введено n
2. Введите размерность массива n: 5 Массив: (-1 -7.5 5 3 3.33)	Сумма целых чисел: 7 шт.

4. Составьте программу на языке VBA, которая количество чисел в одномерном массиве, которые делятся на заданное число m. Программа должна проверять правильность введенных пользователем данных и, если они неверные ( n <= 0 или m<=1), выдавать сообщение об ошибке.

Исходные данные:	Результат:
1. Введите размерность массива n: 0 Введите заданное число m: 2	Неверно введено n или m
2. Введите размерность массива n: 5 Введите заданное число m: 1	Неверно введено n или m
3. Введите размерность массива n: 5 Введите заданное число m: 3 Массив: (3 1 6 0 5)	Таких чисел 3 шт.

5. Составьте программу на языке VBA, которая вычисляет количество ненулевых элементов в одномерном массиве из n чисел. Программа должна проверять правильность введенных пользователем данных и, если они неверные ( n <= 0), выдавать сообщение об ошибке.

Исходные данные:	Результат:
1. Введите размерность массива n: 0	Неверно введено n
2. Введите размерность массива n: 5 Массив: (-1 0 5 0 3.33)	Количество ненулевых чисел: 2 шт.

---

6. Составьте программу на языке VBA, которая вычисляет сумму L квадратов отрицательных элементов одномерного массива. Программа должна проверять правильность введенных пользователем данных и, если они неверные ( n <= 0), выдавать сообщение об ошибке.

Исходные данные:	Результат:
1. Введите размерность массива n: 0	Неверно введено n
2. Введите размерность массива n: 5 Массив: (-1 3 -2 -5 4 )	Сумма: 30

7. Составьте программу на языке VBA, которая вычисляет количество пар равных соседних элементов в одномерном массиве. Программа должна проверять правильность введенных пользователем данных и, если они неверные ( n <= 0), выдавать сообщение об ошибке.

Исходные данные:	Результат:
1. Введите размерность массива n: 0	Неверно введено n
2. Введите размерность массива n: 7 Массив: (-1 -1 -1 -2 4 4 2)	Всего пар: 3

8. Составьте программу на языке VBA, которая в массиве положительных вещественных чисел определяет количество тех, из которых извлекается квадратный корень. Программа должна проверять правильность введенных пользователем данных и, если они неверные ( n <= 0), выдавать сообщение об ошибке.

Исходные данные:	Результат:
1. Введите размерность массива n: 0	Неверно введено n
2. Введите размерность массива n: 7 Массив: (2 3 1 2 0 4 2)	Таких чисел: 3

9. Составьте программу на языке VBA, которая выводит максимальный элемент и его номера в массиве. Программа должна проверять правильность введенных пользователем данных и, если они неверные (n <= 0), выдавать сообщение об ошибке.

---

Исходные данные:	Результат:
1. Введите размерность массива n: 0	Неверно введено n
2. Введите размерность массива n: 7 Массив: (2 8 -1 -2 8 6 1)	Максимальный: 8 Его номер: 2, 5

10. Составьте программу на языке VBA, которая определяет среднее квадратичное ( ) элементов массива. Программа должна проверять правильность введенных пользователем данных и, если они неверные (n <= 1), выдавать сообщение об ошибке.

Исходные данные:	Результат:
1. Введите размерность массива n: 1	Неверно введено n
2. Введите размерность массива n: 7 Массив: (2 4 -1 -2 8 6 1)	Среднее квадратичное: 11,2249

11. Составьте программу на языке VBA, которая определяет максимальный элемент и меняет его местами с первым в одномерном массиве из n элементов.

Программа должна проверять правильность введенных пользователем данных и, если они неверные ( n <= 1), выдавать сообщение об ошибке.

Исходные данные:	Результат:
1. Введите размерность массива n: 1	Неверно введено n
2. Введите размерность массива n: 7 Массив: (2 4 -1 -2 8 6 1)	Максимальное: 8 Новый массив: (8 4 -1 -2 2 6 1)

12. Составьте программу на языке VBA, которая ”разворачивает” одномерный массив из n элементов в обратном порядке. Программа должна проверять правильность введенных пользователем данных и, если они неверные (n <= 1), выдавать сообщение об ошибке.

---

Исходные данные:	Результат:
1. Введите размерность массива n: 1	Неверно введено n
2. Введите размерность массива n: 7 Массив: (2 4 -1 -2 8 6 1)	Новый массив: (1 6 8 -2 -1 4 2)

13. Составьте программу на языке VBA, которая вычисляет количество нулевых элементов массива и выводит их номера. Программа должна проверять правильность введенных пользователем данных и, если они неверные (n <= 1), выдавать сообщение об ошибке.

Исходные данные:	Результат:
1. Введите размерность массива n: 1	Неверно введено n
2. Введите размерность массива n: 7 Массив: (2 4 0 -2 0 6 1)	Нулей: 2 Их номера: 3 5

14. Составьте программу на языке VBA, которая вычисляет количество элементов массива, которые заканчиваются на “6” и выводит их номера. Программа должна проверять правильность введенных пользователем данных и, если они неверные ( n <= 1), выдавать сообщение об ошибке.

Исходные данные:	Результат:
1. Введите размерность массива n: 1	Неверно введено n
2. Введите размерность массива n: 7 Массив: (2 66 0 -2 0 26 1)	Таких чисел: 2 Их номера: 2 6

15. Составьте программу на языке VBA, которая сортирует по убыванию одномерный массив размерностью n элементов. Программа должна проверять правильность введенных пользователем данных и, если они неверные ( n <= 1), выдавать сообщение об ошибке.

Исходные данные:	Результат:
1. Введите размерность массива n: 1	Неверно введено n
2. Введите размерность массива n: 7 Массив: (2 4 0 -2 0 6 1)	Новый массив: (6 4 2 1 0 0 -2)

---

Смотрите также файлы

• Задания Web-узел.pdf

• Задания HTML.doc

• Вопросы к экзамену.doc

• WEB-УЗЕЛ.pdf

• vba_2002.pdf