Question

求解一道VB题：输入一元二次方程的系数a,b,c的值，编程求解一元二次方程ax^2+bx+c=0的根

Answer 1

界面的abc输入托文本框获取把Private Sub Command1_Click() 。

Dim a As Single, b As Single, c As Single, t As Double  a = Val (Text1.Text)  b = Val (Text2.Text)。

含义及特点：

（1）一元二次方程的解（根）的意义：能使一元二次方程左右两边相等的未知数的值称为一元二次方程的解。一般情况下，一元二次方程的解也称为一元二次方程的根（只含有一个未知数的方程的解也叫做这个方程的根）。

（2）由代数基本定理，一元二次方程有且仅有两个根（重根按重数计算），根的情况由判别式决定。

扩展资料：

一元二次方程成立必须同时满足三个条件：

①是整式方程，即等号两边都是整式，方程中如果有分母；且未知数在分母上，那么这个方程就是分式方程，不是一元二次方程，方程中如果有根号，且未知数在根号内，那么这个方程也不是一元二次方程。

②只含有一个未知数；

③未知数项的最高次数是2。

参考资料来源：百度百科-一元二次方程

Answer 2

界面的abc输入你自己托文本框获取把Private Sub Command1_Click() Dim a As Single, b As Single, c As Single, t As Double a = Val (Text1.Text) b = Val (Text2.Text) c = Val (Text3.Text) If b ^ 2 - 4 * a * c < 0 Then MsgBox "无解" Exit Sub End If t = (b ^ 2 - 4 * a * c) ^ (1 / 2) ' b平方-4ac开根号 if t = 0 Then MsgBox "唯一解为：" & (-1 * b / (2 * a)) Else MsgBox "2个解分别为：" & ((-1 * b + t) / (2 * a)) & " 和 " & ((-1 * b - t) / (2 * a)) End IfEnd Sub