UC知道VB悬赏100分用VB编解任意一元二次方程，有两个TEXT框，TEXT1里输入方程，点击OK后TEXT2中显示方程的根
来源：百度知道 编辑：UC知道 时间：2024/05/17 01:45:16
VB高手请进（悬赏100分）：用VB编一个解任意一元二次方程问题，有两个TEXT框，在TEXT1里面输入方程，点击OK后TEXT2中显示方程的根。
如：在Text1 中输入x^2-x-6=0,点击OK后text2中显示x1=-2,x2=3
在Text1 中输入x^2+2*x+1=0,点击OK后text2中显示x1=-1,x2=-1
期末考试要考的题，老师已经把题透露出来了，就是不知道怎么办！
尤其是FUNCTION函数定义时，如何将TEXT1中的函数变成FUNCTION函数。
如：在Text1 中输入x^2-x-6=0,点击OK后text2中显示x1=-2,x2=3
在Text1 中输入x^2+2*x+1=0,点击OK后text2中显示x1=-1,x2=-1
期末考试要考的题，老师已经把题透露出来了，就是不知道怎么办！
尤其是FUNCTION函数定义时，如何将TEXT1中的函数变成FUNCTION函数。
'添加窗体Form1,文本框Text1,Text2,按钮Command1,然后添加如下代码:
Private Sub Command1_Click()
Text2.Text = compuResult(Text1.Text)
End Sub
'根据二元一次方程的表达式直接返回其根的表达式
Private Function compuResult(strCalc As String) As String
Dim sa, sb, sc As String
Dim a, b, c, x1, x2 As Single
On Error Resume Next
sa = Left(strCalc, InStr(strCalc, "x") - 1)
strCalc = Mid(strCalc, InStr(strCalc, "x") + 3)
sb = Left(strCalc, InStr(strCalc, "x") - 1)
strCalc = Mid(strCalc, InStr(strCalc, "x")