从文本框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程序如下，请回答下列问题：

Private Sub Command1_Click()

Dim a(20) As Long

Dim i As Integer, j As Integer, s As String List1.Clear

n = Val(Text1.Text)

a(1) = 1

List1.AddItem Str(a(1)) For i = 2 To n

    s = ""

    For j = Step -1  

        a(j) =    ①     

        s = s + Str(a(j))

    Next j

           ②        Next i