Лабы по КП / Лаба 7
.docФедеральное агентство по образованию
Государственное образовательное учреждение
Высшего профессионального образования
«Государственный Университет Управления»
Институт Информационных Систем Управления
Кафедра компьютерных технологий
Лабораторная работа № 7
По дисциплине «Компьютерная подготовка»
4 вариант
Выполнила:
студентка ИНиМЭ,
Проверил:
Канаков А.Г.
МОСКВА 2005
Создать файл последовательного доступа фамилий сотрудников фирмы. Разобрать также процедуры чтения, добавления фамилий новых сотрудников и перестановки фамилий так, чтобы в начале оказались фамилии, начинающиеся с буквы «Г». Данные файла записать на диск А, вывод на экран произвести, использую элемент управления List Box.
Option Explicit
Dim FAM As String
Dim PC As Byte
Dim K As Integer
Dim I As Integer
Dim F() As String
Private Sub Command1_Click()
Open "A:\File1.txt" For Output As #1
PC = 1
K = 0
Do While PC = 1
FAM = InputBox("Введите " + Str(K + 1) + "-ю фамилию")
Write #1, FAM
List1.List(K) = FAM
K = K + 1
PC = InputBox("Введите 1 для продолжения, иначе - 0")
Loop
Close #1
End Sub
Private Sub Command2_Click()
Open "A:\File1.txt" For Input As #1
K = 0
Do While Not EOF(1)
Input #1, FAM
List2.List(K) = FAM
K = K + 1
Loop
ReDim F(1 To K) As String
For I = 1 To K
F(I) = List2.List(I - 1)
Next I
Close #1
End Sub
Private Sub Command3_Click()
Open "A:\File1.txt" For Append As #1
PC = 1
K = 0
Do While PC = 1
FAM = InputBox("Добавьте " + Str(K + 1) + "-ю фамилию")
Write #1, FAM
K = K + 1
PC = InputBox("Введите 1 для продолжения, иначе - 0")
Loop
Close #1
End Sub
Private Sub Command4_Click()
Dim J As Integer
Dim P As Integer
Dim FM As String
ReDim F(1 To K)
P = 1
For I = 1 To K
FM = Mid(F(I), 1, 1)
If FM = "Г" Then FAM = F(I) Else GoTo 1
For J = I - 1 To P Step -1
F(J + 1) = F(J)
Next J
F(P) = FAM
P = P + 1
1 Next I
Open "A:\File1.txt" For Output As #1
For I = 1 To K
Write #1, F(I)
Next I
Close #1
End Sub
Private Sub Command5_Click()
End
End Sub