学进去

某农场到镇上的公路有多段泥泞路，为了方便通行，决定用若干块相同长度的木板铺在这些泥泞路上(木板宽度足够)。先将每段泥泞路以起点为关键字进行升序排序，再模拟铺设过程，计算所需木板最少数量。编写VB程序解决该问题，程序运行时，在文本框Text1中依次输入每一段泥泞路的起点和终点，在文本框Text2中输入单块木板的长度。单击“求解”按钮Command1 ，在标签Label3 中显示需要的木板数量，运行界面如图所示。实现上述功能的 VB 程序如下,请回答下列问题:

(1)代码“Private Sub Command1_ Click()”中的Click是_______(单选，填字母:A.对象名/B.方法名/C.事件名/D.事件处理过程名)
(2)请在划线处填入合适的代码。
(3)程序中加框处代码有错，请改正。
Private Sub Command1_Click()
Dim a(1 To 100) As Integer
Dim i As Integer, j As Integer, t As Integer, n As Integer
Dim X As Integer, L As Integer, ans As Integer
读取若干数据依次存储到数组a中，并将数据元素的总个数存储到变量n中。
'a(1)、a(2)分别存储第1段泥泞路的起点和终点，
'a(3)、a(4)分别存储第2段泥泞路的起点和终点，......
'代码略。
n=________
For i=1 To n-1
For j=n To i+ 1 Step -1
If  ____________Then
t=a(2*j):a(2*j)=a(2*j-2):a(2*j-2)=t
t=a(2*j- 1):a(2*j- 1)=a(2*j-3):a(2*j-3)=t
End If
Next j
Next i
L= Val(Text2.Text): x=-1: ans= 0
For i = 1 To n

If ___________ Then x=a(2*i- 1)

Do While x <a(2* i)
________________
ans= ans + 1
Loop
Next i
Label3.Caption = "至少需要木板块数: " + Str(ans)
End Sub