VB 要控件哦 自己加代码:Private Sub Command1_Click()Dim a, b, c, delta, x1, x2, x As Doublea = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)If a = 0 Then Label4.Caption = "二次项系数为0,不是一元二次方程"End Ifdelta = b * b - 4 * a * c ‘b^2-4acLabel5.Caption = "b^...