求解一道VB题:输入一元二次方程的系数a,b,c的值,编程求解一元二次方程ax^2+bx+c=0的根
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)。
含义及特点:
(1)一元二次方程的解(根)的意义:能使一元二次方程左右两边相等的未知数的值称为一元二次方程的解。一般情况下,一元二次方程的解也称为一元二次方程的根(只含有一个未知数的方程的解也叫做这个方程的根)。
(2)由代数基本定理,一元二次方程有且仅有两个根(重根按重数计算),根的情况由判别式决定。
扩展资料:
一元二次方程成立必须同时满足三个条件:
①是整式方程,即等号两边都是整式,方程中如果有分母;且未知数在分母上,那么这个方程就是分式方程,不是一元二次方程,方程中如果有根号,且未知数在根号内,那么这个方程也不是一元二次方程。
②只含有一个未知数;
③未知数项的最高次数是2。
参考资料来源:百度百科-一元二次方程
推荐于2017-12-16
展开全部
界面的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
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询