Составители:
139
чение переменной Obj (текущая ячейка). Как только день обработан, пе-
ременная Count наращивает значение на единицу, а если это был послед-
ний день (т. е. Count стала равна 11 после добавления единицы), то пере-
менную Count снова делают равной 1.
Рассмотрим участок, где формируется список дней.
For i = 1 To 10
' Для получения среднего необходимо разделить сумму на
' число
лет наблюдения
' Заносим данные в список
ListBox1.AddItem "День " & i & ": " ' Первая колонка с названием дня
Для добавления новой строки в список используется метод AddItem
(он позволяет занести данные в первую колонку списка, если их не-
сколько). Объект ListBox1 имеет свойство ColumnCount равное четы-
рем, а свойство ColumnWidth равное 49.95 пт; 35 пт; 35 пт; 35 пт (при
задании свойства можно просто перечислять цифры через точку с за-
пятой без букв "пт" – пункт). Первое свойство задает число колонок, а
второе свойство их ширину (поэтому чисел четыре). Далее с помощью
свойства List задаются значения еще трех колонок первой строки.
' Вторая колонка со средним значением
ListBox1.List(i – 1, 1) = Format(StDay(i, 1) / 30, "0.00")
Обратите внимание, что счет строк в объекте класса «Список» начина-
ется с нуля, поэтому указывается номер строки как i –1. Следующий
параметр отражает номер колонки – 1 (счет тоже начинается с нуля).
Sum = Sum + StDay(i, 1) / 30 ' накапливаем сумму средних значений
' Третья колонка с максимальным значением
ListBox1.List(i – 1, 2) = StDay(i, 2)
' Ищем максимальное значение
If Max < StDay(i, 2) Then
Max = StDay(i, 2)
End If
' Четвертая колонка с минимальным значением
ListBox1.List(i – 1, 3) = StDay(i, 3)
' Ищем минимальное значение
If Min > StDay(i, 3) Then
чение переменной Obj (текущая ячейка). Как только день обработан, пе- ременная Count наращивает значение на единицу, а если это был послед- ний день (т. е. Count стала равна 11 после добавления единицы), то пере- менную Count снова делают равной 1. Рассмотрим участок, где формируется список дней. For i = 1 To 10 ' Для получения среднего необходимо разделить сумму на ' число лет наблюдения ' Заносим данные в список ListBox1.AddItem "День " & i & ": " ' Первая колонка с названием дня Для добавления новой строки в список используется метод AddItem (он позволяет занести данные в первую колонку списка, если их не- сколько). Объект ListBox1 имеет свойство ColumnCount равное четы- рем, а свойство ColumnWidth равное 49.95 пт; 35 пт; 35 пт; 35 пт (при задании свойства можно просто перечислять цифры через точку с за- пятой без букв "пт" – пункт). Первое свойство задает число колонок, а второе свойство их ширину (поэтому чисел четыре). Далее с помощью свойства List задаются значения еще трех колонок первой строки. ' Вторая колонка со средним значением ListBox1.List(i – 1, 1) = Format(StDay(i, 1) / 30, "0.00") Обратите внимание, что счет строк в объекте класса «Список» начина- ется с нуля, поэтому указывается номер строки как i –1. Следующий параметр отражает номер колонки – 1 (счет тоже начинается с нуля). Sum = Sum + StDay(i, 1) / 30 ' накапливаем сумму средних значений ' Третья колонка с максимальным значением ListBox1.List(i – 1, 2) = StDay(i, 2) ' Ищем максимальное значение If Max < StDay(i, 2) Then Max = StDay(i, 2) End If ' Четвертая колонка с минимальным значением ListBox1.List(i – 1, 3) = StDay(i, 3) ' Ищем минимальное значение If Min > StDay(i, 3) Then 139
Страницы
- « первая
- ‹ предыдущая
- …
- 135
- 136
- 137
- 138
- 139
- …
- следующая ›
- последняя »