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

问题描述:

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

自己看下书,试着写一下就好,
太简单了别误会,要是说过了我很抱歉,这个代码估计没人给你发,还是自己照着书写就可以实现,很快的我没VB,代码大概是Private Sub Command1_Click()a1 = Text1.Texta2 = Text4.Textb1 = Text2.Textb2 = Text5.Textc1 = Text3.Textc2 = Text6.TextX2 = (c2 * a1 - c1 * a2) / (b1 * a2 - a1 * b2)X1 = (-X2 - b1 * X2) / a1 / 2Print X1, X2End Sub