VB的问题

VB的鸡兔同笼问题鸡和兔在某些方

其实这就是求方程组的问题。 对于方程组 a1X+b1Y=c1 a2X+b2Y=c2 X=(b1*c2-b2*c1)/(b1*a2-b2a1) Y=(c-a1*X)/b1 而里面的abc的值都知道,可以求出 Private Sub Form_Load() 'a1X b1Y = c1 'a2X b2Y = c2 a1 = Val(Text1) b1 = Val(Text2) c1 = Val(Text3) a2 = Val(Text4) b2 = Val(Text5) c2 = Val(Text6) X = (b1 * c2 - b2 * c1) / (b1 * a2 - b2a1) Y ...全部

  其实这就是求方程组的问题。
   对于方程组 a1X+b1Y=c1 a2X+b2Y=c2 X=(b1*c2-b2*c1)/(b1*a2-b2a1) Y=(c-a1*X)/b1 而里面的abc的值都知道,可以求出 Private Sub Form_Load() 'a1X b1Y = c1 'a2X b2Y = c2 a1 = Val(Text1) b1 = Val(Text2) c1 = Val(Text3) a2 = Val(Text4) b2 = Val(Text5) c2 = Val(Text6) X = (b1 * c2 - b2 * c1) / (b1 * a2 - b2a1) Y = (c - a1 * X) / b1 Print "X="; X Print "Y="; Y End Sub 。收起