數(shù)據(jù)插入．用VB設(shè)計(jì)程序，主要功能如下：隨機(jī)產(chǎn)生15個200以內(nèi)的正整數(shù)數(shù)列，按升序排序后顯示在List1列表框中，在文本框Text1中輸入1個200以內(nèi)的正整數(shù)，單擊“插入”按鈕Command1后將其插入到數(shù)列中，并保持?jǐn)?shù)列仍然有序，顯示在列表List2中，同時在標(biāo)簽Label4中顯示插入的位置，程序界面如圖所示．

實(shí)現(xiàn)上述功能的VB程序代碼如下，請?jiān)跈M線處填上合適的代碼．
Dim a（ 1To 20）As Integer
Private Sub Command1_Click （　　）
Dim key As Integer
key=①
i=1
Do While key＞a （ i ） And （ i＜=1 5 ）
i=i+1
Loop
Label4．Caption=“該數(shù)插入的位置是：”+Str （ i ）
If  i=16  Then
a （ i ）=key
Else
For j=16  To  i+1Step-1
②
Next j
a （ i ）=key
End  If
List2．Clear
For i=1To 16
List2．AddItem a（ i）
Next i
End Sub
Private Sub Form_Load （　?。?br />'隨機(jī)生成15個200以內(nèi)的正整數(shù)
Randomize
For i=1To 15
a （ i ）=Int（Rnd*200）+1
Next i
'將15個數(shù)從小到大排序
For i=1To 14
k=i
For j=i+1To 15
If a （ k ）＞a （ j ） Then k=j
Next j
If  i＜＞k  Then
t=a（i）；a（ i）=a （ k ）：a （ k ）
End  If
Next i
'將排好序的數(shù)輸出在列表框Listl中
Listl.Clear
For i=1To 15
Listl.AddItem str （ a （ i ） ）
Next i
End Sub
程序中①橫線處應(yīng)填入

val（text1．text）

val（text1．text）

，程序中②橫線處應(yīng)填入

a（j）=a（j-1）

a（j）=a（j-1）

．