某校大門外長度為n米（n≤10000）的馬路上有一排樹，每兩棵相鄰的樹之間的間隔都是1米。我們可以把馬路看成一個數(shù)軸，馬路的一端在數(shù)軸0的位置，另一端在n的位置；數(shù)軸上的每個整數(shù)點，即0，1，2，……，n,都種有一棵樹。
由于馬路上有m（m≤100）個區(qū)域要用來建地鐵。這些區(qū)域用它們在數(shù)軸上的起始點和終止點表示。已知任一區(qū)域的起始點和終止點的坐標(biāo)都是整數(shù)，區(qū)域之間可能有重合的部分?，F(xiàn)在要把這些區(qū)域中的樹（包括區(qū)域端點處的兩棵樹）移走。你的任務(wù)是計算將這些樹都移走后，馬路上還有多少棵樹。
編寫VB程序，實現(xiàn)上述功能。運行程序，在文本框Text1中輸入正整數(shù)n（n≤10000），表示馬路的長度；在文本框Text2中輸入偶數(shù)個正整數(shù)，正整數(shù)之間用逗號分隔，兩個一組，分別表示一個區(qū)域的起始點和終止點坐標(biāo)值（起始點坐標(biāo)值≤終止點坐標(biāo)值），最后以逗號結(jié)束。單擊“計算”按鈕Command1，在標(biāo)簽Label3中顯示馬路上剩余的樹的數(shù)目。程序運行界面如圖所示。

???????請回答下列問題：
（1）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適的代碼。
（2）語句“t=““”應(yīng)添加在程序中

C

C

處（從ABCD處選擇一項填寫）
Private Sub Command1_Click （　?。?br />Dim a（0 To 10000）As Integer
Dim n As Integer,start1 As Integer,end1 As Integer
Dim i As Integer,j As Integer,k As Integer,sum As Integer
Dim s As String,t As String,c As String
n=Val（Text1.Text）：s=Text2.Text
For i=0 To n
a（i）=1
Next i
k=0：t=““
For i=1 To Len（s）
c=Mid（s,i,1）
If c＜＞“，“Then
①

t=t+c

t=t+c

Else
k=k+1
If②

kMod2=1

kMod2=1

Then
start1=Val（t）
'A
Else
end1=Val（t）
For j=start1 To end1
③

a（j）=0

a（j）=0

Next j
'B
End If
'C
End If
'D
Next i
sum=0
For i=0 To n
If a（i）=1 Then sum=sum+1
Next i
Label3.Caption=Str（sum）
End Sub