插入排序。小明用VB設(shè)計(jì)程序，主要功能如下：隨機(jī)產(chǎn)生10個(gè)介于1到100之間的正整數(shù)數(shù)列，按升序排序后顯示在List1列表框中，在文本框Text1中輸入1個(gè)100以內(nèi)的正整數(shù)，單擊“插入”按鈕Command1后將其插入到數(shù)列中，并保持?jǐn)?shù)列仍然有序，顯示在列表List2中，同時(shí)在標(biāo)簽Label4中顯示插入的位置，程序界面如下圖所示。
實(shí)現(xiàn)上述功能的VB程序代碼如下，但是有兩個(gè)地方有誤，請(qǐng)改正。

Dim a（1To 15）As Integer
Dim i,j As Integer
Const n=10
Private Sub Form_Load（　?。?br />Randomize'隨機(jī)生成n個(gè)1到100之間的正整數(shù)
For i=1To n
a（i）=Int（Rnd*100）+1
Next i
'將10個(gè)數(shù)從小到大排序
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
'將排好序的數(shù)輸出在列表框Listl中
List1．Clear
For i=1To n
List1．AddItem Str（a（i））
Next i
End Sub
Private Sub Command1_Click （　?。?br />Dim key As Integer
key=Val（Text1．Text）
i=1
Do While key＞a（i） And （i＜=n）
i=i+1
Loop
Label4．Caption=“該數(shù)插入的位置是：“+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