- •Одесская национальная академия пищевых технологий
- •Конспект лекций
- •Глава 1. Основные понятия информатики и компьютерной техники.
- •1.1. Информация и информатика
- •1. 2. Устройства, характеристики и программное обеспечение пк
- •Основные характеристики современных пк
- •Программное обеспечение пк
- •3. Файловая система организация данных
- •Project.Vbp - проект Visual Basic;
- •1.4. Операционная система Windows
- •1.5. Пользовательский графический интерфейс
- •Окна в Windows
- •Глава 2. Обзор ресурсов и управление в Windows
- •2.1. Главное меню рабочего стола и справочная система
- •Справочная система Windows
- •2.2. Программа Проводник для работы с папками и файлами
- •2.3. Работа с папками в окне Проводник
- •2.4. Работа с файлами в окне Проводник
- •Глава 3. Текстовой редактор Word.
- •3.1. Создание и сохранение документа.
- •Ввод текста
- •Выделение текста
- •Сохранение документа
- •Установка гарнитуры и размера шрифтов
- •Ввод символов
- •3.3. Редактирование текста страницы
- •Удаление, копирование, перемещение и вставка текста
- •Вставка текста из другого документа
- •3.4. Колонки и таблицы в Word Расположение текста колонками
- •Создание таблицы
- •Глава 4. Формульный редактор и графика в Word
- •4.1 Формульный редактор
- •Создание гиперссылки
- •Графика в Word Графические объекты - рисунки, фотографии, диаграммы и пр. В документах Word часто используется различного вида графика:
- •4.2. Работа с рисунками
- •Меню вставки рисунка
- •Глава 5. Табличный процессор ms Excel
- •5.1. Рабочие книги, листы и окно Excel
- •5.2. Некоторые операции над рабочей книгой и листами
- •Операции над рабочим листом
- •Выделение элементов листа
- •Работа с ячейками
- •5.3. Типы данных в Excel и их ввод
- •5.4. Арифметические и логические выражения в Excel
- •Глава 6. Вычисления в Excel
- •6.1. Абсолютные, относительные и смешанные адреса
- •6.2. Стандартные функции
- •Мастер функций
- •6.3. Логические функции если в Excel
- •Пример применения функции если
- •6.4. Функции обработки текстовых данных: Функции найти и поиск
- •Функции правсимв и левсимв
- •Функции сжпробелы и печсимв
- •Функция пстр
- •Функции заменить и подставить
- •Функция повтор
- •Функция значен Функция значен преобразует строку текста, отображающую число, в число. Синтаксис:
- •6.5. Работа с датами Как вводить даты и время в Excel
- •Быстрый ввод дат и времени
- •Как Excel хранит и обрабатывает даты и время
- •Количество дней между двумя датами
- •Количество рабочих дней между двумя датами
- •Сдвиг даты на заданное количество дней
- •Сдвиг даты на заданное количество рабочих дней
- •Вычисление дня недели
- •Как посчитать сколько дней в месяце
- •Глава 7. Диаграммы в Excel и решение прикладных задач
- •7.1. Мастер диаграмм
- •7.2. Построение диаграммы типа Поверхность
- •7.3. Редактирование построенной диаграммы
- •7.4. Решение нелинейных уравнений в Excel
- •7.5. Вычисления по итерационным формулам
- •Глава 8. Обработка статистических данных в Excel
- •8.1. Некоторые понятия математической статистики
- •8.2. Генерация случайных чисел и построение гистограмм
- •Построение гистограмм
- •8.3. Описательная статистика
- •Глава 9. Работа с базами данных в Excel
- •9.1. Основные понятия и правила создания бд
- •Номер первой записи
- •Сортировка записей в бд по критериям
- •9.2. Применение команды Автофильтр Команда Автофильтр выполняет отбор записей по критериям одного поля.
- •Дополнительные пункты раскрывающегося списка команды Автофильтр : Все, Первые 10 , Условие…:( рис. 9.3)
- •9.3. Применение команды Расширенный фильтр
- •Глава 10. Алгоритмизация вычислительных процессов Этапы решения инженерных задач на пк
- •10.1. Алгоритм и его свойства
- •Типы алгоритмических структур
- •10.2. Линейные и разветвляющиеся алгоритмы
- •10.3. Простые циклические алгоритмы
- •10.4. Циклические алгоритмы обработки массивов
- •Двумерные массивы
- •А) ввод по строкам в) ввод по столбцам
- •Глава 11. Система программирования Visual Basic for Applications (vba)
- •11.1. Основные положения
- •11.2. Некоторые определения
- •Стандартный модуль (Module)
- •11.3. Запуск и элементы окна редактора vba
- •Глава 12. Пример создания проекта в vba и типы данных
- •12.1. Порядок действий на пк при создании проекта
- •12.2. Элементы языка vba
- •Данные в vba
- •12.3. Описание переменных
- •Глава 13. Выражения в vba и ввод – вывод данных
- •13.1. Выражения в vba
- •13.2. Операторы присваивания и способы ввода данных Оператор присваивания
- •Способы ввода данных
- •Для ввода
- •13.3. Способы вывода данных
- •Глава 14. Организация разветвляющихся программ
- •14.1. Операторы управления goto, if
- •Условный оператор управления if
- •14.3. Оператор выбора Select Case
- •Глава 15. Организация циклических программ в vba
- •15.1. Простые циклические программы с оператором if
- •15.2. Оператор цикла For ... Next
- •15.3. Операторы циклов типа Do (выполнить)
- •Использование операторов Do While и Do Until для организация цикла с защитой входа
- •Использование операторов Do While и Do Until для организация цикла с свободным входом в цикл (с послеусловием) Организация цикла с проверкой условия в конце цикла
- •Глава 16. Массивы данных в vbа
- •16.2. Примеры обработки одномерных массивов
- •Сортировка числовых одномерных массивов
- •Алгоритм сортировки одномерного массива по возрастанию
- •16.3. Двумерный массив
- •Программа
- •Глава 17. Пользовательские процедуры типа Sub и Function в vba
- •17.1. Подпрограммы
- •Вызов подпрограммы процедуры Sub
- •2 Способ.
- •17.3. Подпрограмма - процедура Function
- •Вызов подпрограммы - процедуры Function
- •Глава 18. Решение оптимизационных задач
- •18.1. Обработка электронных таблиц в среде vba
- •18.2. Применение процедуры Поиск решения для решения линейных оптимизационных задач
- •18. 3. Подготовка эт
- •Список литературы
- •Содержание
14.3. Оператор выбора Select Case
Для решения поставленной задачи удобно использовать оператор выбора Select Case. Синтаксис оператора Select Case:
Select Case селектор
Case 1-й установленный диапазон значений селектора : оператор 1
Case 2-й установленный диапазон значений селектора : оператор 2
-----------------------------------------------
Case n- й установленный диапазон значений селектора : оператор n
Case Else: оператор n+1
End Select
Селектор – переменная, значение которой до входа в оператор Select Case должно быть известно. Если это значение совпадает с 1-м установленным заранее диапазоном значений, то выполняется оператор 1 и управление передается на End Select. Если значение не совпадает, происходит сравнение со вторым диапазоном и т.д.
Способы
задания установленного значения
селектора: Перечнем
значений через запятую (например: Case
2,5,8 ...) Диапазоном
значений ( Case
2 to
10) Ключевым
словом Is,
справа от которого записывается
оператор отношения, например, Case
is
< 2.
Запишем процедуру отклика командной кнопки CommandButton1 для решения данной задачи:
Private Sub CommandButton1_Click()
Dim x, y As Single 'Объявление типов переменных Х и Y
x = Val(InputBox(" Введите значение х ")) ' Ввод текущего значения Х
Select Case x ' Начало оператора Select Case
Case 1,3,5,6: y=sin(x)
Case 8 to 10 : y=Tan(x)
Case 15 to 20: y=Log(x)
Case is >30: y=x^2.5
Case Else: y=0 ' В остальных случаях
End Select ' Конец оператора Select
MsgBox “y=” & y
End Sub
Пример 14.4. По вводимым буквам русского алфавита А, Б, Д вывести слова Одесса, Николаев, Херсон. Сделать контроль ввода.
Private Sub CommandButton2_Click()
Dim x, y As String 'Объявление типов переменных Х и Y
x = InputBox(" Введите заданный символ") 'Ввод текущей буквы
Select Case x ' Начало оператора Select Case
Case “А“: y = " Одесса "
Case “Б“ : y = " Николаев "
Case “Д“: y = " Херсон "
Case Else: MsgBox " Ошибочный ввод" ' Проверка ввода
End Select ' Конец оператора Select
MsgBox y
End Sub
Глава 15. Организация циклических программ в vba
15.1. Простые циклические программы с оператором if
Пример 15.1. Составить программу для решения задачи табулирования функции у=х2 при х=xn, xk, dx т.е. параметр цикла х изменяется от xn до xk с шагом dx.
Используем простой циклический алгоритм (глава 10. рис. 10.5,а ).
Процедура отклика командной кнопки
Private
Sub CommanButton1_Click Dim
x, y, xn, xk, dx As Single xn=-1:
xk=1: dx=0.2 x=xn 1:
y=x^2 Debug.Print
“ x= “; x ; “ y=”; y x=x+dx If
x<=xk Then GOTO 1 End
Sub
Алгоритм и программа могут быть представлены более компактно, если применить блок модификации и соответствующий ему оператор цикла For ..Next.