Question

请懂得VB6的来看下我这道能解出任意二元一次方程组的 x ,y 值的代码有什么错误，要怎么改正

Dim x, y As Integer
Private Sub Command1_Click()
If x * Val(Text1) + y * Val(Text2) = Val(Text3) And x * Val(Text4) + y * Val(Text5) = Val(Text6) Then
Print "x的值为" & x
Print "y的值为" & y
End If
End Sub

Answer 1

这个能求二元一次方程组的解么
从你的代码中可看出x，y应该是未知数了，文本框中应该是方程系数，但你的x,y值是怎么代进去的，看不懂
错误1：x,y一定会是整数么？不应该定义为integer型
错误2：程序中是否首先已经输入了x,y值？电脑取的什么值代进去算的？你的程序只执行一次，应该用循环语句不断取x,y值代入计算，满足你程序中的等式就是解了

Answer 2

除了一楼，下面这句怎么解？
If x * Val(Text1) + y * Val(Text2) = Val(Text3) And x * Val(Text4) + y * Val(Text5) = Val(Text6) Then