题型：综合题 题类：模拟题 难易度：困难
浙江省丽水、湖州、衢州三地市2021届高三下学期信息技术4月教学质量检测
求解思路：在七个区域①、②、③、④、⑤、⑥、⑦上枚举七个数字1、2、3、4、5、6、7的所有排列来进行验证。程序运行界面如图c所示。
图c
请回答下列问题：
Dim a(1 To 7) As Integer 'a(1)～a(7)依次存储区域①～⑦的值
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim y1 As Integer, y2 As Integer, y3 As Integer
For i = 1 To 7
a(i) = i
Next i
n = 0
Do While True
For i = 7 To 2 Step -1
If a(i) = 8 Then
a(i) = 1
End If
Next i
If a(1) = 8 Then Exit Do
If check() Then
y1 = a(1) + a(2) + a(3) + a(4)
y2 = a(2) + a(4) + a(5) + a(6)
y3 = a(3) + a(4) + a(6) + a(7)
If y1 = y2 And Then
n = n + 1
'在列表List1中，按格式输出a数组元素的值，代码略
End If
End If
a(7) = a(7) + 1
Loop
Label1.Caption = "解法共计" & Str(n) & "种。"
End Sub
Function check() As Boolean
Dim i As Integer, n As Integer, f(1 To 8) As Integer
For i = 1 To 8
f(i) = 0
Next i
For i = 1 To 7
Next i
n = 0
For i = 1 To 7
n = n + f(i)
Next i
If n = 7 Then check = True Else check = False
End Function
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]
方框中填入的正确代码依次为（ ）
试题篮
