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

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

C

C

處（從ABCD處選擇一項填寫）
Private Sub Command1_Click （　　）
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