IPV4點(diǎn)分十進(jìn)制IP地址可轉(zhuǎn)換為十進(jìn)制數(shù)字形式。編寫“模擬IP過(guò)濾器”程序，程序功能如下：程序運(yùn)行時(shí)，在列表框List1中顯示能通過(guò)過(guò)濾的IP區(qū)間（IP 區(qū)間按起始端點(diǎn)升序排序），在文本框Text1中輸入需要判斷的IP地址，單擊“驗(yàn)證”按鈕Cmd1，若IP區(qū)間有重疊區(qū)間則作合并處理，并顯示在列表框List2中，然后對(duì)輸入的IP地址進(jìn)行判斷，判斷結(jié)果顯示在標(biāo)簽Label4中。程序運(yùn)行界面如圖所示：

（1）Cmd1對(duì)象屬于

D

D

類（單選，填字母：A．Form B．Label C．TextBox D．CommandButton）。
（2）實(shí)現(xiàn)上述功能的 VB 程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。
（3）程序中加框處代碼有錯(cuò)，請(qǐng)改正。
Dim a（1 To 100）As Integer,n As Integer
Private Sub Form_Load （　　）
'本過(guò)程從數(shù)據(jù)庫(kù)中讀取 n 個(gè) IP 地址區(qū)間數(shù)據(jù)，并依次存入數(shù)組 a（1）、…、a（2*n）中'
對(duì)能通過(guò)過(guò)濾的 IP 區(qū)間按區(qū)間起始端點(diǎn)升序排序
'代碼略End Sub
Private SubCmd1_Click （　?。?br />Dim ip As Integer,L As Integer,R As Integer Dim i As Integer,pos As Integer,f As Boolean ip=Val（Text1．Text）
L=a（1）：R=a（2）：i=3：pos=1'合并重疊區(qū)間
Do While i＜=2*n-1
       If①Then
            If a（i+1）＞R Then R=a（i+1）
       Else
            a（2*pos-1）=L
            a（2*pos）=R
            pos=pos+1
            L=a（i）
            R=a（i+1）
        End If
  ②
          Loop
a（2*pos-1）=L：a（2*pos）=R
'依次輸出排序合并后的區(qū)間數(shù)據(jù)，代碼略
ip＜a（1）And ip＞a（pos）
IfThen'判斷請(qǐng)求的 IP 地址
      Label4．Caption=″IP 需過(guò)濾″
Else
i=1：f=False
Do While i＜=pos And Not f If③Then
i=i+1 Else
Label4．Caption=“IP 不需過(guò)濾“f=True
End If Loop
If f=False Then Label4．Caption=“IP需過(guò)濾“End If
End Sub