小張學(xué)習(xí)了冒泡排序后，覺得還可以再改進，用K指向要排序的數(shù)的頭部，用m指向要排序的數(shù)的尾部，每一輪先從前向后掃描k～m-1，比較相鄰若逆序則交換，找出本輪最大數(shù)放到本輪數(shù)據(jù)的尾部，再從后到前掃描剩下的序列m～k+1，比較相鄰若逆序則交換，找出本輪最小數(shù)放到本輪數(shù)據(jù)頭部．直到k=m結(jié)束程序．以下是改進后的程序請補充完整．

Dim n As Integer‘?dāng)?shù)字的個數(shù)
Rem 以下程序段為產(chǎn)生n個[10，99]之間的隨機整數(shù)并在list1中顯示
Private Sub Command1_Click （　?。?br />Randomize Time
n=50
For i=1To n
List1．AddItem Str（Int（Rnd*90）+10）
Next
End Sub
Rem 以下程序段為從list1中取出數(shù)并進行排序，最后在list2中顯示排序后的數(shù)
Private Sub Command2_Click （　　）
Dim a（50）As Integer
Dim k As Integer,m As Integer,i As Integer,j As Integer
For i=1To n
a（i）=Val（List1．List（i-1））
Next i
m=n：k=1
Do While①

k＜m

k＜m

J=m-1：m=1
For i=k To j
If a（i+1）＜a（i） Then t=a（i）：a（i）=a（i+1）：a（i+1）=t：m=i
Next i
j=②

k+1

k+1

k=1
For i=m To  j  Step-1
If a（i）＜a（i-1）Then t=a（i）：a（i）=a（i-1）：a（i-1）=t：③

k=i

k=i

Next i
Loop
For i=1To n
List2．AddItem④

str（a（i））

str（a（i））

Next i
End Sub.