- •© Королева е.М., Котельницкая л.И.
- •Типовые структуры алгоритмов и их реализация
- •Visual Basic содержит несколько отдельных окон, любое из них можно сделать “плавающим” путем перетаскивания строки заголовка по экрану Размеры можно изменить, перетаскивания их границы и углы.
- •Элементы управления
- •Image (изображение)
- •InputBox(строка_сообщение [, Заголовок_ окна] [, НачЗначение]),
- •Задания для самостоятельной работы
- •Блок-cхема алгоритма
- •Варианты контрольных работ для студентов заочной формы обучения
- •Второе задание
- •Блок-схема алгоритма
- •Третье задание
InputBox(строка_сообщение [, Заголовок_ окна] [, НачЗначение]),
где - НачЗначение – это значение, которое будет введено автоматически в поле ввода.
MsgBox(строка_сообщение [, опция] [, Заголовок_окна]),
где аргумент Опция = Ор1 + Ор2.
Значение Ор1 определяет вид сообщения и пиктограмму
-
Переменная Ор1
Вид сообщения
Пиктограмма
16
Критическое сообщение
Х
32
Вопрос
?
48
Предупреждение
!
64
Информация
i
Значение Ор2 определяет набор кнопок: 0 – ок, 1 – ок и отмена,
2 - прекратить, повторить и отмена, 3 – да, нет и отмена, 4 – да и нет,
5 - повторить и отмена.
ОСНОВНЫЕ ОПЕРАТОРЫ
Оператор присваивания:
< имя переменной > = < выражение >
Оператор безусловного перехода:
GoTo <метка>
Метка – произвольное имя, заканчивающееся двоеточием.
Оператор относится к числу устаревших, поэтому лучше, если можно
его избегать.
Условный оператор:
Однострочная форма:
If <условие> Then <операторы1> Else <операторы2>
Многострочная форма:
If <.условие> Then
< операторы1>
Else
< операторы2>
End If
Конструкции в квадратных скобках могут отсутствовать.
Оператор выбора:
Select Case <.переменная>
Case <значение1> : <операторы1>
. . .
Case <значениеN – 1> : <операторыN – 1>
Case Else : <операторыN> : End Select
Операторы цикла:
For < параметр цикла > = < Нач.Зн > To < Кон.Зн. > [Step < Зн.Ш >]
< операторы>
Next < параметр цикла >
(Зн.Шага по умолчанию равно +1,
Exit For – преждевременное прерывание цикла).
Do
<операторы>
Loop
(повторяется до тех пор, пока не встретится оператор: Exit Do)
Do While < условие >
< операторы >
Loop
Do
< операторы>
Loop While < условие >
Do Until < условие >
< операторы >
Loop
Do
< операторы>
Loop Until < условие >
ПРОЦЕДУРЫ И ФУНКЦИИ ОБЩЕГО НАЗНАЧЕНИЯ
(ПОЛЬЗОВАТЕЛЬСКИЕ)
Среди процедур различают процедуры обработки событий и процедуры
общего назначения.
Имя процедуры обработки событий должно состоять из имени объекта и
имени события, разделенные символом подчеркивания.
Заголовок описания пользовательской процедуры содержит имя или имя и
список формальных параметров.
При передаче параметров по значению используется ключевое слово: By Val, при этом передается копия переменной и процедура не изменяет оригинальную переменную. Передача переменных по ссылке дает процедуре доступ к оригиналу переменной, что позволяет изменить ее значение.
Sub <имя>(<список формальных параметров>)
<оператор1>
<оператор2>
. . .
End Sub
Обращение происходит при помощи оператора – Call<имя>, если процедура не содержит формальных параметров, или Call<имя>(<список фактических параметров>)
Заголовок пользовательской функции содержит кроме имени и списка формальных параметров, еще и тип имени функции.
Function <имя>(<список формальных параметров>) As <тип>
<оператор1>
<оператор2>
. . .
имя = выражение
End Function
Обращение происходит при помощи указателя функции -
<имя>(<список фактических параметров>).
ФАЙЛЫ
Реализуется три типа доступа к файлам:
последовательный – для чтения и записи текстовых файлов,
произвольный – для чтения и записи текста или структурированных двоичных файлов с записями фиксированной длины,
двоичный - для чтения и записи произвольно структурированных файлов.
Открытие файла произвольного доступа:
Open <.имя файла> For Random Access ДОСТУП As # <номер файла> Len=
<длина записи>,
где параметр Access задает режим доступа к файлу: Read – чтение, Write -
запись, номер файла (от 1 до 255) определяется с помощью функции
FreeFile().
Для записи используется оператор:
Put #<номер файла>, <номер записи>, <переменная>
Для чтения используется оператор:
Get #<номер файла>, <номер записи>, <переменная>
Закрытие файла:
Close #<номер файла>.
