Private Sub mnuInsert_Click()

i% = Combo(0).ListIndex

If i < 0 Then

MsgBox "Выделите строку для вставки перед ней", vbExclamation

Else

Combo(0).AddItem InputBox("Введите номер"), i

Combo(1).AddItem InputBox("Введите фио"), i

Combo(2).AddItem InputBox("Введите дату рожд."), i

Combo(3).AddItem InputBox("Введите место рожд."), i

End If

End Sub

‘ Изменение записи в таблице:

Private Sub mnuUpdate_Click()

i% = Combo(0).ListIndex

If i < 0 Then

MsgBox "Выделите изменяемую строку", vbExclamation

Else

Combo(0).List(i) = InputBox("Введите номер",, Combo(0).List(i))

Combo(1).List(i) = InputBox("Введите фио",, Combo(1).List(i))

Combo(2).List(i) = InputBox("Введите дату рожд.",, Combo(2).List(i))

Combo(3).List(i) = InputBox("Введите место рожд.",, Combo(3).List(i))

End If

End Sub

‘ Очистка всей таблицы:

Private Sub mnuClear_Click()

For j% = 0 To 3

Combo(j).Clear

Next j

End Sub

‘ Заполнение таблицы сведениями из текстового файла:

Private Sub mnuLoad_Click()

MnuClear_Click

Open "person.txt" For Input As #1

Do Until EOF(1)

Input #1, numb, fio, bdate, bloc

Combo(0).AddItem numb

Combo(1).AddItem fio

Combo(2).AddItem bdate

Combo(3).AddItem bloc

Loop

Close #1

End Sub

‘ Запись сведений таблицы в текстовый файл:

Private Sub mnuSave_Click()

N% = Combo(0).ListCount

Open "person.txt" For Output As #1

For i = 0 To N - 1

numb = Val(Combo(0).List(i))

fio = Combo(1).List(i)

bdate = CDate(Combo(2).List(i))

bloc = Combo(3).List(i)

Write #1, numb, fio, bdate, bloc

Next i

Close #1

End Sub

‘ Завершение работы приложения:

Private Sub mnuExit_Click()

End

End Sub

3. Проверьте работу проекта

4. Сохраните проект и форму в папке ЛАБ50с именами Лр50_Зад1_P_Фамилия и Лр50_Зад1_F_Фамилия соответственно.