Реферат: Система компьютерной обработки данных

S1 = Mid(S1, InStr(S1, ":") + 1, Len(S1))

n = Mid(S1, 1, InStr(S1, ";") - 1)

S1 = Mid(S1, InStr(S1, ";") + 1, Len(S1))

If InStr(S1, q) > 0 Then

n = n + ";" + Mid(Mid(Mid(S1, InStr(S1, q) - 1, Len(S1)), InStr(Mid(S1, InStr(S1, q) - 1, Len(S1)), ":") + 1, Len(S1)), 1, InStr(Mid(Mid(S1, InStr(S1, q) - 1, Len(S1)), InStr(Mid(S1, InStr(S1, q) - 1, Len(S1)), ":") + 1, Len(S1)), ";") - 1)

S1 = Mid(S1, 1, InStr(S1, q) - 1) + Mid(Mid(S1, InStr(S1, q), Len(S1)), InStr(Mid(S1, InStr(S1, q), Len(S1)), ";") + 1, Len(S1))

Worksheets("Лист3").Cells(j, 1).Value = k

Worksheets("Лист3").Cells(j, 2).Value = q

Worksheets("Лист3").Cells(j, 3).Value = s

Worksheets("Лист3").Cells(j, 4).Value = n

Else

Worksheets("Лист3").Cells(j, 1).Value = k

Worksheets("Лист3").Cells(j, 2).Value = q

Worksheets("Лист3").Cells(j, 3).Value = s

Worksheets("Лист3").Cells(j, 4).Value = n

End If

k = k + 1

j = j + 1

Wend

Next i

Worksheets("Лист3").Cells(j + 2, 2).Value = "Итого:"

Worksheets("Лист3").Cells(j + 2, 3).Value = Str(k - 1) + "чел."

Worksheets("Лист3").Cells(j + 4, 2).Value = "Директор "

Worksheets("Лист3").Cells(j + 5, 2).Value = "экономического лицея"

Worksheets("Лист3").Cells(j + 5, 4).Value = "Н.И.Кузенко"

End Sub

Макрос «Пропуски»

Private Sub CommandButton1_Click()

Dim s As String