请在程序的划线处填写合适的代码。

Private Sub Command1_Click()

        Dim a As String,s As String

        Dim r As Integer,x As Integer

        x = Val(Text1.Text)

        s = ""

        Do While x > 0

  ▲                 ‘①

            x = x \ 16

            If r > 9 Then

                a = Chr(r + 55)

            Else

                a = Str(r)

            End If

              ▲                 ‘②

Loop                     

        Text2.Text = s

        End Sub

  实现上述功能的VB程序如下，但加框处代码有错，请改正。

  Const n=50

  Dim d(0 To n)As Single，name(1 to n)As String

  ‘读人50个学生的身高，依次存入d(1)…d(50)，最高身高小于2，姓名存入

  name(1)…name(50)

  ‘代码略

  Private Sub Command1_Click()

  Dim i As Integer，j As Integer，temp As Single，k As Integer，r As String

  d(0)=2

  For i=1 To 10

        ‘(1)

      For j=i To n

        If d(j)<d(i-1)Then

           If     Then ‘(2)

            k=j

           End If

        End If

      Next j

    If k<>i Then

       temp=d(k)：d(k)=d(i)：d(i)=temp

       r=name(k)：name(k)=name(i)：name(i)=r

     End If

     Next i

     For i=1 To 10    ‘输出被选的l0个人的名字和身高。

       List2．AddItem name(i)&d(i)

     Next i

    End Sub

x=-4.2

y=Abs(Int(x))

If x＞0 And x＜5 Then

 y=y+1

Else

 y=y-1

End If

该程序段运行后，y的值为（  ）

Dim strA As String, strB As String

strA = "hongda"：strB = ""

For i = 1 To Len(strA) * 2

If i / 2 = Int(i / 2) Then

strB = strB + Chr(Asc(Mid(strA, (i - 1) Mod Len(strA) + 1, 1)) + 2)

End If

Next i

该程序段运行后，变量strB的值是（  ）