7 14 Глава 19. Инструментальные средства пользователя в среде microsoft office

Текст программы	Комментарий
For NextChar = MaxSize To 1 Step — 1	Организация цикла для последователь-
	ного считывания записей от конца
	файла к его началу
Seek #1, NextChar
MyChar = Input(l,#l)
Next NextChar
Close #1	Закрытие файла

Для файла, открываемого в режиме произвольного доступа, определяется очередной номер записи, с которой будет работать программа.

Пример 19.36. Позиционирование в	раиле произвольного доступа
Текст программы		Комментарий
Type Record		Объявление пользовательского типа
		данных для записи
ID As Integer
Name As String * 20
End Type
Dim MyRecord As Record		Объявление переменной на основе
		пользовательского типа данных
Open "FILE" For Random As #1
Len = Len(MyRecord)		Открытие файла произвольного доступа
		с длиной, соответствующей длине
		объявленного типа
MaxSize = LOF(l) \ Len(MyRecord)		Вычисление количества записей в файле
Get For RecordNumber = MaxSize
To 1 Step — 1		Организация цикла для последовательного
		считывания записей от конца файла
		к его началу
Seek # 1, RecordNumber
Get # 1,, My Record
Next RecordNumber
Close #1		Закрытие файла

ДИАЛОГОВЫЕ ОКНА

Существует несколько типов диалоговых окон, которые необходимы для поддержа­ния в программе интерактивного режима работы конечного пользователя (вывод сооб­щений пользователю, прием и интерпретация указаний, введенных пользователем, и др.).

Диалоговые окна для обмена сообщениями

Встроенная функция MsgBoxO обеспечивает создание диалоговых окон различных типов. 1. Простое окно-сообщение

MsgBox ("строка_сообщения")

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