某数据分组方法描述如下：
基于冒泡排序算法对数据进行排序，剔除重复数据后，得到一组从大到小排序的不重复数据。再对被剔除数据按以上方法进行分组，直到无被剔除数据。
例如对数据“3，5，7，7，3，5，7，3，7”进行分组：
小马基于以上算法编写了一个VB程序，功能如下：从文本框Text1中输入一组数据，单击“数据分组”按钮Command1．在列表框List1中显示每次分组的数据和剩余数据。程序运行界面如图b所示。
实现上述功能的VB程序如下，请回答下列问题：
（1）根据题意，若文本框Text1中输入的内容是“7，5，3，4，2，5，3，7，5”，则第2组数据依次是

7 5 3或7，5，3

7 5 3或7，5，3

。
（2）请在横线处填入合适的代码。
Dim n As Integer,k As Integer
Dim a（1 To 100）As Integer
'本函数将返回第k次分组信息：根据sleft和smid参数值，返回当前挑选的数据及剩余数据
Function prints（sleft As Integer,smid As Integer） As String
'代码略
End Function
Private Sub Command1_Click （　　）
Dim i As Integer,j As Integer,t As Integer
Dim top As Integer'当前分组数据的起始位置
Dim bottom As Integer'当前分组数据的结束位置
'从文本框Text1中读取n个原始数据，依次存储到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组数据及剩余数据
top=

③

③

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