1. 班级里有48名学生，按6行8列安排座位，每2列为一组，共4组，矮的在前，高的在后。班级里每周都进行位置轮换，轮换规则如下：第一组同学换到第二组，第二组同学换到第三组，第三组同学换到第四组，第四组同学换到第一组， 并且同桌之间互换位置。为了方便学生在座位轮换的时候快速找到自己的新座位，设计了如下VB程序：窗体加载时，从数据库中读取班级学生数据，并按身高从小到大排序后，以6行8列的形式显示在列表框List1中：单击命令按钮Comand1后，在列表框list2中显示进行次轮换后的座位表。 程序运行界面如下：

实现上述功能的VB程序如下，请回答下列问题：

1. （1） “换座位”按钮的对象名为：
3. （2） 请在划线处填入合适的代码，完成上述算法。

   Dim xn(1 To 50) As String， sg(1 To 50) As Integer

   Dim n as integer， i as integer， j as integer， ch as string， t1 8s string， t2 as integer

   Private sub form_load( )    ‘把数据表中姓名和身高分别存储到数组xm( )和sg( )，代码略

       ‘按身高从低到高对学生数据进行排序，代码略

       List1.Clear

       List1.AddItem“第一组”+“第二组”+“第三组”+“第四组”

       List1.AddItem

       “------------------------------------------------------------”

       ‘将排序好的学生姓名按6行8列的格式输出在列表框list1中

       For i=1 To n

           ch=ch+xm(i)+””

           If i Mod2=0 Then ch=ch+””

           If  Then

               List1.Addltem ch

               ch=””

           End If

       Next i

   End Sub

   Private Sub Com1_Click( )

       Dim a(1 To 50) As String， b(1 To 50) As String

       Dim st As String

       ‘下面进行组与组之间的调换，调换后的数据保存在数组a中

       For i =1 To 6

           For j=1 To 8

               a((-1)*8+j)=

           Next j

       Next i

       ‘下面进行同桌之间互换位置，互换后的数据保存在数组b中

       For i=1 To 6

           For j=1 To 8

               If j Mod2=1 Then

                   b((-1)*8+j)=

               Else

                   b((i-1)*8+j)=a((-1)*8+j-1)

               End If

           Next j

       Next i

       ‘在列表框List2中输出轮换后的结果，代码略

       ‘下面进行数据重新赋值，为下一次轮换做准备

       For i=1 To 48

           xm(i)单b(i)

       Next i

   End Sub