6．小明看上了一本杂志上的彩色封面，决定用它作为多媒体作品的背景图片，用扫描仪输入计算机后，小明用Photoshop软件进行了适当的处理，下列做法最恰当的是

①用旋转功能对偏转的图像进行校正

②用裁切功能将图像多余的部分去除

③用调整图像大小功能修改图像的大小

④将处理后的图像保存为PSD格式

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

5．小明在“桌面”上右击，进入“显示属性”

窗口的“设置”标签，如第5题图所示，发

现使用16位色或32位色显示效果差别不

大，这主要体现了数据冗余的

A. 空间冗余　　　　 B. 结构冗余　

C. 时间冗余　 　　　D. 视觉冗余

4．如第4题图所示是“故乡的原风景”音频文件的属

性，下列说法中正确的是

A. 按“更改(C)…”可以更改文件的格式

B. 该音频文件的大小为4.31MB

C. 该音频文件可以用windows自带的“录音机”　

程序来播放　

D. 该音频文件每秒钟播放128个字节

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属性。