【加试题】计算整数t的近似算术平方根算法如下：
x_i+1=

1

2

（x_i+

t

x

i

），i=1，2，3，…
先取x₁=1，然后根据公式计算x₂，再由x₂计算x₃，…直到|x_i-x_i-1|＜0.00001，则x_i为解．
小李编写了一个VB程序实现上述功能：运行程序时，在Text1中输入一个正整数，单击命令按钮Command1，文本框Text2显示该数的算术平方根．
程序代码如下，请完成以下两小题．
Function fun（x As Integer,x0 As Double） As Double
    Dim x1 As Double
    x1=（x0+x/x0）/2
    If Abs（x1-x0）＜0.00001 Then
       fun=x1
    Else
       fun=

fun（x,x1）

fun（x,x1）

    EndIf
End Function
Private Sub Command1_Click（　　）
    Dim t As Integer
    Dim k As Double
    t=Val（Text1．Text）
    k=fun（t,1）
    k=

Int（（k+0.005）*100）/100

Int（（k+0.005）*100）/100

'保留两位小数的四舍五入
    Text2．Text=Str（k）
End Sub
（1）题中函数fun主要采用的算法思想是

递归

递归

；
（2）程序中①横线处应填写的代码是

fun（x,x1）

fun（x,x1）

；
程序中②横线处应填写的代码是

Int（（k+0.005）*100）/100

Int（（k+0.005）*100）/100

．