在某區(qū)間內(nèi)有若干個障礙物，現(xiàn)需找出一個最大的空正方形用于建設方形場地。如圖所示，將該區(qū)間用網(wǎng)格表示（區(qū)間范圍 m*n,m、n 的值均在 1-1000 之間），障礙物（黑色圓點） 位于若干個網(wǎng)點上，障礙物個數(shù)及位置隨機生成。
對 w*h（10*8）網(wǎng)格數(shù)據(jù)進行存儲，無障礙物的位置對應數(shù)組元素數(shù)值為 0，有障礙物的位置對應數(shù)組元素數(shù)值為 1。數(shù)組 d 中數(shù)據(jù)初始化后，對應數(shù)組元素數(shù)值 d（2）=1：d（27）=1：d（33）=1：d（45）=1：d（52）=1：d（57）=1，其他數(shù)組元素數(shù)值為 0。對應最大空正方形的起始位置為 3，邊長為 4。
找最大空正方形的方法如下：①從當前位置右下角開始逐漸擴大正方形邊長，直到有障礙物出現(xiàn)，不能再擴展為止；②取下一個位置，按照步驟①繼續(xù)查找，最后 1 列為邊界，該位置上無需查找。（1）給定 7*8 網(wǎng)格，有障礙物的位置為 d（8）=1：d（18）=1：d（27）=1：d（36）=1：d（52）=1，則對應最大空正方形的起始位置和邊長分別為

15，5

15，5

。（注：兩個數(shù)字之間請用逗號“”，隔開）
（2）小李根據(jù)上述描述，設計了一個查找最大的空正方形起始位置和邊長的算法。算法的 VB 程序如下請在橫線處填入合適的代碼。
Const w=10 Const h=8
Dim d（1 To w*h） As Integer Private Sub Form_Load（　　）
'數(shù)組初始化，無障礙物的位置對應數(shù)組元素值為 0，有障礙物的位置對應數(shù)組元素數(shù)值為 1
End Sub
Private Sub Command1_Click（　?。?br />Dim i As Integer,length As Integer,maxw As Integer
Dim max As Integer
max=0
For i=1 To w*h
If i Mod w＜＞0 Then'判斷該位置是否需要查找
①

length=scan（i）

length=scan（i）

If length＞max Then max=length：maxw=i
End If
Next i
'輸出最大空正方形的起始位置和邊長，代碼略。End Sub
Function scan（k As Integer） As Integer
Dim j As Integer
Dim t As Integer,s As Integer
Dim dw As Integer
t=1
Do While k\w+1+t＜h And②

k Mod w+t＜w

k Mod w+t＜w

s=0
dw=k+w+1
For j=1 To t^2
s=s+d（dw+w*（（j-1）\t）+（j-1）Mod t）
Next j
If③

s＞0或s＜＞0

s＞0或s＜＞0

Then
Exit Do'退出循環(huán)
Else
t=t+1
End If
Loop
scan=t End Function