如圖為冒泡排序的案例：lstUnsorted,lstSorted為左右兩個列表框．

Option Explicit
Const MAXSIZE=1000
Dim d（MAXSIZE+1）As Integer,n As Integer
Private Sub Command1_Click （　　）
Dim i As Integer,j As Integer
n=Val（txtSize.Text）
If n＜=0Or n＞MAXSIZE Then
txtSize=“數(shù)據(jù)個數(shù)必須大于0！“
Exit Sub
End If
Randomize
lstUnsorted.Clear
For i=1To n
j=Int（32768*Rnd）
lstUnsorted.AddItem Str$（j）
d（i）=j
Next
Command2．Enabled=True
End Sub
Private Sub Command2_Click （　?。?冒泡
Dim i,j,TEMP，NextElement
lstSorted.Clear
For i=1to n-1
For ①Step-1
If d（j）＜d（j-1）Then
TEMP=d（j）
②
d（j-1）=TEMP
End If
Next
Next
For i=1To n
lstSorted.AddItem d（i）
Next
End Sub
問：為了實現(xiàn)上述冒泡算法的實現(xiàn)，橫線處應填入 ①

j=n to i+1

j=n to i+1

． ②

d（j）=d（j-1）

d（j）=d（j-1）

．