编程论坛 → VB6论坛

大家帮忙编一段小代码，急！！！谢谢了

smellytao 发布于 2012-06-18 11:45， 719 次点击

判断一元二次方程 ax-bx＋c＝0是否有解如无解则输出无解两解相同输出两解相同否则输出两解不通

5 回复

lowxiong2012-06-18 13:16

你就判断b^2-4ac的值就可以了，如果大于0，有两个解，如果等于0有唯一解，小于0则无解

smellytao2012-06-18 16:01

不懂啊，为什么是b^2-4ac？能不能给编一下？谢谢了

daba20002012-06-19 23:19

这是一元一次方程，还是一元二次方程？
看LZ的意思是后者，初中数学有讲，翻翻书吧。
前者不用我说了吧。

liyoujiao2012-06-25 22:32

Private Sub Command1_Click()
a = Val(text1)
b = Val(text2)
c = Val(text3)
If b ^ 2 - 4 * a * c > 0 Then
   .....
ElseIf b ^ 2 - 4 * a * c = 0 Then
   ......
Else
   .......
End If
End Sub

czzgwz888882012-06-28 09:52

回复楼主 smellytao

楼主ax-bx＋c＝0这是一元一次方程吧。