以下VB程序段用插入排序的方法实现10个数据升序排序: Dim tmp As Integer
Dim a(1 To 10) As Integer
Private Sub Command1_Click()
For i=2 To 10
Text1.Text = ""
For i= 1 To 5
For j=i+1 To 6
If s(i) + s(i) < s(j) + s(i) Then
t= s(j): s(j)= s(i): s(i)=t
End If
Next j
Next i
For i=1 To 6
Text1.Text = s(i) + Text1.Text
Next i
If Then
tmp = a(i)
For j= To 1 Step -1 ‘依次后移
If tmp > a(j) Then Exit For
a(j+1)= a(j)
Next j
‘插入数据
End If
Next i
For i= 1 To 10
List1.Addltem a(i)
Next i
End Sub
要实现上述功能,方框①②③中的语句分别是( )