早教吧作业答案频道 -->其他-->
vb编写一个程序,根据输入的系数求一元二次方程ax2+bx+c=0的根,要求考虑实根、虚根等情况,如果系数使得方程没有实数根,则弹出一个只有确定按钮的消息框,提示“方程没有实根”,如果有实根
题目详情
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
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编写一个程序,根据输入的...的网友还看了以下:
如图是测量斜面机械效率的实验装置,已知物重G为8N,弹簧测力计的示数如图所示,下列有关实验过程的说 2020-06-16 …
下列关于光合作用探究历程中有关实验过程、现象、结论的描述正确的是()A.恩格尔曼的实验证明了光合作 2020-07-06 …
下列关于光合作用探究历程中有关实验过程、现象、结论的描述正确的是()A.萨克斯的实验中遮光组为对照 2020-07-06 …
下列是生长素发现实验各阶段科学家的实验过程及结论,有关组合正确的是()科学家实验过程实验结论①达尔 2020-07-13 …
下列有关中和热的说法正确的是()A.表示中和热的热化学方程式:H+(l)+OH-(l)═H2O(l 2020-07-17 …
下列有关PCR技术的实验过程叙述,不正确的是()A、变性过程中破坏的是DNA分子内碱基对之间的氢键, 2020-11-02 …
下列有关中和热的说法正确的是()A.中和热的实验过程中,环形玻璃搅拌棒材料若用铜代替,则测量出的中和 2020-11-17 …
有关“探索IBA(生长素类似物)促进葡萄插条生根的最适浓度”实验的叙述,不正确的是()A.预实验实施 2020-11-22 …
现有一量程未准确确定的电压表V1,刻度盘总共有N个小格、且刻度均匀,已知其量程在4.8-6.0V之间 2020-12-15 …
象棋比赛中每个选手都和其他选手恰好比赛一局,每局赢者得2分,输者得0分,平局各记1分,今有四个同学统 2021-01-01 …