用VB编写一个解一元二次方程 AX2+BX+C=0的程序
答案:2 悬赏:40 手机版
解决时间 2021-01-25 11:39
- 提问者网友：心如荒岛囚我终老
- 2021-01-25 04:16
用VB编写一个解一元二次方程 AX2+BX+C=0的程序
最佳答案
- 五星知识达人网友：詩光轨車
- 2021-01-25 04:48
Private Sub Command1_Click() Dim a As Single, b As Single, c As Single Dim d As Single, x1 As Single, x2 As Single a = InputBox(请输入一元二次方程的系数a) b = InputBox(请输入一元二次方程的系数b) c = InputBox(请输入一元二次方程的系数c) If a = 0 Then a = InputBox(因为a≠0,你输入的a＝0,请重新输入系数a) End If d = b * b - 4 * a * c If d >= 0 Then x1 = (-b + Sqr(d)) / (2 * a) x2 = (-b - Sqr(d)) / (2 * a) Print 系数为; a; b; c; 的一元二次方程的根分别为; x1 Print 系数为; a; b; c; 的一元二次方程的根分别为; x2 Else Print 此方程在实数范围内无解 End If End Sub
全部回答
- 1楼网友：蕴藏春秋
- 2021-01-25 05:18
这个解释是对的
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯