【加试题】领礼物．圣诞节到了，教室里放满了礼物，大家站在同一位置即原点（0，0）处，根据自己拿礼物的序号轮流去拿礼物，每个人只能拿离自己最近的礼物，每件礼物的位置用坐标（x,y）表示．如果有多个礼物离你的距离相等（精确到小数后二位）且最近，则这些礼物都归你所有．
程序运行时，在文本框Text1中输入共有礼物数n,单击“读取数据”按钮Command1，将从数据库gift.accdb中读取n个礼物的信息存储在相应的数组中，并显示在列表框List1中；在文本框Text2中输入轮到你拿礼物的序号（即第几个拿），单击“计算”按钮Command2，则在列表框List2显示你获得的礼物信息，并在列表框list2最后一行显示获得的礼物总数．程序运行界面如图所示．

实现上述功能的VB程序代码如下，请回答下列问题．
Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
Dim bh（1 To 100）As String'数组bh存储礼物的编号
Dim x（1 To 100）As Single,y（1 To 100）As Single'数组x、y分别存储礼物的横坐标和纵坐标
Dim dist（1 To 100）As Single'数组dist存储礼物到原点的距离
Dim n As Integer'变量n表示礼物数
Private Sub Command1_Click（　　）
   Dim i As Integer
'从数据库中读取n件礼物的编号、横坐标、纵坐标，并存储在相应的数组中
'代码略，下面代码的功能是计算各礼物到原点的距离
   For i=1 To n
         dist（i）=

①int（sqr（x（i）^2+y（i）^2）*100+0.5）/100

①int（sqr（x（i）^2+y（i）^2）*100+0.5）/100

         List1．AddItem bh（i）+““+Str（x（i））+““+Str（y（i））+““+Str（dist（i））
   Next i
End Sub
Private Sub Command2_Click（　　）
   Dim xh As Integer,i As Integer,j As Integer,k As Integer
   Dim temp1 As String,temp2 As Single,p As Single,s As Single
   xh=Val（Text2．Text）
'将礼物按到原点的距离从小到大排序，代码略
   i=0：j=1：s=0
   Do While（i＜xh）And（j＜=n）
       If dist（j）＜＞s Then

②s=dist（j）

②s=dist（j）

               i=i+1
       End If
       j=j+1
   Loop
   u=0
   j=j-1
        Do While

③

③

        List2．AddItem bh（j）+Str（x（j））+Str（y（j））+Str（dist（j））
        u=u+1
        j=j+1
   Loop
   List2．AddItem“total：“+Str（u）
End Sub
（1）请在程序横线处填入合适的语句：
划线①处应填入的语句为：

int（sqr（x（i）^2+y（i）^2）*100+0.5）/100

int（sqr（x（i）^2+y（i）^2）*100+0.5）/100

；
划线②处应填入的语句为：

s=dist（j）

s=dist（j）

；
划线③处应填入的语句为：

dist（j）=s and j＜=n

dist（j）=s and j＜=n

．
（2）假设现共有14件礼物，礼物的信息如图所示，你轮到第10个拿礼物，则你获得的礼物数为

2

2

．