求VB解方程(一次方程)的代码,要求如下

来源:百度知道 编辑:UC知道 时间:2024/06/15 16:55:51
我主要是要解方程组,例如4元1次方程组
a+b+c+d=100
a+b-c-d=0
a-b-c-d=-25
a-b+c-d=0
我知道答案是a=b=c=d
请问假若是要用一个vb程序解一个这样的方程组,应该怎么写?

你那个上面的是没解的,我将a-b-c-d=-25改成了a-b-c-d=-50

'添加窗体Form1,按钮Command1,添加如下代码:
Dim a, b, c, d As Integer
Private Sub Command1_Click()
    For a = 1 To 100
        For b = 1 To 100 - a
            For c = 1 To 100 - a - b
                For d = 1 To 100 - a - b - c
                    DoEvents
                    If (a + b +