UC知道请教一个VB代码
来源：百度知道 编辑：UC知道 时间：2024/05/28 11:47:30
计算一元二次方程aX^2+bX+c=0的实数根，结果存储到X1，X2中．用变量K记录根个数．若无根，K＝0，若有两个同根，K＝1，若有两个不同的根，K＝2．
Private Sub Form_Load()
Dim a, b, c, x1, x2 ,k
a = InputBox("a", , 2)
b = InputBox("b", , 4)
c = InputBox("c", , 1)
If b ^ 2 - 4 * a * c < 0 Then
msgbox "无根"
k=0
Else
if b ^ 2 - 4 * a * c = 0 then
k=1
x1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / 2 * a
x2=x1
MsgBox "有一个根" & x1
else
k=2
x1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / 2 * a
x2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / 2 * a
MsgBox "解得：" & x1 & "，" & x2
end if
End If
End Sub
学习