帮我解释一句代码!谢谢!

来源:百度知道 编辑:UC知道 时间:2024/06/03 18:20:54
这是一道求数a的平方根的问题,要求用递归函数法!
!!!帮忙解释代码中带“★”句子的功能和意义!!!
(其它疑惑:Call不是在调用子过程中用的吗???怎么在函数里用了??)

Function pfg(a!, x1, x2)
If Abs(x2 - x1) >= 0.00001 Then
x1 = x2
x2 = 1 / 2 * (x1 + a / x1)

★ Call pfg(a, x1, x2)★

End If
pfg = x2
End Function

Private Sub Form_Click()
Dim a!
a = InputBox("输入")
z1 = 0: z2 = a
Form1.Cls
Print "数" & a & "的平方根为:";
Print pfg(a, z1, z2)
End Sub

Private Sub Form_Load()
Show
FontSize = 15
Print "单击窗体输入数字a,求其平方根"

End Sub

这样写构成了一个类似循环的结构,当两个值相减的绝对值小于0.00001时才跳出循环;Call不仅能调用子过程,还能用于调用函数,不过没有返回值,还可调用API函数

没有返回值的函数也可以这样调用,其实这个函数等同于过程。