编写“区间覆盖”程序，实现如下功能：输入数轴上的若干个封闭区间范围（均为正整数且左坐标<右坐标），单击“统计”按钮，计算覆盖所有区间所需的数据点的个数。
例如：依次输入以下区间：[2 5]，[4 7]，[1 4]，[5 9]，[4 5]，[2 4]，数轴如下：
坐标点“4”覆盖了[2 5]，[4 7]，[1 4]，[4 5]，[2 4]共5个区间，坐标点“9”覆盖了[5 9]区间，所以覆盖这6个区间所需的坐标点数为2个。
程序运行界面如图所示。
实现上述功能的VB代码如下：
Dim n As Integer
Dim a(1 To 100) As Integer
Private Sub Input_Click()
'输入n个正整数区间，依次存放到数组
'a(1)到a(2*n)中，并在List1中显示
'代码略
End Sub
Private Sub Count_Click()
Dim right As Integer, t As Integer, k As Integer
Dim tmp As Integer, i As Integer, ans As Integer
‘改错
ans = 1: t = 3
Do While t < 2 * n
If ① Then
If a(t + 1) < right Then right = a(t + 1)
Else
ans = ans + 1
right = a(t + 1)
End If
②
Loop
Text3.Text = Str(ans)
End Sub
请回答下列问题：
