学进去

七灯游戏是一款经典的益智类游戏。游戏中，有七盏灯排成一圈，如图a所示，初始时灯的开关状态随机生成，操作其中某一盏灯，则可以切换该灯的“开/关”状态，同时，这盏灯对面的两盏灯也会切换“开/关”状态，如图b所示：

图a

图b
图a为初始状态，操作圈中的灯，则该灯与对面的两盏灯都会切换“开/关”状态，如图b所示。假设这些灯的编号为0到6号，“开/关”状态随机产生，并输出到列表框List1中，接着需要从中选出数盏灯进行操作，使得最后所有灯都打开（已证明方案-一定存在且唯一），并在列表框List2中输出灯的编号。
程序采用枚举策略，一一尝试对每盏灯状态进行“切换"操作，“1”表示对当前灯进行切换，“0”表示不操作。
程序运行界面如图c所示。

图c
（1）0-6号灯的初始状态为“关 关 关 开 关 关 开”，如对1号灯进行切换操作，对面随之切换灯的编号是：_________________和_____________
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Dim a（0 To 6）As Integer，b（0 To 6） As Integer
Private Sub Command1_Click()

Dim i As Integer，x As Integer,pos As Integer

Dim flag As Boolean

List2.Clear

For i = 0 To __________①________

    x = i:pos = 0:flag = True

    For j = 0 To 6

        b（j）= a（j）

    Next j

    Do While x > 0

        If x Mod 2 = 1 Then

            b（pos）= 1 - b（pos）

            b（（pos + 3） Mod 7） = 1 – b（（pos + 3） Mod 7）

            ___________②_______

        End If

        pos = pos + 1

        x = x \ 2

    Loop

     For j = 0 To 6

         If _____③___ Then flag = False:Exit For

     Next j

     If flag Then

        pos = 0

        Do While i > 0

           If i Mod 2 = 1 Then List2.AddItem  "第" + CStr（pos）+  "号"

           i = i \ 2

           pos = pos + 1

        Loop

        Exit For

     End If

   Next i

End Sub

Private Sub Form_Load()’随机生成初始数据

    Dim i As Integer

    Randomize

    List1.Clear

    For i = 0 To 6

        a（i）= Int（Rnd * 2）

        If a（i）= 1 Then

            List1.AddItem  "第" + CStr（i） +  "号："+  "开"

        Else

            List1.AddItem "第" + CStr（i） +  "号：" +  "关"

        End If

     Next i

End Sub

把学生成绩由高到低排序后，按姓名在前、成绩在后的顺序依次存储在数组a中。例如(“蒙多”，“94”，“C罗”，“688”，“卢本伟”，“85”......设计一个VB程序，利用对分查找思想实现在数组a中查找成绩为Key的学生姓名。程序段如下：
i=l:j=n            'n代表学生数量
Key=Val(Text1.Text)
Do While i<=j

m=

If Val(a(m))>Key Then i=m\2+1 Else j=m\2-1

Loop
Listl.Clear
j=j+1
Do While j<=n

If Val(a(2*j))=Key Then Listl.AddItem a(2*j-1)+""+a(2*j) Else Exit Do

j=j+1

Loop
上述程序中方框处可能的语句是（      ）

A．(i+j)\2*2

B．（(i+j)\2)*2

C．(i+j)\2

D．((i+j)\2)/2

小奕同学基于排序算法设计了一个数字矩阵排序的程序。程序界面如下图所示，在文本框中输入矩阵大小，点击“生成”按钮 Command1，在左侧列表框 List1 中输出一个长宽均为指定大小的随机整数矩阵，随机整数范围为[1，99]。点击“排序”按钮 Command2，结果输出在右侧列表框 List2 中，奇数行从左到右依次递增，偶数行从右至左依次递增，且保持输出矩阵的长宽不变。

（1）实现上述功能的 VB 程序如下，显示数据用的Additem 是一种    （单选，填字母：

A．属性名/

B．事件名/

C．方法名/

D．过程名）。

（2）请在划线处填入合适的代码。
（3）程序中加框处代码有错，请改正。
Dim a(1 To 100) As Integer
Dim n As Integer
Function dq(s As String, L As Integer) As String '自定义对齐函数'在输入的字符串 s 前加若干空格，输出长度为 L 的字符串，代码略
End Function
Private  Sub  Command1_Click()  '生成数字矩阵‘随机生成 n^2 个数字，存储在数组 a 中，代码略
‘以一行 n 个，共 n 行的格式显示在 List1 中，代码略
End Sub
Private Sub Command2_Click() '数字矩阵排序
Dim i As Integer, k As Integer, j As Integer, s As String Dim f As Boolean
List2.Clear f= True
For i = 1 To n ^ 2 Step n s = ""
For j = i To
k = n ^ 2
Do While    ①     
If a(k) < a(k - 1) Then
t = a(k): a(k) = a(k - 1): a(k - 1) = t
End If
k = k - 1
Loop
If f = True Then
s = s + " " + dq(Str(a(j)), 2)
Else
s = " " + dq(Str(a(j)), 2) + s

End  If

Next j List2.AddItem s

    ②     

Next i End Sub

使用Flash软件创作“四季”多媒体作品，如图1所示。请回答下列问题：

（1）在作品设计的过程中，下列属于创作需求分析的是_________(多选，填字母：A.该作品要求使用Flash软件制作/ B.该作品面向小学生演示播放/ C.该作品的主题思想为“大自然的奥妙”/ D.根据主题思想和内容，制订该作品的脚本大纲/

A．确定“春”界面尺寸、素材组织与来源、交互方式等）。

（2）图中“小狗”图层第21帧到第42帧实现了“小狗”从舞台左侧奔跑至舞台右侧的动画，则第42帧中的“小狗”为_______________（填文字：形状/实例）。

（3）“春”按钮元件的部分编辑界面如图2所示。测试影片时发现该按钮无响应，为使按钮有效，下列操作不正确的是_________（单选，填字母：A.选中“文字”图层“指针经过”帧执行“清除关键帧”命令/B.选中“形状”图层“点击”帧执行“插入帧”命令/C.选中“文字”图层“点击”帧执行“转换为关键帧”命令/D.选中“形状”图层“点击”帧执行“插入关键帧”命令）
（4）如图所示，测试影片时，发现“春”按钮只出现在动画的最后，若要使该按钮在动画过程中一直存在，不改变其他动画效果的前提下，可进行的操作是________________________。
（5）测试影片时，单击“春”场景中“春”按钮，在浏览器中显示当前文件夹下的“spring.txt”文件的内容，则“春”按钮的动作脚本为_______________________________________。

给出n个不重复的介于区间[-10，10]的整数（n≤10），查找区间中未出现的正整数。
例如：

按上述要求，编写一个VB程序：在文本框Text1中输入n个整数（逗号分隔并以逗   号结尾），单击“查找”按钮Command1，在标签Label2中输出查找结果。程序运行界面如图所示。

（1）对从输入字符串中提取的n个整数排序：将其中的正整数进行升序排序，排序后正整数在前，其它的在后。以图中数据为例（10，3，-2，0，-6，6，-5，2，）提取整数，采用如下程序的选择排序算法，所需的交换次数为______次。
（2）请在划线处①②③填入合适的代码。
Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer, k As Integer
Dim ch As String, res As String, t1 As String, t2 As Integer
Dim m As Integer         'm记录正整数的个数
Dim a(1 To 10) As Integer
s = Text1.Text
n = 0
For i = 1 To Len(s)'提取整数,并保存在数组a中
ch = Mid(s, i, 1)
If ch = "," Then
n = n + 1
a(n) = Val(t1)
t1 = ""
Else
t1 = t1 + ch
End If
Next i
For i = 1 To n – 1
k = i
For j = i + 1 To n
If a(j) > 0 Then
If ________ Then k = j
End If
Next j
If k <> i Then
t2 = a(k): a(k) = a(i): a(i) = t2
End If
If _______ Then
m = i   'm记录正整数的个数
Else
Exit For
End If
Next i
For i = m To 1 Step -1
_____ 
Next i
For i = 1 To 10
If a(i) <> i Then res = res + Str(i) + ","
Next i
Label2.Caption = res
End Sub

小王利用循环排序思想编写了一个VB程序，用于计算下一轮比赛的出场顺序。从数据库中读取本轮比赛的人员姓名存在数组xm中，成绩存在数组cj中（成绩均不重复）。编程实现将这些成绩进行循环升序排列。要求最低成绩的位置不变，然后依次进行升序排序，即从最小值开始向下尾首相连形成升序数列。程序运行界面如图所示。点击“排序”按钮，完成循环升序排序。

（1）“排序”按钮的对象名为_                
（2）请在划线处填入合适代码。
（3）加框处代码出错，请改正。
Dim xm（1 to 100）As String ,cj（1 to 100）As Integer
Dim flag（1 to 100）As Boolean
Private Sub Form_ Load（）
'从数据库中读取数据，存储到相应数组中，并输出在列表框Listl。第i个人，姓名为xm（i），成绩为cj（i）。人员数量存储到变量n中（）。代码略
End Sub
Private Sub Cmd__Click（）
Dim min As Integer, pmin As Integer
min = cj(1): pmin = 1
For i=2 To n
If cj（i） < min Then min = cj（i）：__①__
Next i
flag（pmin） = True
pmin= pmin + 1
If pmin=n+1 Then pmin=1
For i=1 To n-2
k = pmin
For j=1 To n
If      ②    Then k= j
Next j
If k <> pmin Then
t = cj（k）: cj（k） = cj（pmin）: cj（pmin） = t
C = xm（k）: xm（k） = xm（pmin）: xm（pmin） = c
End If
flag（pmin） = True
pmin=pmin+1
Next i
'将排序后的人员姓名和成绩输出到列表框List2中，代码略。
End Sub

使用GoldWave软件编辑某音频文件，部分界面如图所示：

下列说法正确的是（   ）

A．该音频文件格式是无损压缩格式

B．当前状态下执行“选定部分另存为”，其他参数不变，则保存后的音频文件存储容量约为344.5KB

C．该音频文件是实际声音的采样和编码，在计算机中是连续不间断的模拟信号

D．在当前状态下执行“删除”命令，再插入2秒静音后按原格式参数保存，则保存后的音频文件存储容量约为2MB

使用GoldWave软件编辑某音频文件，部分界面如图所示

下列说法正确的是（  ）

A．执行”删除“命令后直接保存，音频的时长变为10秒

B．执行”选定部分另存为“命令生成一个新的音频文件，其时长为5秒

C．执行”剪裁“命令后直接保存，音频文件存储容量是原来的1/3

D．执行”插入静音“命令，设置时间为S秒后直接保存，音频文件存储容量不变

小林收集了某地第二季度的天气数据，并用Excel软件进行数据处理，如图所示。

图1
请回答下列问题：
（1）在G3单元格输入公式并用自动填充功能完成区域G4：G84的计算，计算时应用了IF函数，则G78单元格中的公式是__________。
（提示： If 函数用于判断是否满足某个条件，如果满足返回一个值，如果不满足返回另一个值。例如：” =IF（E2<60，“不合格”，IF（E2>=80，“优秀”，“合格”））“）。
（2）根据图1 中的数据制作如图2 所示的图表，则创建该图表的数据区域是_________。

图2
（3）将数据区域A2： G84复制到新的数据表，若要从表中找出“温差”最大的记录。下列方法可行的是______。（多选，填字母）。

A．以“温差”为“最大I项”进行筛选，可筛选出符合要求的数据

B．用Max函数计算出D列中最大的一项即为所需数据

C．以”温差“为主要关键字进行降序排序，选取与第1条温差值相同的数据

D．以“最低温度”为“最小1项”、“最高温度”为“最大1项”进行筛选，可筛选出符合要求的日期

下列说法正确的是（  ）

A．当前状态下使用向下合并，所有图层将被合并成图层0

B．当前状态下使用拼合图像，所有图层将被合并成图层3

C．当前状态下使用合并可见图层，所有图层将被合并成图层3

D．如果不执行任何其它操作，选中图层2后将无法执行向下合并图层命令