Nextj
Ifi<>kThen
t＝a（i）:
a（i）＝a（k）:
a（k）＝t
EndIf
Nexti
在排序过程中，经过某一遍排序“加工”后，数组元素a（l）到a（7）的数据依次为“10,41,75,12,63,11,85”。
则下一遍排序“加工”后数组元素a（l）到a（7）的数据依次是（ ）
A．10,11,41,75,12,63,85B．10,11,75,12,63,41,85
C．10,11,12,75,63,41,85D．10,11,12,41,63,75,85
二、非选择题（本大题共5小题，其中第14小题4分，第15小题5分，第16小题8分，第17小题2分，第18小题5分，共24分）
14．如图1所示，是某省义务教育课程安排表，规定了各门学科在各个年段的周课时量。
（1）要计算各个年级“周课时总量（节）”，可在C23单元格输入公式________________________后，利用自动填充功能完成其他年段的“周课时总量（节）”。
（2）以________________________区域的数据制作六年级各门学科周课时情况表，如图第11题图－2所示，该图表的类型是________________________。
（3）如果对图1中的6年级各门学科周课时，进行“筛选”，筛选出周课时大于3的学科，图2中的图表，（填：
会/不会）______________会发生变化？
15．小明利用所学的vb知识，制作了一个展示动画效果的exe文件，相应的界面图1所示。
阅读程序并完成后面的问题。
图1界面设计图 图2 控件工具箱
（1）设计应用程序界面时，为添加a所指向的对象，应使用图2图所示的“控件工具箱”中的____________（填写相应编号）；在图3图所示的“属性窗口”中，将____________属性值设置为“加快”，可使图2中b所指向的对象显示“加快”。
（2）下面是这个程序的部分代码，请根据题意将横线处补充完整。
PrivateSubForm____Load（）
n＝0
EndSub
PrivateSubTimer1____Timer（）
______①______
Picture1.Picture＝LoadPicture（no&“.jpg”）
Ifno>＝28Then
no＝0
______②______
EndSub
16．
（一）小明为参加“家有萌宠”比赛，使用photoshop软件，对以往拍摄的照片进行处理。
请回答以下问题：
（1）为了去除右侧“手”的画面，只保留左侧虚线框部分的图像，小明可使用工具箱中的______________________工具进行快速处理。
（2）去除右侧“手”的画面后，小明并不十分满意，除“编辑——后退一步”外，还可通过__________________撤销操作。
（二）小明在挑选照片的过程中，看到以前自己给“宠物”拍摄的照片，不禁回忆涌上心头，想通过Flash的“幻灯片模板”制作一份简易相册，来保存这段甜蜜回忆。
（1）要将模板中的图片替换成“宠物”照片，首先应将照片导入到____________________________。
（2）模板中的动画由按钮控制，之所以动画一开始能处于停止状态，是由于在__________actions图层第一帧设置了动作命令：
________________。
（3）为了能在网页上播放这个相册，将这个Flash导出为“宠物相册．________”最为合适。
17．【加试题】编写VB程序，实现如下功能：
点击“产生随机数”按钮Command1，产生8个10到100的随机整数，并在text1中显示，点击“排序”按钮Command2，对产生的随机数从小到大进行排序，并在text2中显示。
实现上述功能的VB代码如下，但加框处代码有错，请改正。
Dima（10）AsInteger
PrivateSubCommand1_Click（ ）
Fori＝1To8
x＝Int（90*Rnd）＋10
a（i）＝x
Text1＝Text1&x&“ ”
Nexti
EndSub
PrivateSubCommand2_Click（ ）
Fori＝1To7
Ifa（j）>a（j＋1）Then
EndIf
Nextj
Nexti
Fori＝1To8
Text2＝Text2&a（i）&“”
Nexti
EndSub
18．【加试题】小明同学想根据所学VB知识，编写一个“看图识成语”的游戏，目前完成了程序的登陆界面，“账户添加部分”的代码。
代码功能：
点击“初入江湖”，显示文本框和“确定”按钮，在文本框中输入账户，点击“确定”按钮，如果原纪录中没有这个账户，且账户名为字符数小于等于8的非空字符，则添加账户，默认账户的等级为0。
如果不是，则弹出窗口，提示修改账户名。
DimconnAsNewADODB．Connection,rsAsNewADODB．Recordset
DimstrSQL AsString
PrivateSubForm_Click（ ）
List1.Visible＝False
EndSub
PrivateSubForm_Load（）
conn.ConnectionString＝“Provider＝Microsoft.Jet.OLEDB．4.0；DataSource＝”＋App.Path＋“/user.mdb” '打开到数据库的链接
conn.Open
Setrs.ActiveConnection＝conn'设置rs的ActiveConnection属性，指定与其关联的数据库链接
strSQL＝“selectuser，djfromlog”设置查询的SQL语句
Setrs.ActiveConnection＝conn'设置rs的ActiveConnection属性，指定与其关联的数据库链接
rs.OpenstrSQL,conn,adOpenDynamic,adLockOptimistic ’打开记录集，将从表中读取的结果集保存到记录集rs中
EndSub
PrivateSubCommand1_Click（ ）
strSQL＝“selectuser，djfromlogwhereuser＝'&text1.text'” ’根据输入帐号，查找在数据库中的相同记录
Ifrs.EOFAnd______①______AndText1.Text）<>“”Then ’如果没有这个记录，且帐号名是，字符数小于等于8的非空字符
rs.AddNew
rs.Fields（“user”）＝Text1.Text ’将text1的内容作为账户名
②____ ’设置等级为“0”
rs.Update
rs.Close
Text1.Visible＝False
Command1.Visible＝False
Text1.Text＝“”
③____’如果帐号已存在
MsgBox“您的姓名违规了哦！
烦请大侠更名”
EndIf
...Form2中展开游戏，代码略
EndSub
参考答案
一、选择题
1．B 2.B 3.C 4.C 5.B 6.D 7.D 8.C 9.C 10.C 11.C 12.A 13.B
二、非选择题
14．
（1）＝SUM（C5∶C22）
（2）B5∶
升级会员 