Составители:
127
' Просмотрим каждую ячейку в диапазоне пятерок
For Each Obj In Worksheets("Сессия").Range("ar17:ar316")
Count5 = Count5 + Obj.Value ' Суммируем число пятерок
' Считаем отличников
If Obj.Value = 12 Then
Student5 = Student5 + 1
End If
Next Obj
Число отличников можно найти как сумму студентов имеющих
число пятерок равное количеству предметов (в нашем случае 12).
Число троечников определяется сложнее, так как у "потенциального"
троечника (число троек не равно нулю) могут быть двойки. Число
хорошистов тоже определяется сложнее по той же причине.
' Число оценок равно сумме 2,3,4,5
Count_Of_Note = Count2 + Count3 + Count4 + Count5
Label13.Caption = Count_Of_Note ' Выводим на экран число оценок
Label14.Caption = Count2 ' Выводим количество двоек
Label15.Caption = Count3 ' Выводим количество троек
Label16.Caption = Count4 ' Выводим количество четверок
Label17.Caption = Count5 ' Выводим количество пятерок
' Вычисление процентов
' Процент двоек
Label18.Caption = Format(Count2 / Count_Of_Note, "0.00%")
Функция Format осуществляет преобразование числа в опреде-
ленный формат. В данном случае функция Format преобразует число
к процентному формату (умножает на 100) с двумя знаками после за-
пятой – "0.00%").
' Процент троек
Label19.Caption = Format(Count3 / Count_Of_Note, "0.00%")
' Процент четверок
Label20.Caption = Format(Count4 / Count_Of_Note, "0.00%")
' Процент пятерок
Label21.Caption = Format(Count5 / Count_Of_Note, "0.00%")
' Просмотрим каждую ячейку в диапазоне оценок
For i = 17 To 316
' Считаем троечников
If Worksheets("Сессия").Range("ao" + Trim(Str(i))) = 0 And _
' Просмотрим каждую ячейку в диапазоне пятерок For Each Obj In Worksheets("Сессия").Range("ar17:ar316") Count5 = Count5 + Obj.Value ' Суммируем число пятерок ' Считаем отличников If Obj.Value = 12 Then Student5 = Student5 + 1 End If Next Obj Число отличников можно найти как сумму студентов имеющих число пятерок равное количеству предметов (в нашем случае 12). Число троечников определяется сложнее, так как у "потенциального" троечника (число троек не равно нулю) могут быть двойки. Число хорошистов тоже определяется сложнее по той же причине. ' Число оценок равно сумме 2,3,4,5 Count_Of_Note = Count2 + Count3 + Count4 + Count5 Label13.Caption = Count_Of_Note ' Выводим на экран число оценок Label14.Caption = Count2 ' Выводим количество двоек Label15.Caption = Count3 ' Выводим количество троек Label16.Caption = Count4 ' Выводим количество четверок Label17.Caption = Count5 ' Выводим количество пятерок ' Вычисление процентов ' Процент двоек Label18.Caption = Format(Count2 / Count_Of_Note, "0.00%") Функция Format осуществляет преобразование числа в опреде- ленный формат. В данном случае функция Format преобразует число к процентному формату (умножает на 100) с двумя знаками после за- пятой – "0.00%"). ' Процент троек Label19.Caption = Format(Count3 / Count_Of_Note, "0.00%") ' Процент четверок Label20.Caption = Format(Count4 / Count_Of_Note, "0.00%") ' Процент пятерок Label21.Caption = Format(Count5 / Count_Of_Note, "0.00%") ' Просмотрим каждую ячейку в диапазоне оценок For i = 17 To 316 ' Считаем троечников If Worksheets("Сессия").Range("ao" + Trim(Str(i))) = 0 And _ 127
Страницы
- « первая
- ‹ предыдущая
- …
- 123
- 124
- 125
- 126
- 127
- …
- следующая ›
- последняя »