visual Basic For Application

11.2. Алфавит и лексемы языка

1.3. Типы данных, программирование линейного

1-я неделя
Л-1. Visual Basic – объектно-ориентированный язык программирования. Концепция визуального программирования

15-я неделя
Л-8. Проектирование экранных форм. Использование объектов: Label, TextBox, ListBox, FileListBox,

Литература:
Информатика: Учебник/Под ред. Проф. Н.В. Макаровой. – М.:Финансы и статистика, 2000.
     

1.1. Общие сведения
    В Windows, как правило, программы имеют стандартный интерфейс

В основе ООП лежат три принципа: инкапсуляции, наследования и полиморфизма.
Принцип инкапсуляции

Программный объект в ООП называется «контейнером». Контейнер включает в себя данные

В объектно-ориентированной среде с любым объектом сопоставляется определённая совокупность действий. Выбор

В ООП один объект посылает сообщение другому, который при получении сообщения

Приложение – это набор инструкций, заставляющий компьютер выполнять задачу. Структура приложения

Событие – это действие, распознаваемое формой или элементом управления. Каждая форма

При запуске Visual Basic его первый экран будет выглядеть так, как

Home

Рисунок 1. Первый экран при запуске Visual Basic.

 
Рисунок 2. Первоначальное состояние среды разработки Visual Basic

Home

1.2. Алфавит и лексемы языка
Как и любой другой язык, Visual Basic

При запуске Редактора кода (Code Editor) появляется окно, в котором можно

Лексемы языка Visual Basic. Программирование линейного вычислительного процесса

Лексема — это единица текста программы, которая имеет определенный смысл для

Visual Basic накладывает на имена следующие ограничения:
• имя должно начинаться с

Примеры имен переменных:

Home

 
В Visual Basic, как и в других языках программирования, есть

Таблица 1.1

Home

Существуют соглашения по стилю имен, которых желательно придерживаться:
• идентификатор должен понятным

Длинное целое (Long) – занимает четыре байта памяти;
Короткое целое (Byte) –

Переменные — это объекты, предназначенные для хранения данных. В разные моменты

Имя переменной представляет логический уровень. Оно однозначно связывает переменную с некоторой

Dim intLen As integer 'объявляется целочисленная переменная
Private Sub Form_Load ()
intLen =

Пример 2:
Option Explicit ‘запрещение запуска программы при наличие в ней неописанных

Константы — это объекты, значения которых остаются постоянными и не могут

.
Область видимости переменной задается при ее декларации одним из ключевых слов:

Различают динамические и статические переменные. Статические переменные объявляются внутри процедуры или

2.2. Встроенные функции Visual Basic
Встроенные функции VB обеспечивают сложные виды обработки

Randomise — генератор случайных чисел;
Rnd() — случайное число в интервале [0,1].

Арифметическое выражение в Visual Basic

Арифметическое выражение – это последовательность чисел,

Составить программу для вычисления результата по формуле:

Private Sub Форма1_Click()
Dim X As Single, Y As Double
X = Val(Текст1)
Y

При программировании часто приходится выводить информацию непосредственно на форму с помощью

В ситуации, когда необходимо продолжать печатать значения в той же строке,

Алгоритмизация

Алгоритм и его свойства

Алгоритм – это конечная последовательность предписаний однозначно определяющих

Алгоритм и его свойства

Блок – схемой называется наглядное графическое представление изображения

Язык блок-схем

Начало

Блок - конец/начало, используется для обозначения конца или начала

Язык блок-схем

Блок – подготовка (модификатор), используется для обозначения заголовка цикла

Блок

Требования к изображению блок-схем

Блок-схемы алгоритмов, как и любая техническая документация должны

Алгоритм решения квадратного уравнения

Начало

а,b,с

D=b2-4ac

а=0

b=0

c=0

D>0

Действ. к.
нет

1

X1,2

X=-c/b

Мн-во реш.

Нет решения

конец

1

1

да

да

да

нет

нет

нет

нет

да

x

1

Ax2+Bx+C=0

Текст модуля

Private Sub Комманда1_Click()
a = Val(Текст1)
b = Val(Текст2)
c = Val(Текст3)
Текст4 =

Текст модуля (продолжение)

If b <> 0 Then
x = -c / b:

Базовые алгоритмы циклической структуры

i=i+1

ai,n

Сумма

S=S+ai

S

i

конец

нет

да

i=1..n

S=S+ai

S

S=0

i>n

Базовые алгоритмы циклической структуры

Максимум

ai,n

Мax=a1:im=1
i=1..n

ai>Max

Мax=ai:im=i

Max,im

конец

да

нет

Счётчик

ai,n,p,l

K=0

i=1..n

l

K=k+1

k

конец

нет

да

Программирование разветвляющихся процессов

Условный оператор

Алгоритмы, в которых последовательность выполняемых действий зависит от выполнения проверяемых

Условный оператор

Условное выражение – это простое или сложное условие в состав,

Условный оператор

Задача: Найти сумму бесконечного числового ряда с заданной точностью ε,

Пример программы

Private Sub Комманда1_Click()
n = 1: v = 1: s =

Оператор выбора Select Case

Условный оператор при многократном вложение применять не рекомендуется

Оператор выбора Select Case

Задача: Преподаватель за каждую решённую на контрольной работе

Программный код должен содержать 5 одинаковых процедур для 5 событий

Sub Summa(v1%, v2%, v3%, v4%, v5%, s%, m%)
s% = -(v1% *

Private Sub Проверка1_Click()
v1% = Проверка1.Value: v2% = Проверка2.Value
v3% = Проверка3.Value: v4%

Системные функции, функции RND, Timer, IIf

К системным функциям относятся функции, действие которых напрямую зависит от работы

Окно ввода

Результат

Private Sub CommandButton1_Click()
Dim Fam, Im, Ot As String
Fam = InputBox("Введите Вашу

Функция MsgBox служит для выдачи сообщения пользователю через системное окно.
Синтаксис функции

 
Значение ОР2 определяет набор кнопок в Окне сообщения:
0 – ОК; 1

Простая экранная форма – приветствие приведена на рисунке. В этом окне

Рассмотрим использование ещё нескольких функций: датчика случайных чисел, счётчика времени и

Private Sub Комманда1 _Click()
Randomize Timer
Dim Ver As Single: Ver = Rnd
Текст1

Программирование циклических процессов

Объявление массивов
В VBA различают два вида переменных — простые переменные и

Пример:
Dim strMyArray () As String 'объявление динамического масива
Dim intValarray As integer

Для того, чтобы организовать повторение операций используют оператор цикла For-Next. Оператор

Задача 1:
Вычислить факториал от числа. Число заносится в текстовое поле 1,

Задача2: Сумма элементов массива

Private Sub Комманда1 _Click()
Dim MyArray As Single
Dim intValarray

Задача 3.
Разработать приложение, реализующее табулирование функции y=1,2sin(3x) при изменении аргумента х

Результат работы программы для x0=0, xk=2, h=0.25 представлен на рисунке.

Программирование циклических процессов (продолжение)

Программирование циклических процессов (продолжение)

Электронная форма для задачи поиск максимального элемента в одномерном массиве.

Private Sub Комманда1_Click()
Dim MyArray As Single
Dim intValarray As Integer
intValarray =

Сортировка методом «пузырька»

Текст модуля: Сортировка
Private Sub Комманда1_Click()
Dim a(1 To 10) As Integer
Randomize Timer
For

Пользовательское меню программы формирования и транспонирования матрицы.

Private Sub Комманда1_Click()
Dim tr, tc As Integer : Dim s As

Пользовательское меню программы формирования матрицы и вычисления сумм элементов столбцов.

Private Sub Комманда1_Click()
Dim tr, tc, i, j As Integer : Dim

3) Условие False в начале цикла.
Структура:
Do Until <условие>
<блок операторов>
Exit Do
<блок

Условие проверяется в конце цикла. Цикл прекращается, когда условие станет истинным.
Пример:
Do

Пример программы на использование цикла с условием. Расчёт количества расфасованных пакетов.
Private

Цикл For Each. Оператор относится к категории объектных операторов, т.е. применяется

Формула линейной интерполяции

yn=y1+(y2-y1)*(xn-x1)/(x2-x1)

x1

xn

x2

y1

y2

yn

Пример программы с оператором For Each.

Function intl (arrx; arry; x_new)
Dim

For i=1 to n-1
If x(i) <= x_new And x(i+1)>= x_new Then

Использование процедур в VB

Программные модули на VB состоят из процедур. Использование процедур упрощает программирование,

В противоположность ей процедура обработки события после вызова остаётся в ожидания

Home

Если имя процедуры уникально, то включать имя модуля в вызов

Возвращаемое процедурой Function значение присваивается переменной с именем процедуры.
Обычно процедуре для

Home

Ключевое слово ByVal служит признаком того, что параметр передаётся по значению.

Home

Private Sub Комманда1_Click()
Dim M, Y As Single
Dim a, b, c, l

Function arcsin(x)
arcsin = Atn(x / Sqr(1 - x * x))
End Function

Home

Home

Использование файлов в Visual Basic

Работа с файлами в языке Visual Basic
Информация, которая вводится и

Следовательно, для ввода и вывода данных в файл имеет значение не

Важнейшим атрибутом файла является его имя. Имя файла состоит из имени

Операторы и функции для работы с файлами последовательного доступа
OPEN —

Формат записи оператора:
OPEN имя файла[FOR режим]As[ # дескриптор
файла]
где: имя файла может

Оператор CLOSE # [список дескрипторов файлов] —закрывает все файлы, идентификаторы которых

Пример:
Запишем программу, которая помещает все фамилии, имена и даты рождения

Записывать данные в текстовый файл можно двумя способами с помощью операторов

Пример результата для оператора Write:
“Иванов”,”Иван”, 1986
“Петров”,”Петр”, 1984
“Сидоров”,”Николай”, 1985
Пример результата для оператора

В качестве примера запишем программу, которая помещает в объект Text1 класса

Разработать приложение, в котором необходимо: создать список группы студентов с указанием

Программный код для приложения можно записать так:
Private Sub Command1_Click() ' Кнопка

Private Sub Command2_Click() ' Кнопка Чтение из файла
Dim kol_sym As Integer
Open

Do Until EOF(2)
Input #2, fam, im, ball
kol = kol

Home