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

End If

s100 = s100 + s10

s200 = s200 + s20

s300 = s300 + s30

s400 = s400 + s40

s500 = s500 + S50

s10 = 0

s20 = 0

s30 = 0

s40 = 0

S50 = 0

Next i

k = k + 1

Worksheets("Лист2").Cells(k, 2).Value = "Итогополицею"

Worksheets("Лист2").Cells(k, 3).Value = Str(s100) & "/" & Str(s200)

Worksheets("Лист2").Cells(k, 4).Value = Str(s500)

Worksheets("Лист2").Cells(k, 5).Value = Str(Round(100 * (s100 - s500) / s100)) & "%"

Worksheets("Лист2").Cells(k, 6).Value = Str(s300) & "(" & Str(s400) & ")"

Worksheets("Лист2").Cells(k, 7).Value = Str(Round(100 * s300 / s100)) & "%"

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

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

k = 2

Worksheets("Лист4").Cells(k, 2).Value = "Итогополицею"

Worksheets("Лист2").Cells(k, 3).Value = Str(s100) & "/" & Str(s200)

Worksheets("Лист2").Cells(k, 4).Value = Str(s500)

Worksheets("Лист2").Cells(k, 5).Value = Str(Round(100 * (s200 - s500) / s100)) & "%"

Worksheets("Лист2").Cells(k, 6).Value = Str(s300) & "(" & Str(s400) & ")"

Worksheets("Лист2").Cells(k, 7).Value = Str(Round(100 * s300 / s100)) & "%"

End Sub