給定一個數(shù)組（有n個元素），小李通過邊分段、邊合并的方式將n個數(shù)據處理成一個非降序數(shù)據段（a（1）≤a（2）≤a（3）≤……≤a（n）），每一輪數(shù)據處理方法如下：
（1）查找相鄰兩個非降序數(shù)據段
在未處理的數(shù)據區(qū)域中，從前往后找出第一個最長非降序數(shù)據段。若該數(shù)據段后而沒有元素，則本輪處理完畢；否則在第1個數(shù)據段的后面，從前往后找出數(shù)組中第二個最長非降序數(shù)據段。
（2）合并兩個數(shù)據段
借助數(shù)組tmp,將查找到的兩個相鄰數(shù)據段合并成一個非降序數(shù)據段，然后將合并后的數(shù)據依次存回到原數(shù)組中。
（3）若數(shù)組中還有未處理的數(shù)據，則重復（1）（2）步驟。
每一輪數(shù)據處理完畢后，重新從數(shù)組第1個數(shù)據開始進行下一輪處理。若檢測到某一輪沒有合并處理，則說明n個數(shù)據已構成非降序數(shù)據段，數(shù)據處理結束。

（1）根據上述描述，若數(shù)組各元素為“3，9，7，6，8，2，1，5，7，4”，則第一輪合并處理完成后，數(shù)組中的數(shù)據依次是：

3，7，9，2，6，8，1，4，5，7

3，7，9，2，6，8，1，4，5，7

（用“，”間隔）。
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適代碼。
Const n As Integer=10
Dim a（I To n+5）As integer
Dim tmp（I To n+5）As Integer
Private Sub Form Load
′讀取n個整數(shù)保存到數(shù)組a中，并在文本框 TextI中顯示，代碼略
End sub
Function Position（ low As Integer） As integer
Dim i As Integer
For i-low Ton-1
If①

a（i）＞a（i+1）

a（i）＞a（i+1）

Then Exit For
Next i
Position-=i
End Function
Function Merged As Boolean
Dim i As Integer,flag As Boolean,pI As Integer.p2 As Integer
Dim low I As Integer,highI As Integer,high2 As Integer
flag False：lowl=1
Do While low I＜n
highl-Position（lowD）
If highI-n Then Exit Do Else flag True
high2-Position（highl+1）
pl-lowl：p2-highl+I
Do while②

p1＜=high1Orp2＜=high2或i＜=high2

p1＜=high1Orp2＜=high2或i＜=high2

If p2＞high2 Or pl c-highl And a（pl）＜a（p2）Then
tmp（i）a（p2）：pl=pl+1
tmp-a（p2）：p2-p2+1
End If
i=i+1
Loop
For i=low I To high2
a（0）=tmp（o）
Next i
③

i=high2+1

i=high2+1

Loop
Merge=fIng
End Function
Private Sub Commandl _Click（　　）
Do While True
Ir Not Merge（　　） Then Exit Do
′在列表框List1中輸出這一輪合并后的數(shù)據，代碼略
Loop
End sub