Private Sub Command1_Click()
Dim a(1 To 10) As Integer Dim s As Integer Dim max As Integer n = Val(Text1.Text) i = 1
Do While i <= n
a(i) = Int(Rnd * 100) List1.AddItem Str(a(i)) s = s + a(i) ① Loop
max = a(1) For i = 2 To n
If a(i) > max Then ② Next i
List1.AddItem \和为：\③ List1.AddItem \最大值为：\End Sub
第14题图
供①②选填：A．n=n+1 B． i=i+1 C．max=a(i) D． a(i)=max 空格③处应填写的代码为: 。
15．小华创作“老鹰抓小鸡”故事的多媒体作品。制作过程界面如第15题—1图所示，动画库面板
部分界面如15题—2图所示，请回答下列问题：
第 6 页（共 16 页） 技术（选考测试卷）
第15题—1图
（1）Flash场景中的小鸡实例是由图像“xj.jpg”图片导入得到，小华认为“Flash软件可用于生
成矢量图，所以将场景中小鸡实例放大后依然是清晰的”，该说法_________。（填：对/错）。 （2）如第15题—2图所示，库中属于图形元件的元件名称为_______________。
（3）测试场景时，在“小鸡声音”出现后还能听到“老鹰声音”，据此判定“老鹰声音”中“同
步”属性设置为 (填：事件 / 数据流)。
第 7 页（共 16 页） 技术（选考测试卷）
第15题－2图 第15题－3图
（4）库中“老鹰”元件具有翅膀拍动效果，编辑该元件界面如第15题—3图所示，在测试影片
时，发现老鹰翅膀拍动速度太慢，要使老鹰翅膀拍动速度提高一倍的操作方法是 A．删除第7帧到第12帧
B．将第6帧移动到第4帧，然后删除第7帧到第12帧 C．将第7帧移动到第13帧，并在第24帧插入帧 D．删除第1帧到第12帧之间所有普通帧
（5）测试影片时，该场景只播放一遍便停止，小华发现在“脚本”图层的最后一帧上有动作脚本
标志，则该动作脚本为 。
（6）测试影片时，单击“返回”按钮，动画跳转到“main”场景的第1帧继续播放，则“返回”按钮上的动作脚本为 。
16．【加试题】如果两个质数的差为2，则这两个质数称为孪生质数对；编写VB程序，实现如下功
能：单击“显示孪生质数对”按钮Command1，在列表框list1中显示100以内的所有孪生质数对(运行效果如第16题图所示)。
实现上述功能的VB代码如下, 但加框处代码有错，请改正。 Dim a(1 To 50) As Integer
Private Sub Command1_Click() Dim i As Integer k = 0: i = 3
Do While i <= 100 If prime(i) Then ‘⑴ k = k + 1 a(k) = i End If i = i + 2 Loop
For i = 2 To k If a(i) = a(i +1)+2 Then ‘⑵
List1.AddItem Str(a(i - 1)) + \和\ End If Next i End Sub
Function prime(x As Integer) As Boolean prime = False
For i = 2 To Int(Sqr(x)) If x Mod i = 0 Then prime = True Exit For End If Next i
End Function
第16题图
17．【加试题】编写VB程序,实现如下功能: 单击“排序数组a”按钮Command1时，对已有数组a的数据进行升序排列，并显示在文本框Label1中；单击“显示数组b”按钮Command2时，将升序
第 8 页（共 16 页） 技术（选考测试卷）
数组b的数据显示在文本框Label2中；再单击“合并a和b”按钮Command3时，对数组a和数组b升序合并到字符串中，将合并后的数据在文本框Label3中显示。(运行效果如第17题图所示)。实现上述功能的VB代码如下, 请在划线处填入合适代码。
第17题图 Dim a(1 To 6) As Integer Dim b(1 To 6) As Integer
Private Sub Command1_Click() '对数组a中的数据进行排序 Dim i As Integer, j As Integer ，k as integer
a(1) = 53 :a(2) = 18:a(3) = 62:a(4) = 22:a(5) = 6:a(6) = 25 s = \
For i = 1 To 5 k = i
For j = i + 1 To 6
If a(k) > a(j) Then ① Next j
If i <> k Then
t = a(k): a(k) = a(i): a(i) = t End If Next i
For i = 1 To 6 s = s + Str(a(i)) Next i
Label1.Caption = s End Sub
Private Sub Command2_Click()
b(1) = 3: b(2) = 8: b(3) = 15: b(4) = 27: b(5) = 38: b(6) = 49 '此处部分代码省略 End Sub
Private Sub Command3_Click()
'将数组a和b中的数据逐个比较后添加到新的字符串s中，并将s在label3中显示 i = 1: j = 1: s = \
第 9 页（共 16 页） 技术（选考测试卷）
Do While i <= 6 ② j <= 6 '如果两数组都还有数据未合并 If ③ Then
s = s + Str(a(i)) : i = i + 1 Else
s = s + Str(b(j)) : j = j + 1 End If Loop
Do While i <= 6 '只有数组a还有数据未合并 s = s + Str(a(i)) : i = i + 1 Loop
Do While j <= 6 ' s = s + Str(b(j)) : j = j + 1 Loop
Label3.Caption = s End Sub
技术（选考测试卷）只有数组b还有数据未合并 第
10 页（共 16 页）