六一儿童节时，幼儿园组织小朋友们进行“寻宝”活动：老师找来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

．