Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
End Sub. В данной процедуре переменной min присваивается значение температуры из первой строки таблицыВ данной процедуре переменной 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 лет. Определить сколько раз эта команда была призером чемпионата (призерами считаются команды, занявшие первые три места).
|