实现该功能的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

⑴把格雷码第1位G1作为解码后二进制码的第1位B1，即：B1= G1；

⑵从第2位起，将格雷码每一位与左边相邻一位的解码值作异或运算，结果作为该位格 雷码的解码值，即Bi=Gi⊕Bi-1。例如，某格雷码1101110，可解码成普通二进制码 1001011， 如图所示。

异或运算（⊕）规则：如果 a、b 两个值不相同，则 a⊕b 结果为 1；如果 a、b 两个值 相同，则 a⊕b 结果为 0，即:0 ⊕ 0 = 0，1 ⊕ 0 = 1，0 ⊕ 1 = 1，1 ⊕ 1 = 0。

小明编写了一个格雷码解码的VB程序，功能如下：在文本框Text1中输入格雷码,单击 “解码”按钮 Command1，程序对输入的格雷码进行转换处理，转换后的二进制码用十六进 制表示并显示在文本框 Text2 中。程序运行界面如图所示。

def tob(n)

    if  n=0:

        return "*

    else:

        return tob(n//2)+str(1-n%2)

执行语句s=tob(10) 后，s的值为（   ）

利用海伦公式求解三角形面积。已知a，b，c为三角形的三条边长，p为三角形的半周长，即p＝（a＋b＋c）/2，计算此三角形面积s的海伦公式为：S＝。

def hl（a, b, c）：   #定义求三角形面积的函数

    p＝{#blank#}1{#/blank#}

    s＝{#blank#}2{#/blank#}   #计算三角形面积

    return {#blank#}3{#/blank#}   #返回面积的值

a, b, c＝3, 4, 5   #边长依次赋值

print（"此三角形的面积S为：", hl（a, b, c））

使用列表["+",5]表示申请连续5B的内存，使用列表[2,2]表示回收位置2开始连续2B的内存。若指令集表示为：order=[["+",5],[2,2],["+",8],[8,3]]。随着指令集被执行，1024B连续的内存块会被分割成若干个占用内存和空闲内存。为方便起见，“占用内存”用1表示，“空闲内存”用0表示，故执行上述指令集后，内存占用情况如2图所示：

若将空闲块用链表组织起来，就可以快速查找空闲块和删除空闲块。把连续的空闲块定义为一个节点，每个节点由[空闲块起点, 空闲块长度, 下一个空闲块位置]三部分内容构成。根据2图内存占用情况，创建的空闲块链表如3图所示：