Лист1.Select

Лист1.Rows(i).Select

End If

i = i + 1

f = Лист1.Cells(i, 9)

Loop Until Лист1.Cells(i, 9) = ""

EndSub

6. Ввод в эксплуатацию

7.

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

8.Список литературы

·Лекции Макаровой И.В. «Разработка и Стандартизация Программного Обеспечения»

·Visual Basic 6. КузьменкоВ.Г.

·Базы Данных. Кузин А.В. Левонисова С.В.

·Информатика базовый курс. Симонович С.В.