- •Курсовая работа
- •Часть 1. Вычисления.
- •Формулировка задания.
- •Анализ решения.
- •Математический анализ условий
- •Организация решения вExcel.
- •Реализация решения задачи.
- •1.3.1 Общие положения.
- •1.3.2 Ввод данных.
- •1.3.3 Вычисление и отображение результата.
- •1.3.4. Построение графиков.
- •1.3.5 Графическая иллюстрация решения
- •1.3.6 Визуализация.
- •Выводы.
- •1.5 Примечания.
- •1.5.1 Текст программы, связанной с кнопкой «Вычислить»
- •Часть 2. База данных.
- •2.1 Формулировка задания.
- •2.2 Анализ решения.
- •2.3.2 Информационные таблицы.
- •2.3.3 Выполнение запросов.
- •2.3.3.1 Общие сведения.
- •2.3.3.2 Определить предмет.
- •Количество учеников.
- •Примечания
- •2.5.1 Текст программы, связанной с кнопкой «Предмет по дате»
- •2.5.2 Текст программы, связанной с кнопкой «Учителя по классу»
- •2.5.3 Текст программы, связанной с кнопкой «Кабинет по дате»
- •Текст программы, связанной с кнопкой «Обучаемые учителем классы»
- •Текст программы, связанной с кнопкой «Расписание для класса»
- •Текст программы, связанной с кнопкой «кол-во учеников»
- •Текст программы, связанной с кнопкой «Учителя по предметам»
- •Текст программы, связанной с кнопкой «кол-во кабинетов»
- •Текст программы, связанной с кнопкой «Успеваемость в классах»
- •Текст программы, связанной с кнопкой «Успеваемость по школе»
Текст программы, связанной с кнопкой «Успеваемость по школе»
Private Sub CommandButton5_Click()
D = 0
O = 0
X = 0
For I = 3 To 25
A = 0
B = 0
C = 0
For J = 2 To 13
If Sheets("10а").Cells(I, J).Value = 2 Then
A = A + 1
End If
If Sheets("10а").Cells(I, J).Value = 4 Then
B = B + 1
End If
If Sheets("10а").Cells(I, J).Value = 5 Then
C = C + 1
End If
Next J
If A > 0 Then
D = D + 1
End If
If (B + C = 12) And (B > 0) Then
X = X + 1
End If
If C = 12 Then
O = O + 1
End If
Next I
For I = 3 To 25
A = 0
B = 0
C = 0
For J = 2 To 13
If Sheets("10б").Cells(I, J).Value = 2 Then
A = A + 1
End If
If Sheets("10б").Cells(I, J).Value = 4 Then
B = B + 1
End If
If Sheets("10б").Cells(I, J).Value = 5 Then
C = C + 1
End If
Next J
If A > 0 Then
D = D + 1
End If
If (B + C = 12) And (B > 0) Then
X = X + 1
End If
If C = 12 Then
O = O + 1
End If
Next I
For I = 3 To 25
A = 0
B = 0
C = 0
For J = 2 To 13
If Sheets("10в").Cells(I, J).Value = 2 Then
A = A + 1
End If
If Sheets("10в").Cells(I, J).Value = 4 Then
B = B + 1
End If
If Sheets("10в").Cells(I, J).Value = 5 Then
C = C + 1
End If
Next J
If A > 0 Then
D = D + 1
End If
If (B + C = 12) And (B > 0) Then
X = X + 1
End If
If C = 12 Then
O = O + 1
End If
Next I
For I = 3 To 25
A = 0
B = 0
C = 0
For J = 2 To 13
If Sheets("10г").Cells(I, J).Value = 2 Then
A = A + 1
End If
If Sheets("10г").Cells(I, J).Value = 4 Then
B = B + 1
End If
If Sheets("10г").Cells(I, J).Value = 5 Then
C = C + 1
End If
Next J
If A > 0 Then
D = D + 1
End If
If (B + C = 12) And (B > 0) Then
X = X + 1
End If
If C = 12 Then
O = O + 1
End If
Next I
For I = 3 To 25
A = 0
B = 0
C = 0
For J = 2 To 13
If Sheets("10д").Cells(I, J).Value = 2 Then
A = A + 1
End If
If Sheets("10д").Cells(I, J).Value = 4 Then
B = B + 1
End If
If Sheets("10д").Cells(I, J).Value = 5 Then
C = C + 1
End If
Next J
If A > 0 Then
D = D + 1
End If
If (B + C = 12) And (B > 0) Then
X = X + 1
End If
If C = 12 Then
O = O + 1
End If
Next I
For I = 3 To 25
A = 0
B = 0
C = 0
For J = 2 To 13
If Sheets("11а").Cells(I, J).Value = 2 Then
A = A + 1
End If
If Sheets("11а").Cells(I, J).Value = 4 Then
B = B + 1
End If
If Sheets("11а").Cells(I, J).Value = 5 Then
C = C + 1
End If
Next J
If A > 0 Then
D = D + 1
End If
If (B + C = 12) And (B > 0) Then
X = X + 1
End If
If C = 12 Then
O = O + 1
End If
Next I
For I = 3 To 25
A = 0
B = 0
C = 0
For J = 2 To 13
If Sheets("11б").Cells(I, J).Value = 2 Then
A = A + 1
End If
If Sheets("11б").Cells(I, J).Value = 4 Then
B = B + 1
End If
If Sheets("11б").Cells(I, J).Value = 5 Then
C = C + 1
End If
Next J
If A > 0 Then
D = D + 1
End If
If (B + C = 12) And (B > 0) Then
X = X + 1
End If
If C = 12 Then
O = O + 1
End If
Next I
For I = 3 To 25
A = 0
B = 0
C = 0
For J = 2 To 13
If Sheets("11в").Cells(I, J).Value = 2 Then
A = A + 1
End If
If Sheets("11в").Cells(I, J).Value = 4 Then
B = B + 1
End If
If Sheets("11в").Cells(I, J).Value = 5 Then
C = C + 1
End If
Next J
If A > 0 Then
D = D + 1
End If
If (B + C = 12) And (B > 0) Then
X = X + 1
End If
If C = 12 Then
O = O + 1
End If
Next I
For I = 3 To 25
A = 0
B = 0
C = 0
For J = 2 To 13
If Sheets("11г").Cells(I, J).Value = 2 Then
A = A + 1
End If
If Sheets("11г").Cells(I, J).Value = 4 Then
B = B + 1
End If
If Sheets("11г").Cells(I, J).Value = 5 Then
C = C + 1
End If
Next J
If A > 0 Then
D = D + 1
End If
If (B + C = 12) And (B > 0) Then
X = X + 1
End If
If C = 12 Then
O = O + 1
End If
Next I
For I = 3 To 25
A = 0
B = 0
C = 0
For J = 2 To 13
If Sheets("11д").Cells(I, J).Value = 2 Then
A = A + 1
End If
If Sheets("11д").Cells(I, J).Value = 4 Then
B = B + 1
End If
If Sheets("11д").Cells(I, J).Value = 5 Then
C = C + 1
End If
Next J
If A > 0 Then
D = D + 1
End If
If (B + C = 12) And (B > 0) Then
X = X + 1
End If
If C = 12 Then
O = O + 1
End If
Next I
Sheets("справки").Cells(17, 17).Value = D
Sheets("справки").Cells(18, 17).Value = X
Sheets("справки").Cells(19, 17).Value = O
End Sub
Тексты всех программ даны в примечаниях ко второй части.