|
|
Dim min As Single, max As Single, x As Single
Рис. 7.1 − Образец оформления программы расчета температуры Процедура для кнопки «Среднее значение» (расчет средней температуры): Private Sub CommandButton1_Click() i = 6 Do Until Worksheets("Лист1").Cells(i, 4) = "" i = i + 1 Loop Ndata = i – 1 ‘ количество расчетных дней ‘Вычисление суммарной температуры sum = 0 ‘ ячейка с именем Sum обнуляется ‘ цикл для просмотра всех строк таблицы For i = 7 To Ndata x = Worksheets("Лист1").Cells(i, 4) ‘ ввод значения температуры из i-той строки 4-го столбца sum = sum + x ‘суммирование значений температуры Next i mx = sum / (Ndata - 6) ‘определение среднего значения Worksheets("Лист1").Cells(Ndata + 2, 4)="Средняя температура" Worksheets("Лист1").Cells(Ndata + 2, 7) = mx End Sub Для кнопки «min» (расчет минимальной температуры) процедура имеет вид: Private Sub CommandButton2_Click() Dim l as Integer min = Worksheets("Лист1").Cells(Ndata - 6, 4) l=7 ‘ номер строки, с которой начинается таблица For i = 7 To Ndata x = Worksheets("Лист1").Cells(i, 4) If x < min Then min = x l=i ‘ запоминание номера строки с минимальной температурой End If Next i Worksheets("Лист1").Cells(Ndata+3,4)="Минимальная температура" Worksheets("Лист1").Cells(Ndata + 3, 7) = min Worksheets("Лист1").Cells(Ndata + 3, 9) = "Была " Worksheets("Лист1").Cells(Ndata + 3, 10) = Cells(l, 3) End Sub В данной процедуре переменной min присваивается значение температуры из первой строки таблицы. Затем каждое очередное значение сравнивается со значением min. Если очередное значение температуры оказывается меньше min, то это число посылается в min. Процедура для кнопки «max» (расчет максимальной температуры): Private Sub CommandButton3_Click() min = Worksheets(" Лист1 ").Cells(Ndata - 6, 4) For i = 7 To Ndata x = Worksheets(" Лист1 ").Cells(i, 4) If x > max Then max = x Next i Worksheets(" Лист1 ").Cells(Ndata + 4, 4) = «Максимальная температура " Worksheets(" Лист1 ").Cells(Ndata + 4, 7) = min End Sub Для кнопки «>0 и <0» (расчет количества дней с положительной и отрицательной температурой): Dim k1 As Integer, k2 As Integer k1 = 0: k2 = 0 For i = 7 To Ndata x = Worksheets(" Лист1 ").Cells(i, 4) ‘ расчет количества дней с положительной температурой k1 и отрицательной температурой k2 If x > 0 Then k1 = k1 + 1 Else k2 = k2 + 1 Next Worksheets(" Лист1 ").Cells(Ndata + 5, 4) = _ «Кол.дней с плюсовой темп." Worksheets(" Лист1 ").Cells(Ndata + 5, 7) = k1 Worksheets(" Лист1 ").Cells(Ndata + 6, 4) = _ " Кол.дней с минусовой темп." Worksheets(" Лист1 ").Cells(Ndata + 6, 7) = k2 End Sub Содержание заданий 1. Разработать программу по условиям, приведенным в табл. 7.1. 2. Создать кнопку «Сумма» и написать программу, вычисляющую сумму элементов массива из табл. 7.1. 3. Для командной кнопки «Произведение» создать и выполнить программу, вычисляющую произведение элементов массива. 4. Для командной кнопки «Максимум» создать и выполнить программу, вычисляющую максимальный элемент массива. Таблица 7.1
5. Выполнить приведенный выше пример программы расчета температуры воздуха. 6. Разработать и оформить на рабочем листе программу по условиям задач, данным ниже. Проверить полученный результат с помощью формул Excel. · Известен возраст 10 человек. Определить сколько из них могут рассматриваться в качестве претендентов при приеме на работу в фирму, если по условиям приема возраст претендента не должен превышать 40 лет. · Известна информация о багаже (количество вещей и общий вес багажа) 10 пассажиров. Найти число пассажиров, имеющих более двух вещей. · Известны места занятые футбольной командой в течении последних 10 лет. Определить сколько раз эта команда была призером чемпионата (призерами считаются команды, занявшие первые три места). ФОРМЫ ПОЛЬЗОВАТЕЛЯ Управление электронными документами в Excel может производиться с помощью вспомогательных окон, которые называются пользовательскими формами UserForms.   Что делает отдел по эксплуатации и сопровождению ИС? Отвечает за сохранность данных (расписания копирования, копирование и пр.)...  ЧТО ТАКОЕ УВЕРЕННОЕ ПОВЕДЕНИЕ В МЕЖЛИЧНОСТНЫХ ОТНОШЕНИЯХ? Исторически существует три основных модели различий, существующих между...  Конфликты в семейной жизни. Как это изменить? Редкий брак и взаимоотношения существуют без конфликтов и напряженности. Через это проходят все...  ЧТО И КАК ПИСАЛИ О МОДЕ В ЖУРНАЛАХ НАЧАЛА XX ВЕКА Первый номер журнала «Аполлон» за 1909 г. начинался, по сути, с программного заявления редакции журнала... Не нашли то, что искали? Воспользуйтесь поиском гугл на сайте:
|
