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

（1）Cmd1對象屬于

D

D

類（單選，填字母：A．Form B．Label C．TextBox D．CommandButton）。
（2）實現上述功能的 VB 程序如下，請在橫線處填入合適的代碼。
（3）程序中加框處代碼有錯，請改正。
Dim a（1 To 100）As Integer,n As Integer
Private Sub Form_Load （　?。?br />'本過程從數據庫中讀取 n 個 IP 地址區(qū)間數據，并依次存入數組 a（1）、…、a（2*n）中'
對能通過過濾的 IP 區(qū)間按區(qū)間起始端點升序排序
'代碼略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ū)間數據，代碼略
ip＜a（1）And ip＞a（pos）
IfThen'判斷請求的 IP 地址
      Label4．Caption=″IP 需過濾″
Else
i=1：f=False
Do While i＜=pos And Not f If③Then
i=i+1 Else
Label4．Caption=“IP 不需過濾“f=True
End If Loop
If f=False Then Label4．Caption=“IP需過濾“End If
End Sub