有m（2≤m≤n）個(gè)音箱，直線放在n（n≥2）個(gè)位置上，第i個(gè)位置坐標(biāo)在a（i）上。每?jī)蓚€(gè)音箱相互靠近就會(huì)產(chǎn)生干擾，為了解決這個(gè)問(wèn)題，決定把每個(gè)音箱都放在離其他音箱盡可能遠(yuǎn)的位置。為了使任意兩個(gè)音箱之間的最小距離盡可能大，設(shè)計(jì)了下面的程序。程序?qū)崿F(xiàn)了任意兩個(gè)音箱之間最大的最小距離。如有5個(gè)位置5個(gè)位置分別為1，2，8，4，9，有3個(gè)音箱，那么最大的最小距離就為3，可以將3個(gè)音箱分別放在1，4，8的位置上。

（1）如果這5個(gè)位置分別為5，19，2，18，9，那么3個(gè)音箱可以放置的最大的最小距離為

7

7

（2）在橫線處補(bǔ)上代碼。
（3）有一句帶框框的代碼有誤，請(qǐng)修改為正確代碼，讓程序可以符合題意。
Dim（1 To 5）As Integer
Dim n,k As Integer
Private Sub Form_Load

（　　）

（　?。?/div>
n Val（Text1.Text）：k=Val（Text2.Text）
’隨機(jī)生成n（n＞=2）個(gè)不重復(fù)的0及以上的數(shù)字賦值給數(shù)組a,代碼略
End Sub
Private Sub Command1_ Click

（　　）

（　?。?/div>
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