vb编写一个程序,根据输入的系数求一元二次方程ax2+bx+c=0的根,要求考虑实根、虚根等情况,

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/16 07:33:16

vb编写一个程序,根据输入的系数求一元二次方程ax2+bx+c=0的根,要求考虑实根、虚根等情况,
如果系数使得方程没有实数根,则弹出一个只有确定按钮的消息框,提示“方程没有实根”,如果有实根则也通过消息框显示.单击“退出”则结束工程.

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, c, dt, s, s1, s2 As String
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
dt = b ^ 2 - 4 * a * c
If dt < 0 Then
TextBox4.Text = "无实根"
Exit Sub
ElseIf (dt = 0) Then
s = (-b + Math.Sqrt(dt)) / (2 * a)
TextBox4.Text = "方程的唯一解是：X= " & s
Exit Sub
Else
s1 = (-b + Math.Sqrt(dt)) / (2 * a)
s2 = (-b - Math.Sqrt(dt)) / (2 * a)
TextBox4.Text = "s1=" & s1 & Chr(13) & Chr(10) & "s2" & s2
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class

vb编写一个程序,根据输入的系数求一元二次方程ax2+bx+c=0的根,要求考虑实根、虚根等情况, 用C语言编写程序,输入一元二次方程的系数a,b,c,计算方程的根,要考虑虚根的情况, 用VB编写一个解一元二次方程 AX2+BX+C=0的程序编写一个函数,求标准的一元二次方程ax2+bx+c=0的根,要求方程的系数都可以以主程序输入来改变? vb实验输入系数a,b和c,求二次方程ax2+bx+c=0的实根”求代码, vb编程题：输入二次方程ax2+bx+c=0的三个系数,计算并输出二次方程的两个实根x1,x2,. VB输入一元二次方程ax2+bx+c=0的系数a,b,c,计算并输出一元二次方程的两个根x1,x2.求代码及窗体设计编写函数求一元二次方程ax2 +bx+c=0的解,分别通过文本框输入系数a,b,c,输出解x1,x2. 编写程序：输入a,b,c三个数,求一元二次方程ax^2+bx+c=0的根求写一个C语言程序求一元二次方程ax2+bx+c=0的跟. C语言题“输入系数的有效值,计算一元二次方程的实根和虚根”怎么编? 输入一元二次方程ax2+bx+c=0系数a,b,c的值,计算并输出一元二次方程的两个根x1和x2.