WORD完美格式

图a 图b

（1）在设计程序界面时，应使用图b所示“控制工具箱”中的（填写相应编码）添加“生成”按钮。 （2）实现上述功能的VB程序如下，请在划线处填写合适的代码。 Private Sub Command1_Click()

Dim n As Integer, i As Integer, a As Integer, b As Integer Randomize

n = Val(Text1.Text)

i = ① Do While i <= n a = Int(Rnd * 100) b = Int(Rnd * 100) If ② Then

List1.AddItem \i = i + 1 End If Loop End Sub

（3）运行该程序，在文本框中输入5，单击“生成”按钮后，对语句“a=Int(Rnd*100)”执行次数的描述，最合理的是（单选，填字母：A.执行次数等于5 / B.执行次数大于等于5 / C.执行次数小于等于5）。

15.小李创作题为“闻鸡起舞”的多媒体作品。他首先使用PhotoShop软件制作一张图片，然后使用Flash软件制作动画。请回答下列问题：

图a

（1）如图a所示，“背景”图层图像颜色为白色，“篱笆”图层的图像背景也为白色。若只使“篱笆”图层中“闻鸡起舞”消失，下列操作方法中正确的有（多选，填字母：A.用“橡皮擦”擦除“闻鸡起舞” / B.用“魔棒”选择白色区域，反选后删除 / C.用“矩形选框”选中“闻鸡起舞”区域后删除 / D.设置“拾色器”的前景色为白色，用“画笔”对“闻鸡起舞”进行涂画）（注：全部选对的得2分，选对但不全的得1分，不选或有选错的得0分）

图b

（2）如图b所示，为了使“文字”图层中的文字“闻鸡起舞”推迟1秒钟在舞台中出现，并持续到第45帧，正

..整理分享..

WORD完美格式

确的操作是。

（3）库中的音频素材时长为2秒，应用于“打鸣”图层中，如图b所示。要使“舞剑”图层中实例出现的同时“打鸣”图层中的声音停止，可将“打鸣”图层中的声音“同步”属性设置为（选填：事件 / 数据流）。 （4）如图b所示“太阳”图层中的动画，其关键帧中的对象是由库中“太阳”元件生成的实例，则该动画的类型是（单选，填字母：A.动画补间动画 / B.形状补间动画 / C.逐帧动画）。

（5）如图b所示，测试影片时，单击“重播”按钮，影片调整到当前场景的第1帧并继续播放，则“重播”按钮的动作脚本为。

16.【加试题】小吴为了探究冒泡排序过程中数据的“移动”情况，编写了一个VB程序，功能如下：在列表框List1中显示排序前数据（存储在数据a中），在文本框Text1中输入初始位置（即下标值），单击“排序”按钮Command1后，在标签Label1中显示指定初始位置的数据在排序过程中的位置变化情况，排序后的数据显示在列表框List2中。程序运行界面如图所示。

实现上述功能的VB程序如下，但加框出代码有误，请改正。 Dim a(1 To 8) As Integer Dim n As Integer

Private Sub Form_Load()

'n = 8，排序前的8个数据存储在数组a中，并在列表框List1中显示 '代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer

Dim pos As Integer '变量pos存储指定数据的位置（既下标值） Dim s As String '变量s存储pos变化情况 s = Text1.Text

pos = Val(Text1.Text) For i = 1 To n - 1

For j = n To i + 1 Step -1 If a(j) < a(j - 1) Then

k = a(j ) '（1） a(j - 1) = a(j)

..整理分享..

WORD完美格式

a(j) = k

'如果pos位置的数据参与交换，则更新pos值，记录pos变化情况

If pos = j Then pos = j - 1

s = s + \→\

Else '（2） pos = j

s = s + \→\End If End If Next j Next i

Label1.Caption = \位置变化情况：\

For i = 1 To n

List2.AddItem Str(a(i))

Next i End Sub

17.【加试题】小王与小李合作编写一个成绩统计的VB程序：小王编写一个过程，该过程从数据库读取某一指定科目的相关数据，存储在数组a中；小李编写了一个过程，该过程依据数组a中的相关数据统计各班级平均分。小王和小李约定的数组a各元素含义如表所示。

程序功能如下：在文本框Text1中输入科目名称，

单击“该数据始统计”按钮List1中。程

库”按钮Command1，程序从数据库读取数据；单击“开Command2，程序进行统计处理，输出结果在列表框序运行界面如图所示。

实现以上功能的VB程序如下，请回答下列问题： （1）根据程序运行界面中的数据及数组a各元素的析,数组元素a(5)的值为

（填写数值）。

（2）分析程序，可知数据库的文件名为。

..整理分享..

含义进行分

WORD完美格式

（3）请在划线处填入合适的代码。

Dim a(1 To 600) As Integer '数组大小满足处理要求 Private Sub Command1_Click()

'本过程由小王完成，从数据库中读取指定科目的各相关数据，存储在数组a中 Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset

conn.ConnectionString = \+ \conn.Open

Set rs.ActiveConnection = conn '本过程的其他语句略 End Sub

Private Sub Command2_Click()

'本过程由小李完成，依据数组a中的相关数据统计各班级平均分 Dim i As Integer, j As Integer, n As Integer Dim p As Integer, sum Asintger, aver As Single

①

p = n + 2

For i = 1 To n sum = 0

For j = 1 To a(i + 1)

②

p = p + 1 Next j

aver = sum / a(i + 1)

List1.AddItem Str(i) + \Next i End Sub

2016年10月浙江省普通高中选考科目模拟考试

技术（测试卷）参考答案及评分标准

信息技术部分

一、选择题 (本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个符合题目要求)

题号 1 2 3 4 5 6 7 8 9 10 11 12 ..整理分享..