插入排序。小明用VB设计程序，主要功能如下：随机产生10个介于1到100之间的正整数数列，按升序排序后显示在List1列表框中，在文本框Text1中输入1个100以内的正整数，单击“插入”按钮Command1后将其插入到数列中，并保持数列仍然有序，显示在列表List2中，同时在标签Label4中显示插入的位置，程序界面如下图所示。
实现上述功能的VB程序代码如下，但是有两个地方有误，请改正。

Dim a（1To 15）As Integer
Dim i,j As Integer
Const n=10
Private Sub Form_Load（　　）
Randomize'随机生成n个1到100之间的正整数
For i=1To n
a（i）=Int（Rnd*100）+1
Next i
'将10个数从小到大排序
For i=1To n-1
k=i
For j=i+1To n

Next j
If i＜＞k Then
t=a（i）：a（i）=a（k）：a（k）=t
End If
Next i
'将排好序的数输出在列表框Listl中
List1．Clear
For i=1To n
List1．AddItem Str（a（i））
Next i
End Sub
Private Sub Command1_Click （　　）
Dim key As Integer
key=Val（Text1．Text）
i=1
Do While key＞a（i） And （i＜=n）
i=i+1
Loop
Label4．Caption=“该数插入的位置是：“+Str（i）
If i=11Then
a（i）=key
Else
For j=n+1To i+1Step-1

Next j
a（i）=key
End If
List2．Clear
For i=1To 11
List2．AddItem a（i）
Next i
End Sub