vb二元一次方程代码

Question

Private Sub Command1_Click()
Dim A As Double, B As Double, C As Double, p As Double, X1 As Double, X2 As Double
Text1.Text = A
Text2.Text = B
Text3.Text = C
Text4.Text = X1
Text5.Text = X2

p = B ^ 2 - 4 * A * C
If p < 0 Then
Msgbos "无实数解"
ElseIf p > 0 Then
X1 = (-B + Sqr(p)) / 2 * A
X2 = (-B - Sqr(p)) / 2 * A
ElseIf p = 0 Then
X1 = (-B + Sqr(p)) / 2 * A
X1 = X2
End If
End Sub

各位高手帮我看看这个错在哪里！启动时提示子程序或函数未定义，不懂呀，求解释！

Answer 1

1.先把Text1.Text=A........Text3.Text=C全部改为A=Text1.text 这种格式，Text4.5不变
2.把msgbos改成msgbox看看
3.把Text4.Text = X1，Text5.Text = X2，放到end if 后面。
4.把x1=x2改为x2=x1
这样就行了
修改后的代码

Private Sub Command1_Click()
Dim A As Double, B As Double, C As Double, p As Double, X1 As Double, X2 As Double
A = Text1.Text
B = Text2.Text
C = Text3.Text

p = B ^ 2 - 4 * A * C
If p < 0 Then
MsgBox "无实数解"
ElseIf p > 0 Then
X1 = (-B + Sqr(p)) / 2 * A
X2 = (-B - Sqr(p)) / 2 * A
ElseIf p = 0 Then
X1 = (-B + Sqr(p)) / 2 * A
X2 = X1
End If
Text4.Text = X1
Text5.Text = X2
End Sub
我试过了，没啥问题，顺便说下，有问题先别急着问，自己试着改改，当然，实在不行再问别人，网上的人也会很乐意跟你交流，希望对你有帮助~

追问

谢谢，你这样改后可以了！
但是你能解释下为什么这样吗？还有，我先把msgbox改过来了再试了下。没有提示错误，但是等我把系数输进去后，结果全是0，这又是为什么？

追答

看看有没有把x1=x2改为x2=x1，如果没改的话，你的x1求出来了，又令它=x2(默认值为0)，那么x2就会=x1=0，改成x2=x1就没事了，其它代码没啥问题。还有问题的话hi我吧。

Answer 2

我看错了。。。