请看一段菜鸟代码
Private Sub Command1_Click()
Dim a%, b%, c%, x1!, x2!, d!, f!
a = Text1.Text: b = Text2.Text: c = Text3.Text
f = (b ^ 2 - 4 * a * c): d = a * 2
If f < 0 Then
MsgBox "判别式小于零，没有实数解！ "
End If
Exit Sub
If f > 0 Then
x1 = Round((-b + Sqr(f)) / d, 4): x2 = Round((-b - Sqr(f)) / d, 4)
Text4.Text = x1: Text5.Text = x2
End If
End Sub
这段代码是正确的，但是在我点击了按钮以后，在Text4和Text5中都什么都不显示，就是说没有什么反应，但是没有错误啊什么的？请问怎么办？
另外，还想问问：x1 = Round((-b + Sqr(f)) / d, 4)什么意思，关键是函数Round是什么用法，谢谢了
[解决办法]
Exit Sub '这一行程序已经退出了，当然后面的textbox中无显示
If f > 0 Then
x1 = Round((-b + Sqr(f)) / d, 4): x2 = Round((-b - Sqr(f)) / d, 4)
Text4.Text = x1: Text5.Text = x2
End If
round是返回一个数值，该数值是按照指定的小数位数进行四舍五入运算的结果。
[解决办法]
Exit Sub之后的代码没机会运行.交换后仅仅在f < 0的时候不运行后面的语句
