作业帮 > 综合 > 作业

怎样用VB做出这到题 方程ax2+bx+c=0 要求根据a b c系数的变化求出方程的根

来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/07/06 04:28:37
怎样用VB做出这到题 方程ax2+bx+c=0 要求根据a b c系数的变化求出方程的根
Private Sub Command1_Click()
Dim pbs As Single
pbs = b * b - 4 * a * c
If pbs > 0 Then
pbs = Sqr(pbs)
Text4 = Format((-b + pbs) / 2 / a,"0.00")
Text5 = Format((-b - pbs) / 2 / a,"0.00")
ElseIf pbs = 0 Then
Text4 = Format(-b / 2 / a,"0.00")------有哪位大哥能告诉我这步是哪里错了,本人感激不尽!
Text5 = Format(-b / 2 / a,"0.00")
Else
pbs = Sqr(-pbs)
Text4 = Format((-b + pbs) / 2 / a,"0.00") + "+i"
Text5 = Format((-b + pbs) / 2 / a,"0.00") + "-i"
End If
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Text1_Change()
If Text1 "" And Not IsNumeric(Text1) Then
Text1 = ""
Text1.SetFocus
Else
a = Text1
End If
End Sub
Private Sub Text2_Change()
If Text2 "" And Not IsNumeric(Text2) Then
Text2 = ""
Text2.SetFocus
Else
b = Text2
End If
End Sub
Private Sub Text3_Change()
If Text3 "" And Not IsNumeric(Text3) Then
Text3 = ""
Text3.SetFocus
Else
b = Text3
End If
End Sub
我到底错在哪里呀
小弟感激万分
你这样做太烦琐
这样更简洁些：
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
Dim c As Single
Dim z As Single
Dim x1 As Single
Dim x2 As Single
a = Text1.Text
b = Text2.Text
c = Text3.Text
z = b ^ 2 - 4 * a * c
If a = 0 Then
If b = 0 And c = 0 Then
Text4 = "无穷解"
Text5 = "无穷解"
ElseIf b = 0 Then
Text4 = "无解"
Text5 = "无解"
Else
x1 = -c / b
Text4 = x1
Text5 = "无解"
End If
怎样用VB做出这到题 方程ax2+bx+c=0 要求根据a b c系数的变化求出方程的根 VB中输入方程ax2+bx+c=0的三个系数a、b、c（设a不等于零）,求方程的根（要求输出时保留小数点两位）. 编程求ax2+bx+c=0方程的根,要求a,b,c从键盘入手,程序中求出方程的所有解 vb实验输入系数a,b和c,求二次方程ax2+bx+c=0的实根”求代码, 求方程ax2+bx+c=0的根 的VB程序 求ax2+bx+c=0方程的根,a,b,c由键盘输入 vb编写一个程序,根据输入的系数求一元二次方程ax2+bx+c=0的根,要求考虑实根、虚根等情况, 怎样用vb求一元两次方程ax^2+bx+c=0的根? 已知关于x的两个方程ax2+bx+c=0①，与ax2+（b-a）x+c-b=0②，它们的系数满足a＞b＞c，方程①有两个 C语言程序设计求方程的解：求ax2+bx+c=0方程的实根.a,b,c由键盘输入. 若方程：ax2+bx+c=0的系数都是奇数，则方程具有整数根的个数是（　　） 已知方程ax2+bx+c=0的一个根是-1，则a-b+c=______．