vb编写一个程序,根据输入的系数求一元二次方程ax2+bx+c=0的根,要求考虑实根、虚根等情况,如果系数使得方程没有实数根,则弹出一个只有确定按钮的消息框,提示“方程没有实根”,如果有实根则也通过消息框显示.单击“退出”则结束工程.
问题描述：
vb编写一个程序,根据输入的系数求一元二次方程ax2+bx+c=0的根,要求考虑实根、虚根等情况,
如果系数使得方程没有实数根,则弹出一个只有确定按钮的消息框,提示“方程没有实根”,如果有实根则也通过消息框显示.单击“退出”则结束工程.
答
Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim a, b, c, dt, s, s1, s2 As Stringa = Val(TextBox1.Text)b = Val(TextBox2....