有m（2≤m≤n）个音箱，直线放在n（n≥2）个位置上，第i个位置坐标在a（i）上。每两个音箱相互靠近就会产生干扰，为了解决这个问题，决定把每个音箱都放在离其他音箱尽可能远的位置。为了使任意两个音箱之间的最小距离尽可能大，设计了下面的程序。程序实现了任意两个音箱之间最大的最小距离。如有5个位置5个位置分别为1，2，8，4，9，有3个音箱，那么最大的最小距离就为3，可以将3个音箱分别放在1，4，8的位置上。

（1）如果这5个位置分别为5，19，2，18，9，那么3个音箱可以放置的最大的最小距离为

7

7

（2）在横线处补上代码。
（3）有一句带框框的代码有误，请修改为正确代码，让程序可以符合题意。
Dim（1 To 5）As Integer
Dim n,k As Integer
Private Sub Form_Load

（　　）

（　　）

n Val（Text1.Text）：k=Val（Text2.Text）
’随机生成n（n＞=2）个不重复的0及以上的数字赋值给数组a,代码略
End Sub
Private Sub Command1_ Click

（　　）

（　　）

Dim m,1，r As Integer
For i=1To n
For j=1 To n-i
Ifa（j）＞a（j+1）Then
t=a（j）：a（j）=a（j+1）：a（j+1）=t
End If
Next j
Next i
l=1：r=a（n）-a（1）
Do While l＜=r
m=（1+r）\2
If 

check（m）

check（m）

Then
l=m+1
Else
r=m-1
End If
Loop
Labell.Caption=Str（r）
End Sub
Function check （ByVal d As Integer） As Boolean
Dim cow,rgt As Integer
cow=1
rgt=a（1）+d
Fori=2Ton
If a（i）＞=rgt Then.
cow=cow+1

rgt=a（i）+d

rgt=a（i）+d

End  If
Next i
If

cow＞=k

cow＞=k

Then
check=True
Else
check=False
End If
End Function