Реализация программного модуля, на встроенном языке программирования Visual Basic for Application (VBA), страница 33

If ((a = 5 And b = 3) Or (a = 3 And b = 5)) And p(3) > p(5) Then z(1) = 3: z(2) = 6: z(3) = 2: z(4) = 7: z(5) = 1: z(6) = 4: z(7) = 5

If ((a = 3 And b = 6) Or (a = 6 And b = 3)) And p(3) <= p(6) Then z(1) = 6: z(2) = 2: z(3) = 7: z(4) = 1: z(5) = 4: z(6) = 5: z(7) = 3

If ((a = 3 And b = 6) Or (a = 6 And b = 3)) And p(3) > p(6) Then z(1) = 3: z(2) = 5: z(3) = 4: z(4) = 1: z(5) = 7: z(6) = 2: z(7) = 6

If ((a = 2 And b = 6) Or (a = 6 And b = 2)) And p(2) <= p(6) Then z(1) = 6: z(2) = 3: z(3) = 5: z(4) = 4: z(5) = 1: z(6) = 7: z(7) = 2

If ((a = 2 And b = 6) Or (a = 6 And b = 2)) And p(2) > p(6) Then z(1) = 2: z(2) = 7: z(3) = 1: z(4) = 4: z(5) = 5: z(6) = 3: z(7) = 6

If ((a = 2 And b = 7) Or (a = 7 And b = 2)) And p(2) <= p(7) Then z(1) = 7: z(2) = 1: z(3) = 4: z(4) = 5: z(5) = 3: z(6) = 6: z(7) = 2

If ((a = 2 And b = 7) Or (a = 7 And b = 2)) And p(2) > p(7) Then z(1) = 2: z(2) = 6: z(3) = 3: z(4) = 5: z(5) = 4: z(6) = 1: z(7) = 7

If ((a = 1 And b = 7) Or (a = 7 And b = 1)) And p(1) <= p(7) Then z(1) = 7: z(2) = 2: z(3) = 6: z(4) = 3: z(5) = 5: z(6) = 4: z(7) = 1

If ((a = 1 And b = 7) Or (a = 7 And b = 1)) And p(1) > p(7) Then z(1) = 1: z(2) = 4: z(3) = 5: z(4) = 3: z(5) = 6: z(6) = 2: z(7) = 7

Worksheets("Лист3").Cells(min1(a, b) + 28, max1(a, b)) = "+"

s = 0

If p(a) <= p(b) And a <= b Then

If p(z(1)) - n(z(1), z(2)) = p(z(2)) Then Worksheets("Лист3").Cells(min(z(1), z(2)) + 28, max(z(1), z(2))) = "-": s = s + 1

If p(z(1)) + n(z(1), z(2)) = p(z(2)) Then Worksheets("Лист3").Cells(min(z(1), z(2)) + 28, max(z(1), z(2))) = "+"

If p(z(2)) - n(z(2), z(3)) = p(z(3)) Then Worksheets("Лист3").Cells(min(z(2), z(3)) + 28, max(z(2), z(3))) = "-": s = s + 1

If p(z(2)) + n(z(2), z(3)) = p(z(3)) Then Worksheets("Лист3").Cells(min(z(2), z(3)) + 28, max(z(2), z(3))) = "+"

If p(z(3)) - n(z(3), z(4)) = p(z(4)) Then Worksheets("Лист3").Cells(min(z(3), z(4)) + 28, max(z(3), z(4))) = "-": s = s + 1

If p(z(3)) + n(z(3), z(4)) = p(z(4)) Then Worksheets("Лист3").Cells(min(z(3), z(4)) + 28, max(z(3), z(4))) = "+"

If p(z(4)) - n(z(4), z(5)) = p(z(5)) Then Worksheets("Лист3").Cells(min(z(4), z(5)) + 28, max(z(4), z(5))) = "-": s = s + 1

If p(z(4)) + n(z(4), z(5)) = p(z(5)) Then Worksheets("Лист3").Cells(min(z(4), z(5)) + 28, max(z(4), z(5))) = "+"

If p(z(5)) - n(z(5), z(6)) = p(z(6)) Then Worksheets("Лист3").Cells(min(z(5), z(6)) + 28, max(z(5), z(6))) = "-": s = s + 1

If p(z(5)) + n(z(5), z(6)) = p(z(6)) Then Worksheets("Лист3").Cells(min(z(5), z(6)) + 28, max(z(5), z(6))) = "+"

If p(z(6)) - n(z(6), z(7)) = p(z(7)) Then Worksheets("Лист3").Cells(min(z(6), z(7)) + 28, max(z(6), z(7))) = "-": s = s + 1

If p(z(6)) + n(z(6), z(7)) = p(z(7)) Then Worksheets("Лист3").Cells(min(z(6), z(7)) + 28, max(z(6), z(7))) = "+"

End If

If p(a) > p(b) And a <= b Then

If p(z(1)) - n(z(1), z(2)) = p(z(2)) Then Worksheets("Лист3").Cells(min(z(1), z(2)) + 28, max(z(1), z(2))) = "+"

If p(z(1)) + n(z(1), z(2)) = p(z(2)) Then Worksheets("Лист3").Cells(min(z(1), z(2)) + 28, max(z(1), z(2))) = "-": s = s + 1

If p(z(2)) - n(z(2), z(3)) = p(z(3)) Then Worksheets("Лист3").Cells(min(z(2), z(3)) + 28, max(z(2), z(3))) = "+"

If p(z(2)) + n(z(2), z(3)) = p(z(3)) Then Worksheets("Лист3").Cells(min(z(2), z(3)) + 28, max(z(2), z(3))) = "-": s = s + 1

If p(z(3)) - n(z(3), z(4)) = p(z(4)) Then Worksheets("Лист3").Cells(min(z(3), z(4)) + 28, max(z(3), z(4))) = "+"

If p(z(3)) + n(z(3), z(4)) = p(z(4)) Then Worksheets("Лист3").Cells(min(z(3), z(4)) + 28, max(z(3), z(4))) = "-": s = s + 1

If p(z(4)) - n(z(4), z(5)) = p(z(5)) Then Worksheets("Лист3").Cells(min(z(4), z(5)) + 28, max(z(4), z(5))) = "+"