25. Составьте функцию, которая вычисляет количество строк, упорядоченных по убыванию.
26. Составьте функцию, которая вычисляет сумму элементов строк, в которых последний элемент равен нулю.
27. Составьте функцию, которая вычисляет количество строк, в которых нет отрицательных элементов.
28. Составьте функцию, которая вычисляет сумму элементов строк, в которых элемент главной диагонали больше нуля.
29. Составьте функцию, которая вычисляет количество строк, в которых нет элементов, кратных заданному числу.
30. Составьте функцию, которая вычисляет сумму элементов строк, в которых элемент главной диагонали кратен заданному числу.
2. Разработка функции
1. Запустите приложение Microsoft Excel и сохраните файл Книга1 в своей рабочей папке под именем Функция.xls m (не забудьте изменить расширение файла).
2. Откройте редактор VBE и вставьте новый модуль.
3. В появившемся модуле напишите инструкцию Option Explicit, для того чтобы избежать использования необъявленных переменных.
4. Вставьте в модуль функцию.
5. Добавьте описание параметров и типа результата функции.
6. Наберите текст функции. Для того чтобы избежать ошибок, связанных с неверными типами данных, проверьте тип данных ячейки с помощью инструкции VarType( cell. Value) = vbDouble или VarType( cell. Value) = vbLong.
7. На рабочем листе наберите исходные данные для проверки разработанной функции.
8. Вставьте вызов функции как формулу в какую-нибудь ячейку рабочего листа.
9. Проверьте работу функции. Попробуйте ввести нечисловые данные.
10. Если функция работает корректно, покажите результаты работы преподавателю.
11. Закройте приложение Microsoft Excel.
3. Вопросы для контроля
1. Как вставить модуль?
2. Как вставить функцию в модуль?
3. Как передаются данные в функцию?
4. Как вернуть признак ошибки?
5. Как осуществляется досрочный выход из цикла?