用VB编程,用select case语句实现,计算一元二次方程ax^2+bx+c=o的实根.有以下几种情况:
来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/04/28 11:46:20
用VB编程,用select case语句实现,计算一元二次方程ax^2+bx+c=o的实根.有以下几种情况:
1,a=0,不是一元二次方程
2,b^2-4ac=0,有两个相等的实根
3,b^2-4ac>0,有两个不相等的实根
1,a=0,不是一元二次方程
2,b^2-4ac=0,有两个相等的实根
3,b^2-4ac>0,有两个不相等的实根
Option Explicit
Private Sub Command1_Click()
Dim a,b,c
a = 1:b = -5:c = 6
Print a,b,c & vbNewLine & fc(a,b,c)
End Sub
Function fc(a,b,c)
Dim t
Select Case a
Case 0:fc = "不是一元二次方程"
Case Else
t = b ^ 2 - 4 * a * c
Select Case t
Case 0:fc = "有两个相等的实根:" & (-1) * b / 2 / a
Case Is > 0:fc = "有两个不相等的实根:" & ((-1) * b + Sqr(t)) / 2 / a & Space(4) & ((-1) * b - Sqr(t)) / 2 / a
Case Else
fc = "无实根"
End Select
End Select
End Function
Private Sub Command1_Click()
Dim a,b,c
a = 1:b = -5:c = 6
Print a,b,c & vbNewLine & fc(a,b,c)
End Sub
Function fc(a,b,c)
Dim t
Select Case a
Case 0:fc = "不是一元二次方程"
Case Else
t = b ^ 2 - 4 * a * c
Select Case t
Case 0:fc = "有两个相等的实根:" & (-1) * b / 2 / a
Case Is > 0:fc = "有两个不相等的实根:" & ((-1) * b + Sqr(t)) / 2 / a & Space(4) & ((-1) * b - Sqr(t)) / 2 / a
Case Else
fc = "无实根"
End Select
End Select
End Function
用VB编程,用select case语句实现,计算一元二次方程ax^2+bx+c=o的实根.有以下几种情况:
用vb做:输入一元二次方程ax^2+bx+c=0的系数abc,计算并输出一元二次方程的两个根x1,x2
已知系数a.b C..使得ax²+bx+c有实根.求该一元二次方程的解.用c语言编程
用VB解一元二次方程ax^2+bx+c=0的流程图
求救matlab高手!编程实现一元二次方程ax^2+bx+c=0?
编程计算 急求!编程计算并输出一元二次方程ax^2+bx+c=0的两个实根,-b±根号b^2-4ac/2a,其中a、b、
用VF语句回答以下试题 求一元二次方程AX^2+bx+c=0,其中A、B、C的值自定义
用MATLAB编程求解一元二次方程ax^2 +bx+c=0的根,其中a、b、c由键盘输入.
设正系数一元二次方程ax^2+bx+c=0有实根,证明
设正系数一元二次方程ax^2+bx+c=0有实根,证明:
vb编程题:输入二次方程ax2+bx+c=0的三个系数,计算并输出二次方程的两个实根x1,x2,.
求解一元二次方程的两个实根x1、x2,该方程的系数是a=2 b=-4 c=1.用求根公式.java语句编程,