- •Глава 1. Знакомство с Microsoft Visual Basic 6.0. 5
- •Глава 2. Визуальное программирование. 13
- •Глава 3. Событийное программирование. 18
- •Глава 4. Типы данных, константы и переменные. 23
- •Глава 5. Основы программирования. 29
- •Глава 6. Массивы. 38
- •Глава 7. Стандартные элементы управления 43
- •Об учебнике
- •Структура книги
- •Обозначения
- •Глава 1. Знакомство с Microsoft Visual Basic 6.0.
- •Обзор Visual Basic 6.0
- •Область применения Microsoft Visual Basic 6.0.
- •Запуск Visual Basic 6.0.
- •Интегрированная среда разработки (ide) Visual Basic 6.0
- •Главное меню
- •Стандартная панель инструментов
- •Панель элементов управления
- •Окно проводника проекта Project explorer
- •Конструктор форм
- •Окно свойств элементов управления (Properties)
- •Редактор кода
- •Окно просмотра объектов (Object Browser)
- •Окно отладчика (Immediate)
- •Глава 2. Визуальное программирование. Стандартные элементы управления.
- •Свойства элементов управления в режиме дизайна приложения1
- •Лабораторный практикум. Лабораторная работа 2.1. Создание элементов управление на форме.
- •Лабораторная работа 2.2. Работа со свойствами элементов управления в режиме дизайна проекта
- •Глава 3. Событийное программирование. Вступление
- •События элементов управления.
- •Свойства элементов управления в режиме выполнения приложения.2
- •Лабораторный практикум. Лабораторная работа 3.1.
- •Лабораторная работа 3.2. Работа со свойствами элементов управления в режиме выполнения приложения (Чтение свойств).
- •Лабораторная работа 3.3. Работа со свойствами элементов управления в режиме выполнения приложения (Изменение свойств).
- •Глава 4. Типы данных, константы и переменные. Типы данных в Visual Basic
- •Константы
- •Встроенные константы Visual Basic
- •Объявление констант
- •Переменные
- •Математические операторы
- •Лабораторный практикум Лабораторная работа 4.1. Инициализация переменных и констант.
- •Лабораторная работа 4.2. Использование математических операторов.
- •Лабораторная работа 4.3. Использование математических операторов для расчета математических формул.
- •Глава 5. Основы программирования. Управляющие операторы Visual Basic
- •Конструкция If... Then
- •Конструкция If... Then... Else
- •Конструкция Select Case
- •Операторы цикла
- •Цикл с использованием конструкции For..Next
- •Цикл с использованием конструкции Do...Loop
- •Цикл с использованием конструкции For Each... Next
- •Встроенные функции
- •Строковые функции:
- •Функции преобразования типа данных:
- •Математические функции:
- •Тригонометрические функции
- •Лабораторный практикум Лабораторная работа 5.1. Алгоритмы ветвления с применением оператора If.
- •Лабораторная работа 5.2. Алгоритмы ветвления с применением оператора Case.
- •Лабораторная работа 5.3. Циклы с применением оператора For…Next.
- •Лабораторная работа 5.4. Циклы с применением оператора Do…Loop.
- •Глава 6. Массивы. Массивы
- •Объявление массива фиксированного размера
- •Объявление динамического массива
- •Лабораторный практикум Лабораторная работа 6.1. Использование статических массивов.
- •Лабораторная работа 6.2. Использование динамических массивов.
- •Лабораторная работа 6.3. Операции с матрицами ### Глава 7. Стандартные элементы управления Элемент управления List Box
- •Добавление элементов в список
- •Удаление элементов из списка
- •Доступ к элементам списка
- •Элемент управления ComboBox
- •Стили отображения ComboBox
- •Добавление элементов в список типа ComboBox
- •Удаление элементов из списка типа СоmbоВох
- •Доступ к элементам списка
- •Элемент управления Timer
- •Элемент управления Frame
- •Создание группы элементов
- •Полосы прокрутки
- •Размещение полосы прокрутки и настройка свойств
Лабораторный практикум Лабораторная работа 6.1. Использование статических массивов.
Задание: В одномерном массиве из 100 элементов типа Long, заполненных случайным образом числами от 0 до 1000, найти минимальное и максимальное число.
Ход работы:
-
Запустите Microsoft Visual Basic 6.0 (см. Запуск Visual Basic 6.0.)
-
Выберите тип проекта StandardEXE и нажмите кнопку Открыть. Появится среда разработки Visual Basic. Должна быть доступна панель элементов управления (см. Панель элементов управления) и открыт конструктор форм (см. Конструктор форм)
-
Создайте на форме элементы управления, как показано на рисунке 6.1.
Рисунок 6.1. Элементы управления и их свойства к лабораторной работе 6.1.
-
Перейдите в редактор кода и напишите следующий код:
Private Sub cmdStart_Click()
Dim lngArray(1 To 100) As Long 'Массив
Dim lngCounter As Long 'Счётчик
Dim lngMin As Long 'Максимальный элемент массива
Dim lngMax As Long 'Минимальный элемент массива
'Инициализация генератора случайных чисел
Randomize -Time
'Заполнения массива случайными числами
For lngCounter = 1 To 100
lngArray(lngCounter) = Int(1000 * Rnd)
Next lngCounter
'Вывод содержимого массива в TextBox
txtArray.Text = ""
For lngCounter = 1 To 100
txtArray.Text = txtArray.Text & lngArray(lngCounter) & " "
Next lngCounter
lngMin = lngArray(1)
lngMax = lngArray(1)
For lngCounter = 2 To 100
If lngArray(lngCounter) < lngMin Then
lngMin = lngArray(lngCounter)
End If
If lngArray(lngCounter) > lngMax Then
lngMax = lngArray(lngCounter)
End If
Next lngCounter
MsgBox "Минимальный элемент массива равен:" & lngMax & vbCrLf & _
"Максимальный элемент массива равен:" & lngMin
End Sub
-
Запустите приложение.
Результат работы приложение: по клике на кнопку с надписью «Запуск», приложение заполняет массив случайными числами, заполняется TextBox с именем «txtArray» содержимым массива, в окне сообщений выводится максимальный и минимальный элемент массива.
Лабораторная работа 6.2. Использование динамических массивов.
Задание аналогичное лабораторной работе 6.1., но размер массива задается во время работы приложения из элемента управления класса TextBox.
Ход работы:
-
Запустите Microsoft Visual Basic 6.0 (см. Запуск Visual Basic 6.0.)
-
Выберите тип проекта StandardEXE и нажмите кнопку Открыть. Появится среда разработки Visual Basic. Должна быть доступна панель элементов управления (см. Панель элементов управления) и открыт конструктор форм (см. Конструктор форм)
-
Создайте на форме элементы управления, как показано на рисунке 6.2.
Рисунок 6.2. Элементы управления и их свойства к лабораторной работе 6.2.
-
Перейдите в редактор кода и напишите следующий код:
Private Sub cmdStart_Click()
Dim lngArray() As Long 'Массив
Dim lngArraySize As Long 'Размер массива
Dim lngCounter As Long 'Счётчик
Dim lngMin As Long 'Максимальный элемент массива
Dim lngMax As Long 'Минимальный элемент массива
'Установка размера массива
lngArraySize = txtArraySize.Text
ReDim lngArray(1 To lngArraySize)
'Инициализация генератора случайных чисел
Randomize -Time
'Заполнения массива случайными числами
For lngCounter = 1 To lngArraySize
lngArray(lngCounter) = Int(1000 * Rnd)
Next lngCounter
'Вывод содержимого массива в TextBox
txtArray.Text = ""
For lngCounter = 1 To lngArraySize
txtArray.Text = txtArray.Text & lngArray(lngCounter) & " "
Next lngCounter
lngMin = lngArray(1)
lngMax = lngArray(1)
For lngCounter = 2 To lngArraySize
If lngArray(lngCounter) < lngMin Then
lngMin = lngArray(lngCounter)
End If
If lngArray(lngCounter) > lngMax Then
lngMax = lngArray(lngCounter)
End If
Next lngCounter
MsgBox "Минимальный элемент массива равен:" & lngMax & vbCrLf & _
"Максимальный элемент массива равен:" & lngMin
End Sub
-
Запустите приложение.
Результат работы приложения: по клике на кнопку с надписью «Запуск», приложение заполняет массив случайными числами, заполняется TextBox с именем «txtArray» содержимым массива, в окне сообщений выводится максимальный и минимальный элемент массива.