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

 我来答
帐号已注销
高粉答主

2020-04-06 · 说的都是干货,快来关注
知道小有建树答主
回答量:263
采纳率:95%
帮助的人:10.4万
展开全部

界面的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
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式