求解一道VB题：输入一元二次方程的系数a,b,c的值，编程求解一元二次方程ax^2+bx+c=0的根
答案:1 悬赏:30 手机版
解决时间 2021-03-31 09:09
- 提问者网友：不要迷恋哥
- 2021-03-30 19:10
求解一道VB题：输入一元二次方程的系数a,b,c的值，编程求解一元二次方程ax^2+bx+c=0的根
最佳答案
- 五星知识达人网友：北城痞子
- 2021-03-30 20:25
界面的abc输入你自己托文本框获取把Private Sub Command1_Click() Dim a As Single, b As Single, c As Single, t As Double a = Val (Text1.Text) b = Val (Text2.Text) c = Val (Text3.Text) If b ^ 2 - 4 * a * c < 0 Then MsgBox "无解" Exit Sub End If t = (b ^ 2 - 4 * a * c) ^ (1 / 2) ' b平方-4ac开根号 if t = 0 Then MsgBox "唯一解为：" & (-1 * b / (2 * a)) Else MsgBox "2个解分别为：" & ((-1 * b + t) / (2 * a)) & " 和 " & ((-1 * b - t) / (2 * a)) End IfEnd Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯