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

q8 = q8 + s2

Worksheets("Лист4").Cells(10 + j8 + a1 + a2, 5).Value = s1

Worksheets("Лист4").Cells(10 + j8 + a1 + a2, 6).Value = s2

Worksheets("Лист4").Cells(10 + j8 + a1 + a2, 7).Value = s3

Case 9

j9 = j9 + 1

q9 = q9 + s2

Worksheets("Лист4").Cells(10 + j9 + a1 + a2, 9).Value = s1

Worksheets("Лист4").Cells(10 + j9 + a1 + a2, 10).Value = s2

Worksheets("Лист4").Cells(10 + j9 + a1 + a2, 11).Value = s3

Case 10

j10 = j10 + 1

q10 = q10 + s2

Worksheets("Лист4").Cells(16 + j10 + a1 + a2 + a3, 1).Value = s1

Worksheets("Лист4").Cells(16 + j10 + a1 + a2 + a3, 2).Value = s2

Worksheets("Лист4").Cells(16 + j10 + a1 + a2 + a3, 3).Value = s3

Case 11

j11 = j11 + 1

q11 = q11 + s2

Worksheets("Лист4").Cells(16 + j11 + a1 + a2 + a3, 5).Value = s1

Worksheets("Лист4").Cells(16 + j11 + a1 + a2 + a3, 6).Value = s2

Worksheets("Лист4").Cells(16 + j11 + a1 + a2 + a3, 7).Value = s3

End Select

Next i

Worksheets("Лист4").Cells(5 + j1, 1).Value = "Итого"

Worksheets("Лист4").Cells(5 + j1, 2).Value = q1

Worksheets("Лист4").Cells(5 + j2, 5).Value = "Итого"

Worksheets("Лист4").Cells(5 + j2, 6).Value = q2

Worksheets("Лист4").Cells(5 + j3, 10).Value = q3