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

Задание

Задать файл произвольного доступа, каждая запись которого содержит порядковый номер студента и его фамилию. Организовать возможность добавления информации в файл, а также вывода его содержимого на экран.

1 Создаем форму:

2 Записываем код программы:

Private Type CodeRec

Name As String * 25

Code As Integer

End Type

Const Fil As String = "MyFil"

Dim Trec As CodeRec

Dim FilNum As Integer

'Создание файла

Private Sub CommandButton1_Click()

FilNum = FreeFile()

Open Fil For Random Access Write As FilNum Len = Len(Trec)

For i = 1 To 3

Trec.Name = InputBox("Введите фамилию")

Trec.Code = i

Put FilNum,, Trec

Next

Close FilNum

End Sub

'Добавление в файл

Private Sub CommandButton2_Click()

FilNum = FreeFile()

Dim nbyte As Long

Open Fil For Random Access Read Write As FilNum Len = Len(Trec)

nbyte = LOF(FilNum)

n = CInt(nbyte / Len(Trec))

Trec.Name = InputBox("Введите фамилию")

Trec.Code = n + 1

Put FilNum, n + 1, Trec

Close FilNum

End Sub

'Чтение файла и вывод на экран

Private Sub CommandButton3_Click()

FilNum = FreeFile()

Open Fil For Random Access Read As FilNum Len = Len(Trec)

Do While Not EOF(FilNum)

Get FilNum,, Trec

S = Str(Trec.Code) & " " & Trec.Name

ListBox1.AddItem (S)

Loop

End Sub

'Создание папки для записи в нее файла

Private Sub CommandButton4_Click()

ChDrive "C"

On Error Resume Next

MkDir "Lab"

ChDir "Lab"

End Sub

3 Запускаем программу на выполнение

3.1 Создаем папку (щелчком на соответствующей кнопке).

3.2 Создаем файл. Вводим фамилии (в цикле), программа осуществляет вывод в файл с заданным именем каждой записи.

4 Дополняем файл одной записью

5 Выводим содержимое файла (с помощью компонента ListBox):