Проект на тему "Создание и обработка данных" - VB

Формулировка задачи:

Ребят,задали курсовой проект на тему "Создание и обработка данных” Помогите пожалуйста. Вариант 0 Имеются сведения о преподавателях ВУЗ’а: Ф.И.О. Пол Год рождения Занимаемая должность Специализация Необходимо: 1. Создать на МД файл произвольного доступа заданной структуры. 2. Вывести содержимое файла на экран для просмотра. 3. Вывести список претендентов на замещение вакантной должности заведующего кафедрой (должность – профессор, возраст – моложе 55 лет) требуемой специализации. 4. Определить число женщин в полученном списке. ( Где Ф.И.О. пол год рождения и т.д. там таблица)

Решение задачи: «Проект на тему "Создание и обработка данных"»

textual
                            Листинг программы 
                        

                            Type ZAP 'объявить структуру
       Tab_N As String * 10   'табельный №
       Fam  As String * 20 'фамилия
       Ima  As String * 20 'имя
       Otht  As String * 20 'отчество
       Raz As String * 5 'разряд
       Zeh As String * 5 'цех
End Type 'конец объявления
 
Public Z As ZAP 
Public Nz As Integer
 
Open App.Path & "\rab.txt" For Random As #1 Len = Len(Z) 
Nz = LOF(1) / Len(Z) + 1 
Put #1, Nz, Z 
Close #1 
 
Open App.Path & "\rab.txt" For Random As #1 Len = Len(Z) 
Nz = 1 ' начиная с первой записи
Do While Not EOF(1) 
Get #1, Nz, Z 
'Обрабатываем
Loop
Close #1
                        