VB输入一元二次方程ax2+bx+c=0的系数a,b,c,计算并输出一元二次方程的两个根x1,x2.求代码及窗体设计

VB输入一元二次方程ax2+bx+c=0的系数a,b,c,计算并输出一元二次方程的两个根x1,x2.求代码及窗体设计

自己看下书,试着写一下就好,
太简单了
再问： 你妹，会了还问你？别把自己膨胀的信心践踏在别人身上
再答： 别误会，要是说过了我很抱歉， 这个代码估计没人给你发，还是自己照着书写就可以实现，很快的
再问： 好吧，原谅你了。求加QQ，大神。
再答： 我没VB，代码大概是 Private Sub Command1_Click() a1 = Text1.Text a2 = Text4.Text b1 = Text2.Text b2 = Text5.Text c1 = Text3.Text c2 = Text6.Text X2 = (c2 * a1 - c1 * a2) / (b1 * a2 - a1 * b2) X1 = (-X2 - b1 * X2) / a1 / 2 Print X1, X2 End Sub