Текст программы, связанной с кнопкой «Вычислить»

 

Private Sub CommandButton1_Click()

S = 0

For I = 2 To 5

For J = 2 To 5

d = 0

For N = 2 To 21

X = Sheets("Лист1").Cells(N, 2).Value

Y = Sheets("Лист1").Cells(N, 3).Value

If (Y * Y <= I * X / 2) And (Y >= X * X - X + 0.1) And (Y >= J * Exp(X) / 10) Then

   d = d + 1

End If

Next N

If d > S Then

S = d

K1 = I / 2

K3 = J / 10

End If

Next J

Next I

Sheets("Лист1").Cells(32, 6).Value = K1

Sheets("Лист1").Cells(32, 7).Value = K3

For I = 1 To 200

Sheets("Лист1").Cells(I + 25, 1).Value = (I - 1) / 50

Next I

For I = 1 To 200

X = (I - 1) / 50

Y = (X * K1) ^ (0.5)

Sheets("Лист1").Cells(I + 25, 2).Value = Y

Y = X * X - X + 0.1

Sheets("Лист1").Cells(I + 25, 3).Value = Y

Y = K3 * Exp(X)

Sheets("Лист1").Cells(I + 25, 4).Value = Y

Next I

End Sub

 

 

Часть 2. База данных.

 

2.1 Формулировка задания.

 

       Требуется создать базу данных (БД) для завуча школы. Она должна включать сведения о расписании, учителях и их предметах, учениках, их успеваемости, и т.п.

Завучу могут понадобиться следующие сведения:

 

- Какой урок проходит в заданном классе в заданный день на заданном уроке.

- Какие учителя преподают в заданном классе.

- В каком кабинете проходит заданный урок в заданном классе в заданный день.

- Какие классы ведет заданный учитель.

- Составить расписание для класса на заданный день

 

       Кроме того, необходимо предусмотреть выдачу следующих справок:

 

- О количестве учеников в классе.

- О количестве учителем по каждому из предметов.

- О количестве кабинетов в школе.

- О количестве учащихся на «2», «4-5» и «5» по классам и по школе.

           

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

 

Анализ решения.

 

Конкретизация постановки задачи.

       При составлении расписания в отсутствие реальных прообразов школьных занятий были сделаны следующие уточнения:

- В школе обучаются только 10-е и 11-е классы по 5 в каждой параллели.

- В параллели первые два класса углубленно изучают технические предметы, вторые два – гуманитарные, пятый – естественнонаучные.

- Каждый день с понедельника по субботу у каждого класса 6 уроков – с 1-го по 6-й соответственно.

Принципы практической реализации.

 

       Исходя из условий, очевидна необходимость создания нескольких «основных» таблиц, поиском по которым и будут реализованы требуемые заданием возможные запросы завуча. Для созданных таблиц вида:

 

- расписание уроков по учителям с указанием дня недели, ведомого предмета, обучаемого на данном уроке класса и кабинета, в котором проходит урок,

- ведомость успеваемости для каждого из классов;

 

возможно реализовать все требуемые запросы перебором содержимого соответствующих граф.

 

Реализация решения.

 

Общие положения.

 

       БД организована в Excel с применением Visual Basic для осуществления запросов. БД представляет собой документ Excel, состоящий из листов, посвященных

 

- расписанию и запросам

- выдаче справок

- ведомостям успеваемости для каждого класса

 

       Кроме того, на листе с расписанием и на листе справок организованы поля ввода запросов, вывода результатов и управляющие выполнением запросов кнопки.

Каждый запрос управляется одинарным нажатием на соответствующую кнопку, а действия по этому сигналу регламентированы программами на Visual Basic*.

 

Информационные таблицы.

 

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

 

- Таблица-расписание

- Таблица-ведомость

 

       В первой по одной оси отмечены дни недели и номера уроков, а по другой учителя, причем каждому отведено две строки. Об учителе хранится информация касательно его фамилии и преподаваемого предмета, а в пересечениях – обучаемый на данном уроке класс (первая строка) и номер кабинета, в котором проходит данный урок (вторая строка).

       Во второй таблице, посвященной каждому классу отдельно, отмечены изучаемые предметы и список учеников. А в пересечениях - оценка соответствующего ученика по соответствующему предмету.

 

Эти таблицы выглядят так:

 

Расписание:

 

 

Ведомость:

 

 

 

Выполнение запросов.

 

Общие сведения.

 

       Все запросы расположенным на первом листе «расписание» и оформлены в виде сведенных рядом полей ввода и вывода и управляющей кнопки, расположенной непосредственно над этими полями.

       Ввиду однотипности запросов, все они будут описаны по общему для всего п. 2.3.3 плану:

 

а) Задание

б) Поле ввода

в) Поле вывода

г) Управляющая кнопка

д) алгоритм обработки запроса

е) наглядная иллюстрация

 

       Все запросы построены таким образом, что работают для не более чем 25 преподавателей в школе, при реально существующих 21.

Определить предмет.

 

а) Требуется по данным: дню недели, номеру урока и классу выяснить, какой предмет там на данном уроке преподается.

б) В60 – D60

в) В63

г) «Предмет по дате»

д) Сначала в цикле находится нужный день недели, затем номер урока. Таким образом определяется столбец, в котором осталось найти искомый класс и записать в поле вывода значение из второй ячейки той же строки – там содержится изучаемый предмет

е) Пример:

 

⇐ Предыдущая123456Следующая ⇒

Поделиться: