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

Case 3

j3 = j3 + 1

q3 = q3 + s2

Worksheets("Лист4").Cells(4 + j3, 9).Value = s1

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

Case 4

j4 = j4 + 1

q4 = q4 + s2

Worksheets("Лист4").Cells(7 + a1 + j4, 1).Value = s1

Worksheets("Лист4").Cells(7 + a1 + j4, 2).Value = s2

Case 5

j5 = j5 + 1

q5 = q5 + s2

Worksheets("Лист4").Cells(7 + a1 + j5, 5).Value = s1

Worksheets("Лист4").Cells(7 + a1 + j5, 6).Value = s2

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

Case 6

j6 = j6 + 1

q6 = q6 + s2

Worksheets("Лист4").Cells(7 + a1 + j6, 9).Value = s1

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

Worksheets("Лист4").Cells(7 + a1 + j6, 11).Value = s3

Case 7

j7 = j7 + 1

q7 = q7 + s2

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

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

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

Case 8