VB6一个递归的问题（vb编写递归函数求1+2+3+......n的值）

一实习生对我说：“老师，为何我写的这个二分猜值算法求平方根的解一直是0？递归写的没有问题啊？函数的输入值与输出值之间的关系，终止条件都没有问题，为何会出现结果为0的问题？”“好吧……这个问题说简单也是挺简单的！你先去用debug看下每次调用的值，然后会发现问题所在。” 这里我把这段程序摘出来，大家有兴趣的话也一起分析下！熟手权当消遣时间。

按照设计的意图，输入9，输出为3。但是它的输出为0！

Private Function srs(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) As Integer
    Dim m As Integer
    If Abs(x - y) <= 1 Then
        srs = x
        Exit Function
    End If

    m = (x + y) / 2
    If m * m - z <= 0 Then
   		 srs m, y, z
    Else
    		srs x, m, z
    End If
End Function

Private Sub Command1_Click()
		Label1.Caption = srs(0, 9, 9)
End Sub