求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=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 +