Question

VB中, a 是可以输入的值。b+c+d+e=a 求b,c,d,e。

VB中, a 是可以输入的值，且b+c+d+e=a，求b,c,d,e。
假如输入a=200,得出 b=50,c=70,d=20,e=60及其他很多组答案。
不知道这种应该怎么写呢？

Answer 1

利用穷举方法来写， 只考虑b, c, d, e为正数的情况（不考虑负数）。

Dim a As Integer
Dim b As Integer,  c As Integer,  d As Integer, e As Integer

a = Val(InputBox("a="))

For b =1 To a
    For c = 1 to a
        For d = 1 To a
            For e = 1 To a
                if (b + c + d + e) = a Then
                    Print b, c, d, e
                End If
            Next e
       Next d
   Next c
Next b