Microsoft Excel. От основ к задачам обработки и представления данных. Степанченко И.В. - 123 стр.

           Dim Count3 As Integer         ' Число троек
           Dim Count4 As Integer         ' Число четверок
           Dim Count5 As Integer         ' Число пятерок

    Объявляются переменные, которые будут содержать общее чис-
ло оценок, число двоек, троек, четверок, пятерок.

            ' Выводим начальный размер минимальной стипендии
              Label40.Caption = SpinButton1.Value
            ' Выводим начальный размер повышенной стипендии
              Label41.Caption = SpinButton2.Value
            ' Выводим начальный размер именной стипендии
              Label42.Caption = SpinButton3.Value
    Выводим значения объектов класса «Счетчик» на экран. Данные
значения будут содержать объекты класса «Надпись», расположен-
ные рядом. Обратите внимание на то, как осуществляется доступ к
свойствам объекта. Он производится через точку. Несмотря на то, что
свойство Value является числом, а Caption текстом, преобразование
типов данных не нужно. Откуда взять название объектов класса
«Надпись» – из окна свойств, там необходимо посмотреть главное
свойство любого объекта – Name.

       ' Обнуляем количество оценок
       Count2 = 0: Count3 = 0: Count4 = 0: Count5 = 0
       Count_Of_Note = 0

      ' Обнуляем количество студентов
      Student2 = 0: Student3 = 0: Student4 = 0: Student5 = 0

       ' Просмотрим каждую ячейку в диапазоне двоек
       For Each Obj In Worksheets("Сессия").Range("ao17:ao316")
          Count2 = Count2 + Obj.Value ' Суммируем число двоек

       ' Считаем двоечников
       If Obj.Value > 0 Then
           Student2 = Student2 + 1
        End If
      Next Obj
Код участка программы можно выразить следующей блок-схемой
(рис. 84).
                                   125