学进去

数据分组。将n个两位正整数按十位上的数字分组显示，十位上的数字是奇数的升序排序，十位上的数字是偶数的降序排序。某同学编写VB程序实现该功能，点击“生成”按钮随机生成n个两位正整数并显示在列表框List1中，点击“分组”按钮将整数按十位上的数字分组显示在List2中，程序运行界面如图所示。请回答下列问题：

（1）根据程序界面和代码，本程序用到的类共有__________个
（2）在程序划线处填入合适代码，使程序完整
（3）加框处代码有错，请改正_________

Const n = 10

Dim a(1 To n+1) As Integer

’随机生成 n 个两位正整数，存入数组 a 中，代码略

Private Sub Command2_Click()

For i = 1 To n \ 2

m = ________

For j = i To m

If   a(j) > a(j + 1)   Then   t = a(j): a(j) = a(j + 1): a(j + 1) = t

Next j

k = m

For j = _________

If   a(k) > a(j)   Then k = j

Next j

If k <> i Then t = a(k): _________ : a(i) = t

Next i

s = ""

For i = 1 To n

If   a(i) \ 10 Mod 2 = 1 Then s = s + Str(a(i))   Else s = Str(a(i)) + s

If      Then List2．AddItem s: s = ""

Next i

End Sub

下列 VB 程序段功能为：通过冒泡排序，最终数组元素 a（x）到 a（y）内的数实现升序排列，
x = Val（Text1.Text）
y = Val（Text2.Text）
For i = （1）     
For j =         （2）        

If a（j） > a（j + 1） Then

a（j） = a（j） + a（j + 1）：a（j + 1） = a（j） - a（j + 1）：a（j） = a（j） - a（j + 1）

End If

Next j

Next i
上述程序段中横线处可选语句为：

则（1）（2）处依次填入的语句组合正确的有（     ）

A．①②③④

B．①③

C．②③④

D．①④

某班级（人数不超过40人）参加合唱比赛，需要整理队形。先将所有人按身高升序排好，再将人数每10人排成1排，每排中间低两边高。
编写VB程序，依据上述要求排队。运行程序，在列表框 List1中显示了排序前的人员身高，单击“排序”按钮Command1后，在列表框List2中显示身高升序排序结果，再单击“站位”按钮Command2后，按10人一排站好，结果显示在列表框List3中。界面如图所示。

（1）下列对象中，不具有Caption 属性的是____（单选，填字母：A. Command1 / B. Form1 / C.List1 / D.Label1）。
（2）请将划线处补充完整
（3）加框处代码有错误，请改正
Dim h(0 To 40) As Integer     '学生身高
Dim n As IntegerPrivate Sub Form_Load()
'从数据库中读取身高，共n条记录，存入h数组中，代码略
End Sub
Private Sub Command1_Click()

For i =2 To n

h1 = h(i): j = i – 1

Do While ____

j = j - 1

Loop

For k = i To j +2Step -1

h(k) = h(k - 1)

Next k

__________

Next i

'在列表框 List2中输出排序结果，代码略

End Sub
Private Sub Command2_Click()

'按人数每 10 人一排

Dim x As Integer

x = n \ 10

For i =1To x

Call fenpai(_________) ‘过程 fenpai 作用:将人员按中间低两边高排好，代码略

Next i

If n Mod 10 >0Then Call fenpai(x * 10 + 1， n)

'将站位结果输出在列表框 List3 中，代码略

End Sub

某次模拟考试后，某班主任为了统计本班学生的语文和数学成绩，制作了如下 VB 程序。程序界面如下图所示：在文本框Text1中输入语文和数学成绩，成绩之间用“，”隔开，以“，”结束，加载窗体时，将成绩提取到数组 a中，如a(1)表示第一位学生的语文成绩，a（2）表示第一位同学的数学成绩，如a(3)表示第二位学生的语文成绩，a（4）表示第二位同学的数学成绩，……，以此类推，单击按钮Command11，将成绩按照语文为主要关键字、数学为次要关键字做升序排序，并将排序后的结果显示在文本框Text2中。

（1）窗体中没有用到的控件是___________
A.             B.             C.             D.
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码
（3）程序中加框处代码有误，请改正
Dim a(1 To 20) As Integer
Dim i As Integer, n As Integer
Private Sub Form_Load()
Dim s As String, ch As String
n = 1：s = Text1.Text
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch <> "," Then
a(n) = ___________①
Else
n = n + 1
End If
Next i
___________②__
End Sub
Private Sub Command1_Click()
Dim j As Integer, t1 As Integer, t2 As Integer
For i = 2 To n/2
t1 = a(2 * i - 1): t2 = a(2 * i): j = i - 1
Do While________
a(2 * j + 1) = a(2 * j - 1)
a(2 * j + 2) = a(2 * j)
j = j - 1
If j = 0 Then Exit Do
Loop
a(2 * j + 1) = t1
___________③____
Next i
For i = 1 To n/2
Text2.Text = Text2.Text + Str(a(2 * i - 1)) + Str(a(2 * i))
Next i
End Sub

有如下VB程序段：
i = 1: j = 9
k= Int(Rnd * 6) * 10 + Int(Rnd * 6)
Do While i <= j
m = (i + j) \ 2
If a(m) Mod 10 > k Mod 10 Then
j = m - 1
Else
i = m + 1
End If
Loop
已知数组a(1) 至a(9)中的值分别是“21,13,23,43,15,45,47,48,48”，运行该程序段后，j的值不可能是（     ）

A．1

B．4

C．6

D．7

对n位二进制数进行海明码编码（n是8的倍数），以8位二进制数为一段，每段插入4位校验位，构成12位二进制数，依次处理，完成各段数据编码。
每段海明码编码方法如下：
 插入二进制位：在第1、2、4、8位置上插入4个二进制位r1、r2、r3、r4，初值为0。把原8位二进制数d1~d8从左往右依次填入剩余位置中，原数据位和插入的二进制位如图a所示：

图a
 计算插入的校验位的值：把每个位置号转换成4位二进制数，选出形如“***1”（“*”表示一位0或1）的位置号，则统计这些位置号对应数据位中的“1”的个数，若是奇数，则r1为1，否则为0；再选出形如“**1*”的位置号，则统计这些位置号对应数据位中的“1”的个数，若是奇数，则r2为1，否则为0；以此类推……
如8位二进制数“10101101”的编码过程如下：
【1】插入4个二进制位，初值为0，剩余位置依次填入原数据位，如图b所示。

图b
【2】计算插入的校验位的值，选出形如“***1”的位置号，即1、3、5、7、9、11，统计这些位置号对应数据位中“1”的个数为2，故r1=0，同理可得：r2=1，r3=0，r4=1，如图c所示。

图c
【3】按位置号从小到大依次拼接各数据位得到最后编码“011001011101”。
（1）若要计算校验位r2的值，需统计位置号为_________的数据位中1的个数（依次填整数表示的位置号，用逗号分隔）。
（2）编写VB程序实现上述功能，代码如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, m As Integer
Dim s As String, ch As String, result As String
Dim a(1 To 12) As Integer, n(1 To 4) As Integer
Dim b(1 To 8) As Integer
b(1) = 3: b(2) = 5: b(3) = 6: b(4) = 7
b(5) = 9: b(6) = 10: b(7) = 11: b(8) = 12 '编码数据的插入位置
s = Text1．Text: result = ""
For i = 1 To Len(s) \ 8
For j = 1 To 12
a(j) = 0
Next j
For j = 1 To 8
ch = Mid(s, (i - 1) * 8 + j, 1)
     ____                 '把编码数据插入相应位置
Next j
For j = 1 To 4
n(j) = 0
Next j
For j = 1 To 12
m = j
For k = 1 To 4
      If m Mod 2 = 1 Then ____
      m = m \ 2
Next k
Next j
For j = 1 To 4
a(2 ^ (j - 1)) = ____
Next j
For j = 1 To 12
result = result + Chr(Asc("0") + a(j))
Next j
Next i
Text2.Text = result
End Sub

用Flash软件打开“葫芦兄弟．fla”文件，编辑界面如图a所示。请回答下列问题：

（1）创作多媒体作品需要进行需求分析和规划设计。下列属于需求分析的是________（多选，填字母：A．确定作品的发布方式/B．确定获取原始素材的方式/C．考虑作品创作及运行需要的硬件设施/D．设计作品的主要界面/E．了解用户的计算机应用水平）。
（2）作品中使用到的“太阳”、“Next”两个元件的编辑界面分别如图b和图c所示。“太阳”元件的动画类型是________（单选，填字母：A．形状补间/B．动画补间/C．逐帧）动画。把库中的“sound”声音应用到“Next”元件中“sound”图层的________（填写帧名称）帧上，可使测试影片时仅在鼠标指针经过该按钮实例时播放声音。
图b图c
（3）“葫芦娃”图层第26帧中的对象是完全透明的“葫芦娃”元件实例。测试当前场景时，第26帧到第60帧没有实现“葫芦娃”元件实例由完全透明到完全显示的渐变动画效果，要实现该效果，则在“葫芦娃”图层中应进行的操作________。
（4）在“按钮”图层的第60帧上添加了动作脚本“stop（）：”，在该帧中的“Next”按钮实例上添加动作脚本________（多选，填字母）后，单击该按钮，将播放“后续”场景动画。
A．on（release）{play（）；}
B．on（release）{play（"后续"，1）；}
C．on（release）{gotoAndPlay（1）；}
D．on（release）{gotoAndPlay（"后续"，1）；}

使用Flash 软件创作主题为“中国梦”的多媒体作品，部分编辑界面如图a 所示。
图 a图b
（1）创作多媒体作品需要进行需求分析。下列属于创作需求分析的是_____(多选，填字母:A.了解作品的社会效益、经济效益 /B.确定作品的结构类型 /C.确定获取原始素材的方式 /D.考虑作品的脚本编写 /E.确定作品的发布方式)。
（2） “鸽子”图层第 1 帧的内容由库中“鸽子”元件生成。该元件的编辑界面如图 b 所示，该元件可由_____(单选, 填字母：A.鸽子.gif /B.鸽子.jpg)文件导入库中直接生成，该元件中动画的类型是_____(单选，填字母：A.逐帧动画 /B. 补间动画)。
（3）“按钮”图层的第 45 帧添加了动作脚本命令“stop()；”，声音的同步属性为事件。
测试影片时，动画播放到第 45 帧自动停止，单击“播放”按钮，影片停止当前声音的播放，跳转到“中国梦”场景第 1 帧开始播放，则该按钮实例上添加的动作脚本是_______(多选，填字母)。
A.on(release){stopAllSounds();gotoAndPlay("中国梦",1);}
B.on(release){stopAllSounds();gotoAndPlay(1);}
C.on(release){stopAllSounds(45);gotoAndPlay("中国梦",1);}
D.on(release){stopAllSounds(45);gotoAndPlay(1);}
E.on(release){stopAllSounds();play();}
（4）测试场景时，“天安门”图层内容在播放完第 25 帧后消失，为了使该图层第 25 帧内容延续到第 45 帧，应进行的操作是 _____。

利用Python程序绘制函数y=sin（x）的图像。若要绘制下图所示的函数图像，则下列码中第6行应填写的语句是（   ）

1．#绘制正弦函数y=sin（x）的图像 2．import matplotlib. pyplot as plt 3．import numpy as np 4．x=np. linspace（0，10，1000） 5．y=np. sin（x） 6． 7．plt show（）

A．plt. plot（x，y）

B．plt. plot（y，x）

C．plt. bar（x，y）

D．plt. boxplot（x，y）

用Access软件设计某班级图书管理信息系统的数据库，其中“藏书表”中需要存储如图所示的数据：

下列关于该班级图书管理信息系统的描述，正确的是（     ）

A．该班级图书管理信息系统属于数据库管理系统

B．“收藏日期”字段可以设置为“日期/时间”类型

C．由图中可知每条记录的字段数可以不同

D．“是否借出”字段不能设置为“数字”类型