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

End If

Next j

k = k + 1

Worksheets("Лист2").Cells(k, 2).Value = "Итого"

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

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

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

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

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

k = k + 1

If (i = 4) Or (i = 9) Or (i = 11) Then

Worksheets("Лист2").Cells(k, 2).Font.Bold = True

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

Worksheets("Лист2").Cells(k, 3).Font.Bold = True

Worksheets("Лист2").Cells(k, 3).Value = S11 & "/" & s12

Worksheets("Лист2").Cells(k, 4).Font.Bold = True

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

Worksheets("Лист2").Cells(k, 5).Font.Bold = True

Worksheets("Лист2").Cells(k, 5).Value = Str(Round(A / KLASS)) & "%"

Worksheets("Лист2").Cells(k, 6).Font.Bold = True

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

A = 0

KLASS = 0

s15 = 0

Worksheets("Лист2").Cells(k, 7).Font.Bold = True

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

s31 = 0

s41 = 0

S11 = 0