ss = 0 ' это переменная аккумулятор в которой получаем окончательный и промежуточный результаты
oper1 = " +"
oper2 = " -"
kk = 3
For ii1 = 1 To 2
For ii2 = 1 To 2
For ii3 = 1 To 2
For ii4 = 1 To 2
ss = Cells(2, 1)
Cells(kk, 1) = Cells(2, 1)
For nn = 2 To 5
Cells(kk, 2 * nn - 1) = Cells(2, 2 * nn - 1)
If nn - 1 = 1 Then ' можете этот кусок сменить на кусок с select case )))
ii0 = ii1
ElseIf nn - 1 = 2 Then
ii0 = ii2
ElseIf nn - 1 = 3 Then
ii0 = ii3
ElseIf nn - 1 = 4 Then
ii0 = ii4
End If
If ii0 = 1 Then
Cells(kk, 2 * nn - 2) = oper1
ss = ss + Cells(kk, 2 * nn - 1)
Else
Cells(kk, 2 * nn - 2) = oper2
ss = ss - Cells(kk, 2 * nn - 1)
End If
Next nn
Cells(kk, 11) = ss
kk = kk + 1
Next ii4
Next ii3
Next ii2
Next ii1
End Sub
вот результат:
и можно заметит что ответы все нечетные, догадаетесь почему?
а значит ответа на ваш вопрос нет при знаках + -и
надеюсь добавить другие операции вы уже сможете сами))))
