- •Введение. Установка среды программирования
- •2. История языка Basic
- •3. Установка Visual Basic
- •Лабораторная работа №1. Интерфейс Visual Basic. Создание первого проекта
- •Теоретическая часть
- •1 . Первое знакомство
- •5. Стандартная панель инструментов
- •Практическая часть
- •Лабораторная работа №2. Изменение свойств компонентов. Метод Print
- •Теоретическая часть
- •1. Состав панели управления
- •2. Окно свойств и редактора кода
- •3. Свойства элементов управления
- •3.1 Свойства элемента Form
- •3.2 Свойства элемента TextBox
- •3.3. Свойства компонента CommandButton
- •Объект.Print [Список вывода]
- •Объект.Cls Практическая часть
- •Лабораторная работа №3. Работа с простейшим графическим объектом Visual Basic
- •Теоретическая часть
- •Практическая часть
- •Лабораторная работа №4. Работа с арифметическими выражениями и функциями
- •Теоретическая часть
- •1. Арифметические выражения Visual Basic.
- •2. Встроенные функции Visual Basic
- •3. Функции преобразования
- •Str (число)
- •Val (символьное выражение)
- •Практическая часть
- •Лабораторная работа №5. Решение простейших математических задач с использованием линейных алгоритмов
- •Теоретическая часть
- •1. Типы данных
- •2. Объявление переменных
- •Public / Private / Dim Имя_переменной [As Тип_переменной]
- •Оператор_объявления_типа Строка_интервалов_имен
- •3. Константы Visual Basic
- •4. Область видимости переменной
- •Public / Private / Dim Имя_переменной [As Тип_переменной]
- •Имя_формы.Имя_переменной
- •Практическая часть
- •Лабораторная работа №6. Программирование ветвлений с использованием оператора If
- •Теоретическая часть
- •1. Конструкция If … Then … End If
- •2. Конструкция If … Then … Else … End If
- •3. Конструкция If … Then … Else If… End If
- •Практическая часть
- •Лабораторная работа №7. Программирование ветвлений с использованием оператора Case
- •Теоретическая часть
- •Практическая часть
- •Лабораторная работа №8. Программирование циклов
- •Теоретическая часть
- •1. Цикл For…Next
- •2. Цикл For Each … Next
- •3. Цикл Do While … Loop
- •4. Цикл Do Until … Loop
- •5. Цикл Do … Loop While
- •6. Цикл Do … Loop Until
- •7. Цикл While … Wend
- •Практическая часть
- •Лабораторная работа №9. Разработка приложений для обработки массивов
- •Теоретическая часть
- •1. Объявление массивов
- •2. Массивы с фиксированной границей и динамические массивы.
- •UBound (имяМассива [, измерение]) Практическая часть
- •Лабораторная работа №10. Разработка приложений с использованием методов рисованИя графических примитивов
- •Теоретическая часть
- •1. Графическая поверхность
- •2. Графические примитивы
- •Практическая часть
- •Лабораторная работа №11. Построение графиков и диаграмм
- •Лабораторная работа №12. Применение пользовательских диалоговых окон
- •Теоретическая часть
- •1. Окно и функция InputBox
- •2. Окно MsgBox
- •MsgBox Текст сообщения [,Константа] [,Заголовок]
- •3. Функция MsgBox()
- •Практическая часть
- •Лабораторная работа №13. Разработка компьютерного теста с использованием Visual Basic
- •Теоретическая часть
- •Лабораторная работа №14. Создание пользовательского меню и панели инструментов
- •Теоретическая часть
- •Call Имя процедуры ([Список Параметров Вызова]),
- •Практическая часть
- •Лабораторная работа №15. Создание текстового редактора
- •Теоретическая часть
- •Практическая часть
- •Лабораторная работа №16. Разработка мультимедиа-приложений
- •Теоретическая часть
- •Практическая часть
- •Лабораторная работа №17. Макросы: запись, запуск, чтение
- •Теоретическая часть
- •Обычно макрос содержит следующие элементы.
- •Практическая часть
- •Лабораторная работа №18. Создание форм рабочего листа
- •Теоретическая часть
- •1. Когда необходимо использовать vba в Excel
- •2. Объект Application
- •3. Объект Workbook
- •4. Объект Worksheet
- •5. Объект Range
- •Инициализация и отображение диалогового окна
- •Практическая часть Создание пользовательской формы
- •Создание пользовательской формы
- •Практические задания по программированию на vba
- •Лабораторная работа №19. Создание книги лабораторных работ с автоматизированным выбором страниц книги
- •Практическая часть
- •Лабораторная работа №20. Моделирование процессов
- •Теоретическая часть
- •Лабораторная работа №21. Создание сводных таблиц в vba
- •Теоретическая часть Практическая часть
- •Лабораторная работа №22. Работа с компонентом Chart
- •Теоретическая часть Практическая часть
- •Лабораторная работа №23. Работа с базами данных в Visual Basic
- •Теоретическая часть Практическая часть
- •Лабораторная работа №24. Работа с базами данных в Excel с использованием Visual Basic
- •Теоретическая часть Практическая часть
- •Лабораторная работа №25. Обработка данных на рабочем листе Теоретическая часть Практическая часть
Лабораторная работа №6. Программирование ветвлений с использованием оператора If
Цель работы: рассмотреть структуру и синтаксис условного оператора If; изучить организацию ветвлений с использованием условного оператора; научиться применять условный оператор в создаваемых приложениях
Теоретическая часть
Часто необходимо, чтобы часть программы выполнялась бы только при выполнении определенных условий. Решение данной проблемы заключается в использовании специальных конструкций, использующих операторы ветвления.
1. Конструкция If … Then … End If
Общий вид конструкции выглядит следующим образом:
If <логическое выражение> Then
<список операторов>
End If
<логическое выражение> - это простое или сложное условие или логическая константа (true или false).
Простое условие имеет следующий вид:
<выражение1><операция сравнения><выражение2>
Возможны следующие операции сравнения:
a > b, a < b, a = b, a >= b, a <= b, a<> b
Сложное условие состоит из простых условий, соединенных логическими операциями AND или OR
Например, (a < b) AND (c >= d)
Алгоритм выполнения данной конструкции:
вычисляется значение логического выражения;
если значение логического выражения равно true, то выполняется список операторов;
если значение логического выражения равно false, то ничего не выполняется;
При использовании данной конструкции операторы If и Then должны обязательно находиться на одной строке.
Пример использования:
X = InputBox (“Введите число от 1 до 20”)
If x> 10 Then
a = x/10
End If
Print a
2. Конструкция If … Then … Else … End If
Общий вид конструкции выглядит следующим образом:
If <логическое выражение> Then
<список операторов 1>
Else
<список операторов 2>
End If
Алгоритм выполнения данной конструкции:
вычисляется значение логического выражения;
если значение логического выражения равно true, то выполняется список операторов 1;
если значение логического выражения равно false, то выполняется список операторов 2;
Пример использования:
X = InputBox (“Введите число от 1 до 20”)
If x> 10 Then
a = x/10
Else
a = x*5
End If
Print a
3. Конструкция If … Then … Else If… End If
Данная конструкция позволяет организовывать несколько вложенных друг в друга операторов If. Общий вид конструкции выглядит следующим образом:
If <логическое выражение 1> Then
<список операторов 1>
ElseIf <логическое выражение 2> Then
<список операторов 2>
ElseIf <логическое выражение N> Then
<список операторов N>
End If
Алгоритм выполнения данной конструкции:
вычисляется значение логического выражения;
если значение логического выражения 1 равно true, то выполняется список операторов 1;
если значение логического выражения 1 равно false, то выполняется список операторов 2;
если значение логического выражения 2 равно true, то выполняется список операторов 2;
если значение логического выражения 2 равно false, то выполняется список операторов 3;
если значение логического выражения N равно true, то выполняется список операторов N;
если значение логического выражения N равно false, то ничего не выполняется.
Пример использования:
X = InputBox ("Введите целое число A")
If a=1 Then
b = 10
c = b + 20
ElseIf a = 2 Then
b = 20
c = b + 30
ElseIf a = 3 Then
b = 30
c = b + 40
End If
Print c