题型：综合题 题类：模拟题 难易度：普通
浙江省杭州二中2017-2018学年高三信息技术选考仿真考试试卷
实现该功能的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
在程序中①画线处应填入；
在程序中②画线处应填人。
def dele（a, head）:
pre=head; p=a[head][1]
while p!=-1:
q=head
flag=False
|
if a[q][0]==a[p][0]:
|
p=a[p][1]
flag=True
break
q=a[q][1]
if not flag:
pre=p;
p=a[p][1]
a=[[0, 3], [1, 2], [1, 4], [0, 1], [0, 5], [2, -1]]
dele（a, 0）
①q!=-1 ②q!=p ③a[pre][1]=a[p][1] ④a[pre][1]=a[q][1]
方框中填入的正确代码依次为（ ）
试题篮
