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

S1 = Worksheets("Лист1").Cells(j, 6).Value

S11 = S11 + S1

s2 = Worksheets("Лист1").Cells(j, 7).Value

s12 = s12 + s2

S3 = Worksheets("Лист1").Cells(j, 8).Value

s31 = s31 + S3

s4 = Worksheets("Лист1").Cells(j, 9).Value

s41 = s41 + s4

s5 = Worksheets("Лист1").Cells(j, 10).Value

s15 = s15 + s5

k = k + 1

Worksheets("Лист2").Cells(k, 1).Value = s

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

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

Worksheets("Лист2").Cells(k, 6).Value = S3 & "(" & s4 & ")"

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

If S1 = "" Or s2 = "" Then

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

Else

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

KLASS = KLASS + 1

A = A + Round(100 * (Val(S1) - Val(s5)) / Val(S1))

End If

If S1 = "" Or S3 = "" Then Worksheets("Лист2").Cells(k, 7).Value = " " Else Worksheets("Лист2").Cells(k, 7).Value = Str(Round(100 * Val(S3) / Val(S1))) & "%"

s10 = s10 + Val(S1)

s20 = s20 + Val(s2)

s30 = s30 + Val(S3)

s40 = s40 + Val(s4)

S50 = S50 + Val(s5)