3．素材的收集和整理是多媒体作品制作中很重要的一个环节。某课外活动小组收集的多媒体元素分解如下表所示，下列描述完全恰当的序号是

A．①　　　　　　 B．②　　　　　　　 C．③　　　　　　　 D．④

2．“数码讲述”是80年代美国教师结合数字化素材进行故事创作、数字化加工合成的一种数字化综合实践活动形式，其成品由视频、图像、文字、旁白和背景音乐结合而成。“数码讲述”的合作过程一般有: ①编写故事，创作脚本；　 ②选择主题，确定标题；　 ③收集和处理素材；　 ④制作数码故事；　　 ⑤发布和分享作品　　　 以下哪个是正确的制作流程

A. ①②③④⑤　　　　 B. ③①②④⑤　　　 C. ②①③④⑤　 　 D. ③②①④⑤

1．高一(1)班制做了一个“班级风采展示”的多媒体作品,放到校园网的团委宣传栏目中。该作品集文本、图像、声音、动画及视频于一体。这主要体现了多媒体技术的

A．集成性　　　　 　　 B．交互性　　　 　　 C．实时性　　　　 　 D．可压缩性

18．小伟假期同爸爸一起去书店，他选中了七本书，书的总价为175元。小伟爸爸的钱包里有5元8张，10元10张，20元6张，还有一元硬币20个，现在小伟怎么样才能搭配出175元钱买到这七本书,其中,每种货币必须至少要一张(个)，请问有几种方法？

Private Sub Command1_click()

　 Dim x, y, z, m As Integer

　 Dim c As Integer

　 c = 0

For x = 1 To 20

　　　 For y = 1 To 8

　　　　　 For z = 1 To 10

　　　　　　　 For m = 1 To 6

　　　　　　　　 If　 　▲　 Then

　　　　　　　 　　　　　▲　

　　　　　　　　 List1.AddItem "第" + Str(c) + "方法:" + Str(x) + Str(y) + Str(z) + Str(m)

　　　　　　　　 End If

　　　　　　 　Next m

　　　　 　Next z

　　 　　Next y

Next x

End Sub

B.多媒体技术应用

17. 有7个人坐在一起，问第七个人多少岁？他说是第6个人年龄2倍小4岁 。问第6个人岁数，他说是第5个人年龄也是2倍小4岁。问第5个人，还说是第4个人年龄2倍小4岁。问第4个人，又说是第3个人年龄2倍小4岁，以此类推。最后问第一个人，他说是5岁。请问第7个人多大？以下是小王同学编写的解决该问题的VB，请把程序补充完整。

Private Sub Command1_Click()

Dim i, year As Integer

Dim a(1 To 8) As Integer

　a(1) = 5

　For i =　 　▲　 　To 7

　 　　　▲　

　 List1.AddItem "第 " + Str(i) + "个人的年龄为" + Str(a(i))　　　　

　Next i

　End Sub

16. 以下程序段的运行结果是　 　▲　

Private Sub Form_Click()

　 Dim s As Long, f As Long

　 Dim n As Integer, i As Integer

　 f = 1

　 n = 4

　 For i = 1 To n

　　　 f = f * i

　　　 s = s + f

　 Next i

　 Print "s="; s

End Sub

15. 按下列公式计算银行贷款等额还款的月偿还金额S：

现要求编写VB程序(运行界面如图所示)，实现如下功能：在文本框架中输入贷款本金、贷款期限、年利率，单击计算机按钮，在每月偿还本息额文本框中显示S的值。按此要求编写的程序如下，请把带下划线部分所缺的程序段补齐

Private Sub Command1_Click()

Dim x As Long

Dim y As Single

Dim n As Integer

Dim s As Single

x = Val(Text1.Text) * 　　▲　

n = 12 * Val(Text2.Text)

y = Val(Combo1.Text) / 12 / 100　 ′月利率为年利率除12

s = 1

For i = 1 To n

　 　s = (1 + y) * s

Next

s =　 　▲　

Text4.Text = Str(s)

End Sub

其中，“等额还款”是　 Form　 (Form/Text/Combo/Command)控件的Caption属性。

14. 下列VB程序运行时，单击命令按钮Command1后，文本框显示的内容是 Private Sub Command1_Click()

　 a = 2

　 b = 2

　 Do While a <= 4

　　　 a = a * b

　　　 b = a * b

　 Loop

　 Text1.Text = Str(a)

Text2.Text = Str(b)

End Sub

Text1中显示　 　▲　 , Text2中显示　 　▲　 。

13．当a=1,b=3,c=5,d=4时，执行下面一段程序后，x的值为

If a<b Then

　 If c<d Then x=1 Else x=2　

Else

　 If c<d Then x=3　 Else x=4　

End If

A. 1　　　　 B. 2　　　　 C. 3　　　　　 D. 4

12．想从学生中选出一些理科比较好的同学参加理科知识竞赛，主要考察数学和物理两个科目的成绩，在数学成绩大于90的同学中挑选出物理成绩不小于89的同学参加竞赛，VB条件表达式应该是

(S:数学成绩，W:物理成绩)

A. S<90　 ， W>=89　 　　　　　　　　　　　　 B. S<90 Or　 W>=89

C. S<90　 And　 W>=89　　　　　　　　　　　　　 D. S>90 And W>=89