Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Упражнение 3
|
|
1. Изучите операторы Do….Loop.
2. Скопируйте в м одуль код процедур DWL и DUL, выполните процедуры и проанализируйте результаты их выполнения.
3. Разработайте процедуру с использованием оператора Do Until для решения следующей задачи.
В таблице Excel, приведённой ниже, требуется определить фамилии студентов, получивших на экзамене хотя бы одну оценку “Неуд”.
| СВОДНАЯ ЭКЗАМЕНАЦИОННАЯ ВЕДОМОСТЬ | |||
| ИВАНОВ | ХОР | ОТЛ | НЕУД |
| ПЕТРОВ | ХОР | НЕУД | ХОР |
| СИДОРОВ | ОТЛ | НЕУД | ОТЛ |
Результаты представить в виде следующей таблицы:
| Неудовлетворительные оценки получили |
| ИВАНОВ |
| ПЕТРОВ |
| СИДОРОВ |
Методические указания по выполнению Упражнения 3.
1. Создайте таблицу СВОДНАЯ ЭКЗАМЕНАЦИОННАЯ ВЕДОМОСТЬ на листе «Ведомость», начиная с ячейки A1. Представленная выше таблица является примером её реализации; количество фамилий в общем случае =< 40.
2. Составьте алгоритм решения задачи в виде блок-схемы, лучше – с комментариями. Реализацию алгоритма в среде VBA осуществите несколькими процедурами, используя оператор Call для их взаимодействия. Например, оформление таблицы результатов можно выполнить отдельной процедурой.
3. Явно объявите переменные, которые вы предполагаете использовать в процедуре, в том числе переменные циклов.
4. Переменные, представляющие значения фамилий, являются строковыми размером до 20 символов и должны объявляться как String*20.
5. Результатную таблицу разместите на том же листе, на котором размещается СВОДНАЯ ЭКЗАМЕНАЦИОННАЯ ВЕДОМОСТЬ, начиная с ячейки H1, выполнив форматирование таблицы таким образом, как представлено на образце.
6. Решение задачи можно осуществлять двумя способами: помещать фамилии студентов, получивших неудовлетворительную оценку сразу в результатную таблицу или сначала создать массив фамилий двоечников, а затем скопировать их в результатную таблицу.
7. Концом списка фамилий является “пустая” строка, имеющая значение “”. Это значение можно использовать для определения конца списка в таблице Excel. Поскольку ячейка таблицы Excel может содержать невидимые пробелы, для определения того, что строка является “пустой”, следует использовать функцию VBA Trim, возвращающую значение ячейки или переменной без начальных и конечных пробелов, например, Trim(Cells(k, 1)), Trim(Фамилия).
8. Для просмотра исходного списка значений ячеек или массива фамилий следует использовать оператор Do Until, проверяющий, заполнена ли очередная ячейка таблицы или соответствующая ей переменная.