【加試題】領禮物．圣誕節到了，教室里放滿了禮物，大家站在同一位置即原點（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

．