设A和B是已知数..求解x^2-Ax=B
如何解出x...
关于计算机公式的...
答案:1 悬赏:0 手机版
解决时间 2021-05-08 14:39
- 提问者网友：伴风望海
- 2021-05-07 17:56
最佳答案
- 五星知识达人网友：夜余生
- 2021-05-07 19:24
'其实就是解一元二次方程
Private Sub Command1_Click()
Dim a, b, x As Long
a = InputBox("一元二次方程 x^2-ax=b 输入a", "")
b = InputBox("一元二次方程 x^2-ax=b 输入b", "")
x = Sqr((b + a ^ 2 / 4)) + a / 2
Print x
End Sub
Private Sub Command1_Click()
Dim a, b, x As Long
a = InputBox("一元二次方程 x^2-ax=b 输入a", "")
b = InputBox("一元二次方程 x^2-ax=b 输入b", "")
x = Sqr((b + a ^ 2 / 4)) + a / 2
Print x
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯