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