vb编程的一个问题,求高手帮忙啊!!!!

分别建立text1、text2、text3、text4、text5，其中text1、text2、text3用来输入一元二次方程的三个系数，用text4、text5来显示方程的两个实数解。
再建立command1并取名为“求解”。
程序清单：
Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
c = Text3.Text
m1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
m2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
Text4.Text = m1
Text5.Text = m2
End Sub

最后进行调试，如输入三个系数1，-3，2，然后单击【求解】按钮后显示两解2，1。