摘要：
Dim aa As Double, bb As Double '分别接收findway有根区间两端值的变量Dim x(1) As Double '分别接收ercigenway的根'1.0 ercigenway 求二次方程实根 -已测试Private Sub ercigenway(a As Single, b As Single, c As Single) 'a、b、c对应为二次方程的系数Dim d As Doubled = b ^ 2 - 4 * a * cIf d < 0 Then MsgBox "Δ小于0，没有实根", , &quo 阅读全文
posted @ 2011-12-09 10:21 yunbo 阅读(993) 评论(0) 推荐(0) 编辑