六一兒童節(jié)時(shí)，幼兒園組織小朋友們進(jìn)行“尋寶”活動(dòng)：老師找來10個(gè)盒子分別編號(hào)1-10號(hào)，把禮物裝入其中的4個(gè)盒子中，并把這10個(gè)禮品盒擺成一個(gè)圈供小朋友們“尋寶”．小朋友們都很興奮，覺得自己都能找到，但是老師對(duì)每個(gè)小朋友的尋寶路線是有規(guī)定的：從10號(hào)盒子出發(fā)（10號(hào)盒不裝禮物），第一個(gè)小朋友到1號(hào)盒子找，第二個(gè)小朋友隔1個(gè)盒子找（即3號(hào)盒子），第三個(gè)小朋友隔2個(gè)盒子找（即6號(hào)盒子），依此類推，次數(shù)不限．小朋友們幾乎找了一上午，都沒有人找到禮物．問禮物到底藏在哪4個(gè)盒子中？模擬上述過程的程序如下，程序運(yùn)行結(jié)果如圖，但加框處代碼有誤，請(qǐng)改正，加線處請(qǐng)補(bǔ)充完整．

Const n=10
Dim h（10）As Integer'h數(shù)組模擬10個(gè)盒子
Dim I As Integer
Private Sub Form_Load （　?。?br />For i=1To 10
h（i）=0'h數(shù)組元素值為0，表示沒有被訪問到
Next i
End Sub
Private Sub Command1_Click （　?。?br />Dim j As Integer,number As Long
number=0
For j=1To 1000'假設(shè)小朋友們輪流總共找了1000次
number=number+1'①
i=number Mod n
If h（i）=0Then②'h數(shù)組元素值為1，表示被訪問到
Next j
For i=1To n-1'顯示裝有禮物的盒子
If h（i）=0Then
List1．AddItem Str（i）+“號(hào)盒子“
End If
Next i
End Sub
加框處①有錯(cuò)，應(yīng)改為

number=number+j

number=number+j

．
橫線處②應(yīng)填的語句為

h（i）=1

h（i）=1

．