内容发布更新时间 : 2024/11/13 12:38:58星期一 下面是文章的全部内容请认真阅读。

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 页）