用VB怎样解这个二元一次方程呢？ 3x-2y=106,x=2+2y

Answer 1

这个容易呀，你先手动把X+aY+b=0,X+cY+d=0这个方程解了，把答案做到程序中， 然后把其他方程都转换成这模式，程序运行时只需要输入对应的参数abcd，就自动算出答案了。

追问

你的意思是这样嘛？-

追答

先把通用方程组aX+bY=C;dX+eY=f 解出,X=(ce-fb)/(ae-db); Y=(af-cd)/(ae-bd),把这个工式输入程序,然后把你的方程转换成3X-2y=106;x-2y=2. 把对应abcdef的几个数字输入程序即可自动得出结果.

代码如下:

Private Sub Command1_Click()

   Dim x As Double, y As Double

   x = (Text1(2) * Text1(4) - Text1(1) * Text1(5)) / (Text1(0) * Text1(4) - Text1(1) * Text1(3))

   y = (Text1(0) * Text1(5) - Text1(2) * Text1(3)) / (Text1(0) * Text1(4) - Text1(1) * Text1(3))

   Text2(0) = x

   Text2(1) = y

End Sub

运行结果:特别提示,小孩子做作业千万不能用,不然就杯具了

Answer 2

这怎么解呢，没有通用性啊！

给你写一个测试的：

Sub xx()
    dim x as integer
    dim y as integer
    for y = -106 to 106
        x = 2 + 2 * y
        if 3*x - 2*y = 106 then msgbox "x=" & x & chr(10) & "y=" & y : Exit sub
    next y
End sub

追问

我能不能这样做吗？你的有点不懂。。。- -没学过VB，而且编程基础比较差~-  -

追答

那你这样写的话 基本上就相当于直接写计算结果了啊