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

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

number=number+j

number=number+j

．
橫線處②應填的語句為

h（i）=1

h（i）=1

．