Используя все цифры от 1 до 9 по одному разу в различных комбинациях и операции сложения и вычитания, получить в сумме 100 - VBA - Ответ 4417742

Sub MoreThreeDigitSums()
   Dim i&, n&, k&, l&, a&, b&, c&, d&, e&, f&, g&, h&, s$, op$(2)
   Dim arr(503) As Variant, nums(6) As Long, rn As Range
   For i = 100 To 999
      n = i
      c = n Mod 10
      n = n \ 10
      b = n Mod 10
      n = n \ 10
      a = n
      If a <> b And a <> c And b <> c And a <> 0 And b <> 0 And c <> 0 Then
         nums(0) = i
         k = 1
         For n = 1 To 9
            If n <> a And n <> b And n <> c Then
               nums(k) = n
               k = k + 1
            End If
         Next n
         arr(l) = nums
         l = l + 1
      End If
   Next i
   op(0) = ""
   op(1) = "-"
   op(2) = "+"
   Application.ScreenUpdating = False
   Set rn = Cells(1)
   For a = 0 To 1
      For b = 0 To 503
         For c = 0 To 2
            For d = 0 To 2
               For e = 0 To 2
                  For f = 0 To 2
                     For g = 0 To 2
                        For h = 0 To 2
                           DoEvents
                           s = IIf(a, "-", "") & arr(b)(0) _
                           & op(c) & arr(b)(1) & op(d) & _
                           arr(b)(2) & op(e) & arr(b)(3) & op(f) & _
                           arr(b)(4) & op(g) & arr(b)(5) & op(h) & arr(b)(6)
                           If Evaluate(s) = 100 Then
                              rn = s & " = 100"
                              Set rn = rn.Offset(1)
                           End If
                        Next h
                     Next g
                  Next f
               Next e
            Next d
         Next c
      Next b
   Next a
   Application.ScreenUpdating = True
End Sub