vb 一元二次方程 输入一元二次方程 ax^2+bx+c=0的系数a、b、c、计算并输出一元二次方程的两个根、x1、x2
来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/05/05 14:30:22
vb 一元二次方程
输入一元二次方程 ax^2+bx+c=0的系数a、b、c、计算并输出一元二次方程的两个根、x1、x2
输入一元二次方程 ax^2+bx+c=0的系数a、b、c、计算并输出一元二次方程的两个根、x1、x2
Private Sub Form_Load()
a = InputBox("a=")
b = InputBox("b=")
c = InputBox("c=")
If b ^ 2 - 4 * a * c < 0 Then
MsgBox "在实数范围内无解!"
ElseIf b ^ 2 - 4 * a * c = 0 Then
MsgBox "只有一个" & Str(-b / 2 / a )
Else
MsgBox "第一个" & Str(-b / 2 / a + Sqr(b ^ 2 - 4 * a * c) / 2 / a) & ",第二个" & Str(-b / 2 / a - Sqr(b ^ 2 - 4 * a * c) / 2 / a)
End If
End Su
a = InputBox("a=")
b = InputBox("b=")
c = InputBox("c=")
If b ^ 2 - 4 * a * c < 0 Then
MsgBox "在实数范围内无解!"
ElseIf b ^ 2 - 4 * a * c = 0 Then
MsgBox "只有一个" & Str(-b / 2 / a )
Else
MsgBox "第一个" & Str(-b / 2 / a + Sqr(b ^ 2 - 4 * a * c) / 2 / a) & ",第二个" & Str(-b / 2 / a - Sqr(b ^ 2 - 4 * a * c) / 2 / a)
End If
End Su
用vb做:输入一元二次方程ax^2+bx+c=0的系数abc,计算并输出一元二次方程的两个根x1,x2
输入一元二次方程ax2+bx+c=0系数a,b,c的值,计算并输出一元二次方程的两个根x1和x2.
VB输入一元二次方程ax2+bx+c=0的系数a,b,c,计算并输出一元二次方程的两个根x1,x2.求代码及窗体设计
C语言 任意输入一元二次方程的系数a,b,c,计算并输出一元二次方程的所有根
编写函数求一元二次方程ax2 +bx+c=0的解,分别通过文本框输入系数a,b,c,输出解x1,x2.
vb编程题:输入二次方程ax2+bx+c=0的三个系数,计算并输出二次方程的两个实根x1,x2,.
设X1,X2是一元二次方程ax*2+bx+c=0的两个根,试推导x1+x2=-b/a,x1x2=c/a
求助:vf编程 输入一元二次方程的系数a,b,c的值,编程求解一元二次方程ax^(2)+bx+c=0
探索一元二次方程ax+bx+c=0(a、b、c为常数,a≠0)的两根x1、x2与系数a、b、c的关系
设一元二次方程ax^2+bx+c=0的两个根为X1,X2,那么X1-X2=(√b^2-4ac)/a
如果x1,x2是一元二次方程ax^2+bx+c的两个根,那么有x1+x2=-b/a,x1x2=c/a.这是一元二次方程的
已知实系数一元二次方程ax^2+bx+c=0有两个实数根x1,x2,a>b>c,求d=|x1-x2|的取值范围.