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

15，5

15，5

。（注：兩個(gè)數(shù)字之間請(qǐng)用逗號(hào)“”，隔開）
（2）小李根據(jù)上述描述，設(shè)計(jì)了一個(gè)查找最大的空正方形起始位置和邊長(zhǎng)的算法。算法的 VB 程序如下請(qǐng)?jiān)跈M線處填入合適的代碼。
Const w=10 Const h=8
Dim d（1 To w*h） As Integer Private Sub Form_Load（　?。?br />'數(shù)組初始化，無障礙物的位置對(duì)應(yīng)數(shù)組元素值為 0，有障礙物的位置對(duì)應(yīng)數(shù)組元素?cái)?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
'輸出最大空正方形的起始位置和邊長(zhǎng)，代碼略。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