Лабораторная работа №3. Работа с операторами выбора и циклами

Работа с операторами выбора и циклами

Задание 1. Подсчитать число студентов, получивших положительный результат по дисциплине «Информатика» за второй семестр.

Постановка задачи.

Написать программу, обеспечивающую подсчет студентов, получивших не менее 61 балла по дисциплине «Информатика» за второй семестр. Исходные данные берутся из базы данных с рабочего листа (Рис.9). Результат требуется поместить в отдельную ячейку рабочего листа с поясняющей надписью "Экзамен сдали".

Рис.9

Выполнение задания 1.

Для решения данной задачи определим первую пустую ячейку в столбце D (предполагаем, что количество записей в столбце неизвестно). Введем переменную k для подсчета. Переменную смещения строк i будем использовать для изменения адресации ячеек, увеличивая каждый раз на единицу.

Реализация данной задачи отражена в программном коде:

Public Sub Informatica_exam()

Dim k As Integer ‘объявляется переменная k целого типа для подсчета сотрудников

Лист2. Activate

i = 2 ‘неявно объявляем переменную для номера строки

k=0 ‘присваиваем первоначальное значение переменной, подсчитывающей студентов, сдавших успешно экзамен

Do While Cells(i, 2) <> "" ‘выполняем цикл, пока не встретится пустая ячейка в столбце В (т.е. конец списка фамилий: <> ""означает не равно пустой ячейке).

If Cells(i, 4) >=61 Then ‘проверяем условие успешной сдачи экзамена

k = k + 1 ‘подсчитываем число студентов при выполнении условия

End If ‘окончание блока оператора If

i = i + 1 ‘увеличиваем переменную смещения строк для изменения адресов ячеек

Loop 'окончание цикла

Cells(i + 2, 3).Value ="Экзамен сдали" ‘вводим в ячейку поясняющую надпись

Cells(i + 3, 3).Value=k ‘присваиваем результат счета ячейке

Cells(i + 3, 3).Font.ColorIndex = 3 ‘ окрашиваем шрифт в красный цвет

End Sub

Для быстрого и удобного запуска программ и макросов на рабочем листе можно поместить кнопку (или любой графический объект).

Задание 2. Создать приложение «Учет командировочных расходов».