某數(shù)據(jù)分組方法描述如下：
基于冒泡排序算法對(duì)數(shù)據(jù)進(jìn)行排序，剔除重復(fù)數(shù)據(jù)后，得到一組從大到小排序的不重復(fù)數(shù)據(jù)。再對(duì)被剔除數(shù)據(jù)按以上方法進(jìn)行分組，直到無被剔除數(shù)據(jù)。
例如對(duì)數(shù)據(jù)“3，5，7，7，3，5，7，3，7”進(jìn)行分組：
小馬基于以上算法編寫了一個(gè)VB程序，功能如下：從文本框Text1中輸入一組數(shù)據(jù)，單擊“數(shù)據(jù)分組”按鈕Command1．在列表框List1中顯示每次分組的數(shù)據(jù)和剩余數(shù)據(jù)。程序運(yùn)行界面如圖b所示。
實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)回答下列問題：
（1）根據(jù)題意，若文本框Text1中輸入的內(nèi)容是“7，5，3，4，2，5，3，7，5”，則第2組數(shù)據(jù)依次是

7 5 3或7，5，3

7 5 3或7，5，3

。
（2）請(qǐng)?jiān)跈M線處填入合適的代碼。
Dim n As Integer,k As Integer
Dim a（1 To 100）As Integer
'本函數(shù)將返回第k次分組信息：根據(jù)sleft和smid參數(shù)值，返回當(dāng)前挑選的數(shù)據(jù)及剩余數(shù)據(jù)
Function prints（sleft As Integer,smid As Integer） As String
'代碼略
End Function
Private Sub Command1_Click （　?。?br />Dim i As Integer,j As Integer,t As Integer
Dim top As Integer'當(dāng)前分組數(shù)據(jù)的起始位置
Dim bottom As Integer'當(dāng)前分組數(shù)據(jù)的結(jié)束位置
'從文本框Text1中讀取n個(gè)原始數(shù)據(jù)，依次存儲(chǔ)到a（1）、a（2）、……a（n）中，代碼略
i=1：k=0
top=1

①

①

List1．Clear
Do While top＜=bottom
For j=bottom To i+1 Step-1
Ifa（j-l）＜a（j）Then
t=a（j）：a（j）=a（j-1）：a（j-1）=t
Else If

②

②

 Then
t=a（j）：a（j）=a（bottom）：a（bottom）=t
bottom=bottom-1
End If
Next j
If i＞=bottom Then
List1．AddItem prints（top,bottom）'輸出第k組數(shù)據(jù)及剩余數(shù)據(jù)
top=

③

③

bottom=n
End If
i=i+1
Loop
End Sub