某校大门外长度为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