小明用VB设计了计算个税的程序，程序运行时界面如图所示，在文本框Text1中输入月收入后，点击“开始计算”按钮后，在文本框Text2中显示该产品应征收的税金。

图1

从文本框TextB输入一串不带符号位的二进制整数，单击“转换”按钮，将二进制转换为  十六进制并显示在文本框TextH中。程序界面如图所示：

转换方法：先从右往左将二进制数分割成4位一组，若最左边的一组不足4位，则用0将高位补足，然后将每4位二进制数转换为1位十六进制数。

    Private Sub Convert_Click()

    Dim a(1 To 100)As Integer，temp As Integer

    Dim s As String，res As String，n As Integer，r As Integer

      res=“”

      s=TextB．Text

      n=Len(s)

      For i=1 To n

        a(i)=Val(Mid(s，i，1))

      Next i

      t=n＼4

      r=    ①    

      temp=0

      For i=-1 To r      ‘将最高的r位转换为十六进制

            ②   

      Next i

      If temp>9 Then

        res=Chr(temp+55)

      Elself temp>0 Then

        res=CStr(temp)    ‘CStr()函数用于将数值转换为字符串，

  同时删除前导空格

      End If

      For i=1 To t       ‘将t组4位二进制转换为十六进制

        temp=0

        For i=1 To 4

            temp=temp+a(j+r+4*(i-1))*2^(4-j)

        Next j

        If temp>9 Then

          res=res+Chr(temp+55)

        Else

         Res=res+CStr(temp)

        End If

      Next i

      TextH．Text=res

    End Sub

编写VB程序，实现上述挑选、组队功能。运行程序，在列表框List1中显示m名身高大于等于175cm的学生信息，且根据体重数值降序排序。单击“组队”按钮，在符合条件的情况下尽可能多的两两组队，并将组队结果显示在列表框List2中。程序运行界面如图所示，实现上述功能的VB程序如下。

请回答下列问题：