求方程ax2+bx+c=0的根 的VB程序
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:数学作业 时间:2024/06/23 03:58:36
求方程ax2+bx+c=0的根 的VB程序
求一元二次方程ax2+bx+c=0的根的VB程序,要考虑到:
1 当a=0 的 情况
2 有复数解的情况
求一元二次方程ax2+bx+c=0的根的VB程序,要考虑到:
1 当a=0 的 情况
2 有复数解的情况
Private Sub Form_Activate()
Dim a#,b#,c#,d#,x1#,x2#
a = Val(InputBox("a=","数据输入框",1))
b = Val(InputBox("b=","数据输入框",2))
c = Val(InputBox("c=","数据输入框",1))
If a = 0 Then
If b = 0 Then
If c = 0 Then Print "解得:x有无穷解" Else Print "解得:x无解"
Else
Print "解得:x=" & -c / b
End If
Else
d = b * b - 4 * a * c
If d > 0 Then
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
Print "解得:x1=" & x1,
Print "x2=" & x2
Else
x1 = -b / (2 * a)
If d = 0 Then Print "解得:x=" & x1
If d < 0 Then
x2 = Sqr(-d) / (2 * a)
Print "解得:x1=" & x1 & "+" & x2 & "i"
Print "x2=" & x1 & "-" & x2 & "i"
End If
End If
End If
End Sub
'这是我的答案,希望对你能有所帮助!
Dim a#,b#,c#,d#,x1#,x2#
a = Val(InputBox("a=","数据输入框",1))
b = Val(InputBox("b=","数据输入框",2))
c = Val(InputBox("c=","数据输入框",1))
If a = 0 Then
If b = 0 Then
If c = 0 Then Print "解得:x有无穷解" Else Print "解得:x无解"
Else
Print "解得:x=" & -c / b
End If
Else
d = b * b - 4 * a * c
If d > 0 Then
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
Print "解得:x1=" & x1,
Print "x2=" & x2
Else
x1 = -b / (2 * a)
If d = 0 Then Print "解得:x=" & x1
If d < 0 Then
x2 = Sqr(-d) / (2 * a)
Print "解得:x1=" & x1 & "+" & x2 & "i"
Print "x2=" & x1 & "-" & x2 & "i"
End If
End If
End If
End Sub
'这是我的答案,希望对你能有所帮助!
求方程ax2+bx+c=0的根 的VB程序
用VB编写一个解一元二次方程 AX2+BX+C=0的程序
vb编写一个程序,根据输入的系数求一元二次方程ax2+bx+c=0的根,要求考虑实根、虚根等情况,
编程求ax2+bx+c=0方程的根,要求a,b,c从键盘入手,程序中求出方程的所有解
求写一个C语言程序 求一元二次方程ax2+bx+c=0的跟.
怎样用VB做出这到题 方程ax2+bx+c=0 要求根据a b c系数的变化求出方程的根
C语言求方程ax2+bx+c=0的根.
用C语言求方程ax2+bx+c=0的根.
2-14 求方程ax2+bx+c=0的根 C语言作业!
求ax2+bx+c=0方程的根,a,b,c由键盘输入
VB中输入方程ax2+bx+c=0的三个系数a、b、c(设a不等于零),求方程的根(要求输出时保留小数点两位).
vb实验输入系数a,b和c,求二次方程ax2+bx+c=0的实根”求代码,