小明最近学习了一种插入排序的算法。算法的基本思想如下：每次将一个待排序的记录，按其关键字大小插入前面已经排好序的记录集中，使记录依然有序，直到所有待排序记录全部插入完成。
如数据25 54 8 54
21 排序过程如下(n=5):
待排序数据：【25】
54 8 54 21
i=2:【25 54】 8 54 21
i=3:【8 25 54】 54 21
i=4:【8 25 54 54】 21
i=5:【8 21 25 54 54】
程序产生10个-100~100之间的整数，从小到大排序后输出，运行结果如图所示：
实现上述功能的VB程序代码如下，但加框处代码有错，请改正。
Dim a(0 To 10) As Integer
Private Sub Command1_Click()’产生10个随机数放在数组a中
Dim i As Integer
For i = 1 To 10
‘①
List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer
For i = 2 To 10
a(0) = a(i)
j = i - 1
Do While a(0) < a(j)
‘②
j = j - 1
Loop
a(j + 1) = a(0)
Next i
For i = 1 To 10
List2.AddItem Str(a(i))
Next i
End Sub
①处的代码修改为{#blank#}1{#/blank#}。
②处的代码修改为{#blank#}2{#/blank#}。
