学进去

某村庄修建一条由东向西的主干线。该干线要穿过n个村庄。每个村庄都要有一条支路沿最短路经（或南或北）与主干线相连。如果给定n个村庄的位置，即它们的x坐标（东西向）和y坐标（南北向），确定主干线的最优位置，使各村庄到主干线之间的支路长度和最小。要求编写个“计算最小长度和”的程序，功能如下：在文本框Text1中依次输入这些点的坐标值（数据都用逗号分隔并以逗号结尾），单击“计算”按钮后，程序计算最小长度和，结果显示在标签Label3中。例如：五个点的坐标为（1，2），（2，2），（1，3），（3，–2），（3，3）输入格式如图所示。

（1）“计算”按钮的对象名为_______。
（2）下面加框处代码有错误，请改正：_________
（3）实现上述功能的VB程序如下，请在划线处填写合适的代码。
Private Sub Command1 Click _()
Dim y(100) As Integer       'y在数组存放纵坐标
Dim max As Integer,min As Integer,sum As Integer
'max,min为纵坐标最值,sum为路径和
Dim zb As String,num As String,n As Integer
'zb为文本框中内容,num为单个数值,n为坐标对数
zb = Textl. Text:n = 1:j = 1
For i = To Len(zb)
①______
If s = 〞,〞Then
If  Then  y(n)= Val(num):n = n+1
num =〞〞
j = j + 1
EIse
num = num + s
End If
Next i
max = y(1):min = y(1)
For i = 2 To n-1 Step 2
If max < y(i)Then max = y(i)
If min > y(i)Then min = y(i)
Next i
smin=(n-1)*(max-min)
For i = min To max            '枚举,将主干线设置在不同位置,计算距离和
sum = 0
For k = 1 To n-1 Step 2
If y(k)> i Then
sum = sum+y(k)-i
Else
②______
End If
Next k
If smin > sum Then smin = sum      '求距离和的最小值
Next i
Labe13. Caption = Str(smin)
End sub
（4）运行该程序，若文本框Text1中的内容是“1，2，2，2，1，3，3，–2，3，3”，单击计算按钮，标签Label3显示的内容是_______。