Private Sub ЧитатьСортФайл_Click()

X% = Len(Student) ‘Длина записи

Open "C:\Stud.dat" For Random As #1 Len = x

K% = LOF(1) \ x ‘Число записей

ReDim Index(K) As ТипИндекса

Cls ‘Очистка формы

For I% = 1 To K

Get #1, i, Student

Index(i).FIO = UCase(Trim(Student.Surname) + Trim(Student.myName))

Index(i).Number = i

Next i

'Пузырьковая сортировка файла по индексу

For i = 1 To k - 1

For j% = i + 1 To k

If Index(i).FIO > Index(j).FIO Then

Index(0) = Index(j): Index(j) = Index(i): Index(i) = Index(0)

End If

Next j

Next i

Print vbCrLf, vbCrLf, vbCrLf, vbCrLf, vbCrLf ‘пропуск на форме 6-ти пустых строк

For i = 1 To k

Get #1, Index(i).Number, Student

Print " " & Trim(Student.Surname) & " " & Trim(Student.myName), _

Trim(Student.BirthDay), Trim(Student.Address)

Next i

Close #1

End Sub

Задание на самостоятельную работу.

Ввод начальных значений полей и запись их на диск осуществляется с клавиатуры через диалог InputBox.

Все введенные записи должны быть отображены в списках массива управляющих элементов ComboBox.

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

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

Осуществить вывод на форму отсортированных записей по ключу.

Варианты заданий

1. База данных "Библиотечный каталог".

Поля: автор, шифр, наименование, издательство, год издания, количество страниц. Результаты обработки данных: список авторов, фамилия которых начинаются с буквы, принадлежащей диапазону букв В...Т и список литературы за последние 5 лет. Отобразите на форме упорядоченные записи по полям автор и шифр.

2. База данных "ГАИ".

Поля: фамилия, имя, отчество, адрес, номер, модель, цвет, нарушения, автострахование (да, нет). Результаты обработки данных: список водителей, имеющих два и более нарушений и номера всех застрахованных авто, имеющих синий цвет. Отобразите на форме упорядоченные записи по полям фамилия, имя.

3. База данных "Записная книжка".

Поля: фамилия, имя, отчество, город, адрес, телефон, год рождения, примечание. Результаты обработки данных: список фамилий и телефонные номера всех абонентов, родившихся в ближайшем месяце, а также адреса абонентов, имеющих отношение к банкам. Отобразите на форме упорядоченные записи по полям фамилия, имя.

4. База данных "Кадры предприятия".

Поля: цех, должность, ФИО, год рождения, год приема на работу, адрес, телефон. Результаты обработки данных: список работников, имеющих стаж работы более 20 лет, а также должности и адреса работников, справляющих в этом году юбилей (60 лет). Отобразите на форме упорядоченные записи по полю ФИО.

5. База данных "ПЭВМ".

Поля: фирма, название ЭВМ, процессор, ОЗУ, винчестер, монитор, частота. Результаты обработки данных: список фирм, торгующих мониторами Sony Trinitron, а также список ПЭВМ, имеющих процессор Athlon с частотой свыше 1,7 ГГц и 256 Мб ОЗУ. Отобразите на форме упорядоченные записи по полю фирма.

6. База данных "Телефонный справочник".

Поля: ФИО, адрес, номер телефона. Результаты обработки данных: список абонентов 50-й АТС и адреса всех абонентов, фамилия которых начинается на букву Л. Отобразите на форме упорядоченные записи по полю ФИО.

7. База данных "Автокаталог".

Поля: наименование, номер двигателя, его объем (куб.см.), мощность (л.с.), скорость, расход топлива, цена. Результаты обработки данных: список автомашин с расходом топлива менее 10 литров на 100 км., а также цены на автомобили с мощностью более 100 л.с. и их объем двигателя. Отобразите на форме упорядоченные записи по полям наименование и номер двигателя.

8. База данных "Аудиторный фонд УГАТУ".

Поля: номер аудитории, число мест в аудитории, корпус. Результаты обработки данных: список корпусов, имеющих в своем распоряжении более 5 аудиторий с количеством мест более 100, а также номера аудиторий, имеющих минимальное количество мест. Отобразите на форме упорядоченные записи по полям корпус и номер аудитории.

9. База данных "Кадры (преподаватели)".

Поля: ФИО, должность, дата рождения, факультет, кафедра, телефон. Результаты обработки данных: список фамилий и телефонов преподавателей кафедры, заданной с клавиатуры, а также список доцентов и профессоров младше 40 лет. Отобразите на форме упорядоченные записи по полю ФИО.

10. База данных "Список товаров".

Поля: название товара, год производства, цена, количество, номер магазина. Результаты обработки данных: список магазинов, имеющий заданный товар, а также количество и цену залежавшегося товара (более 1 года). Отобразите на форме упорядоченные записи по полям номер магазина и название товара.

11. База данных "Aбитуриенты"

Поля: ФИО, год рождения, год окончания школы, средний балл по аттестату. Результаты обработки данных: список со средним баллом > 4.5 и количество отличников. Отобразите на форме упорядоченные записи по полю ФИО.

12. База данных "Aбитуриенты"

Поля: ФИО, год рождения, какое учебное заведение окончил, место проживания (город, село). Результаты обработки данных: список абитуриентов, проживающих не в Уфе и количество окончивших техникум. Отобразите на форме упорядоченные записи по полю ФИО.

13. База данных "Aбитуриенты"

Поля: ФИО, год окончания школы, средний балл по аттестату, служба в армии. Результаты обработки данных: список окончивших школу до 1990 года и количество служивших в армии. Отобразите на форме упорядоченные записи по полю ФИО.

14. База данных "Aбитуриенты"

Поля: ФИО, год рождения, пол, средний балл по аттестату. Результаты обработки данных: список абитуриентов моложе 18 лет и количество абитуриентов мужского пола. Отобразите на форме упорядоченные записи по полю ФИО.

15. База данных "Aбитуриенты"

Поля: ФИО, год рождения, средний балл по аттестату, баллы на вступительных экзаменах (4 экзамена). Результаты обработки данных: список абитуриентов набравших проходной балл(18) и количество сдавших экзамены без троек. Отобразите на форме упорядоченные записи по полю ФИО.

16. База данных "Aбитуриенты"

Поля: ФИО, пол, средний балл по аттестату, баллы на вступительных экзаменах (4 экзамена). Результаты обработки данных: список абитуриентов со средним баллом по аттестату >4.75 и количество сдавших экзамены только на "отлично". Отобразите на форме упорядоченные записи по полю ФИО.

17. База данных "Студенты"

Поля: ФИО, пол, место проживания (дома, в общежитии, на квартире), стипендия (да, нет). Результаты обработки данных: список студентов проживающих в общежитии и количество получающих стипендию. Отобразите на форме упорядоченные записи по полю ФИО.

18. База данных "Студенты"

Поля: ФИО, год рождения, пол, место проживания (дома, в общежитии, на квартире). Результаты обработки данных: список студентов моложе 18 лет и процент проживающих в общежитии. Отобразите на форме упорядоченные записи по полю ФИО.

19. База данных "Студенты"

Поля: ФИО, пол, год рождения, баллы на экзаменах (4 экзамена). Результаты обработки данных: список студентов получивших на экзаменах 4 и 5 и процент сдавших без троек. Отобразите на форме упорядоченные записи по полю ФИО.

20. База данных "Студенты"

Поля: ФИО, год рождения, место проживания (дома, в общежитии, на квартире), баллы на экзаменах (4 экзамена). Результаты обработки данных: список студентов получивших на экзаменах 2 и процент сдавших c первого предъявления. Отобразите на форме упорядоченные записи по полю ФИО.

21. База данных "Студенты"

Поля: ФИО, пол, баллы на экзаменах (4 экзамена), получает ли стипендию. Результаты обработки данных: список студентов получающих стипендию и процент сдавших экзамены на "отлично". Отобразите на форме упорядоченные записи по полю ФИО.

22. База данных "Студенты"

Поля: ФИО, пол, год рождения, баллы на экзаменах (4 экзамена). Результаты обработки данных: список студентов старше 18 лет и процент сдавших экзамены на 4 и 5. Отобразите на форме упорядоченные записи по полю ФИО.

23. База данных "Студенты"

Поля: ФИО, место проживания (дома, в общежитии, на квартире), год рождения, баллы на экзаменах (4 экзамена). Результаты обработки данных: список студентов проживающих в общежитии и процент получивших на экзамене 2. Отобразите на форме упорядоченные записи по полю ФИО.

24. База данных "Студенты"

Поля: ФИО, место проживания (дома, в общежитии, на квартире), баллы на экзаменах (4 экзамена), получает ли стипендию. Результаты обработки данных: список студентов проживающих в общежитии и получающих стипендию процент сдавших экзамены на отлично. Отобразите на форме упорядоченные записи по полю ФИО.

25. База данных "Студенты"

Поля: ФИО, место проживания (дома, в общежитии, на квартире), пол, баллы на экзаменах (4 экзамена). Результаты обработки данных: список студентов мужского пола проживающих в общежитии процент сдавших экзамены на без троек. Отобразите на форме упорядоченные записи по полю ФИО.

Контрольные вопросы

Что такое пользовательский тип данных?

В чем особенность переменных строкового типа, используемых в качестве полей записи?

Позволяет ли Visual Basic создавать вложенные структуры пользовательского типа?

Какие операторы Visual Basic определены при работе с файлами произвольного доступа?

Как определить длину файла?

Для чего необходима операция индексирования записей?