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

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程序段如下：

Function space(x As Integer)As String        ‘输出格式化，设置左侧的空格数量

  Dim n As Integer

  For n=9 To x Step-1

     ①  

  Next n

End Function

Private Sub Form_Load()

  Dim t As Long，i As Integer，n As String

  Dim a(1 To 9)As String

  Dim b(1 To 9)As String

  Const num=“987654321”

  For i=1 To 9

    t=t*10+i

    a(i)=space(i)+CStr(t)  ‘CStr函数的功能是将数值转为字符，转换时不会添加空格

       ②   

    n=n+a(i)+“*8+”+CStr(i)+“=”+b(i)+Chr(13)       ‘Chr(13)实现换行处理

  Next i

  Label1．Caption=n

End Sub

Private Sub Command1_Click()

Dim n As Integer, m As Integer

n=2:m=0

Do While m < 3

   n=n+2

   If fun(n) Then

      Print n

      m=m+1

   End If

Loop

End Sub

Function fun(x As Integer) As Boolean

   fun=false

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

      fun=fun(x/2)

   Else

      If x=1 Then fun=True

   End If

End Function

假如我们用数组表示上述大根堆：

现有一算法把一个无序数组改造成大根堆。例如：我们在上图的大根堆中再增加一个值为8的新元素，如下图所示。

数组存储为：

具体操作方法如下：

第一步：因为a(10)大于它的双亲结点a(5)，故需交换a(10)和a(5)的值；

数组存储为：

第二步：因为a(5)大于它的双亲结点a(2)，故需交换a(5)和a(2)(t)值；

数组存储为：

第3步：因为a(2)不大于它的双亲结点a(1)，故无需做交换操作。此时新元素已经放到了正确的位置，新的大根堆构造完成，上移行动结束。

图 a

图 b

图 c

编写程序：对给定的标准答案，生成并输出每道题的填涂信息，对应的选项、分值（答对得2分，答错或不答得0分），以及最后的总得分，输出结果如图c所示。请回答下列问题：