Массив с вариантами уравнений(формул) - VBA/Excel

Формулировка задачи:

Наглядных файлов примера нет, хочу разобраться в теории, так как поисковики не помогли. Возможно я просто неверно формулирую задачу от неопытности. Итак, имеются несколько переменных значений(чисел), которые можно вставить в уравнение и найти

Например: a = 1 b = 2 c = 3 d = 4

= a+b+c+d = 1+2+3+4 = 10 Тот же x можно найти и таким уравнением:

= a*b*c+d = 1*2*3+4 = 10

. Задача забить массив вариантами(или определённым числом вариантов) уравнений для известных переменных после того, когда x найден для первого уравнения. Ведь проблема в том(например), что при: a = 4 b = 3 c = 2 d = 1

= a+b+c+d = 4+3+2+1 = 10 Тот же x нельзя найти таким уравнением:

= a*b*c+d = 4*3*2+1 = 25

. Забить другой массив вариантами уравнений для других значений переменных.

. Получить матрицу формул(уравнений)

null

Решение задачи: «Массив с вариантами уравнений(формул)»

textual
                            Листинг программы 
                        

                            Sub main()
Dim z$, v(), i&, j&, n&, x&, S
z = "+-*/^"
v = Array(1, 2, 3, 4, 5, 6)
S = v(0)
For i = 1 To UBound(v)
  S = S & "+" & v(i)
Next
x = Evaluate(S)
Debug.Print S; " ="; x
For i = 1 To (Len(z) ^ UBound(v)) - 1
  n = i
  S = v(0)
  For j = 1 To UBound(v)
    S = S & Mid$(z, n Mod Len(z) + 1, 1) & v(j)
    n = n \ Len(z)
  Next
  If Evaluate(S) = x Then Debug.Print S; " ="; x
Next
End Sub
                        