temp＝b（j）：
b（j）＝b（j－1）：
b（j－1）＝temp
Endif
Nextj
Nexti
方框中应填写的正确语句是（ ）
A．b（i）＝a（i）B．b（i）＝tC．b（t）＝a（i）D．b（t）＝a（t）
12．【加试题】有一组升序排列的数：
3、6、7、10、12、17、26、31、79，如果用对分法查找数据10，则依次访问的数据为（ ）
A．12、6、7、10B．12、7、10C．12、6、10D．12、7、6、10
二、非选择题（本大题共5小题，其中第13小题4分，第14小题4分，第15小题5分，第16小题8分，第17小题5分，共26分）
13．某家电经销商利用Excel软件对其销售数据进行处理和分析，图1是该经销商2015年家电销售情况数据表。
请回答下列问题：
（1）要计算各产品的毛利润，可以在F3单元格中输入公式________（提示：
毛利润＝（售价－进价）×数量），然后自动填充至F11单元格。
（2）在E12单元格中，利用求和函数计算销售总额，结果显示为“
”，其原因为________。
图1
（3）为了更加直观地比较各产品毛利润情况，制作了“2015年家电利润比较”图表，数据源区域是________。
（4）现要对上表（图1）进行筛选，找出毛利润最高的三种产品（如图2所示），可以选择进行筛选________（填：
高于平均值/10个最大的值/自定义筛选）。
图2
14．编写VB程序，实现如下功能：
扫描条形码，在文本框Text1中产生条形码数字序列，单击“识别”按钮Command1，在标签Label3中输出对应的校验信息。
条形码校验方法步骤：
（1）条形码共13位，第13位为校验码
（2）分别求出条形码奇数位的数字和，偶数位的数字和
（3）将偶数位数字和乘以3，加上奇数位数字和
（4）取第（3）步得到结果的个位数字，用10减去该数字
（5）若第（4）步的结果为10，则修改为0
（6）若第（5）步的结果和校验码相等则提示正确，否则提示错误界面如图1所示。
图1
（1）应用程序界面设计时，为添加“校验”按钮，应使用图2中“控件工具箱”中的________（填写相应编号），并修改图3“属性窗口”，将________属性值设置为“校验”。
图2 图3
（2）为实现上述功能，请在划线处填写合适的代码或选项。
PrivateSubCommand1_Click（）
DimsAsString，xAsString，JsAsInteger，OsAsInteger，JyAsInteger
s＝Text1.Text
n＝____①____
'（填程序代码）
Ifn<>13Then
Label1.Caption＝“条形码位数错误”
Else
Fori＝1To12
x＝Val（Mid（s，i,1））
If____②____Then
'（填字母：
从下列A、B、C、D选项中选取一项）
Js＝Js＋x
Else
Os＝Os＋x
EndIf
Nexti
Jy＝Os*3＋Js
Jy＝10－JyMod10
IfJy＝10ThenJy＝0
If____③____Then
'（填字母：
从下列A、B、C、D选项选取一项）
Label1.Caption＝“校验码正确”
Else
Label1.Caption＝“校验码错误”
EndIf
EndIf
EndSub
划线②、③处的选项：
A．xMod2＝1
B．xMod2＝0
C．Jy＝Val（Mid（s,13,1））
D．Jy＝Val（Mid（s,1,13））
15．小明用Flash软件制作了一个关于“生日快乐”的动画，时间轴界面如图1和图2所示，库界面如图3所示。
图1图2
图3
（1）如图1所示，测试影片时发现背景图片不能延续到整个场景，为解决这个问题，需要在“背景”图层的第30帧插入________。
（2）如图3所示，该库中共有________个元件。
（3）小明将“生日歌”文件应用到“音乐”图层中，如果要使音乐随着动画的停止而停止，则应将声音的同步设置为________。
（4）观察图1和图2可知，“动画”图层未能成功创建补间形状的原因是________。
（5）单击“按钮”图层中的“返回”按钮，可以使动画跳转到该场景第1帧重新开始播放，该按钮应该添加的动作命令是________。
16．【加试题】编写VB程序，实现如下功能：
在文本框Text1中输入一个整数n，单击“产生”按钮Command1，随机生成n个1～100的不同整数。
单击“排序”按钮Command2，对产生的随机数进行从小到大的排序，并将排序结果输出在窗体上。
界面如图所示。
按此要求编写的程序如下：
OptionBase1 '数组下标从1开始
Dima（）'动态数组，数组元素个数不无确定
DimiAsInteger
PrivateSubCommand1_Click（）
n＝Val（Text1.Text）
ReDima（n） '定义数组元素个数为n
Fori＝1Ton
Randomize '初始化随机数发生器
a（i）＝____①____ '产生1～100的随机整数
Forj＝1Toi－1
Ifa（j）＝a（i）Then
i＝i－1
ExitFor
EndIf
Nextj
Nexti
Print“排序前：
”；
Fori＝1Ton
Printa（i）；
Nexti
EndSub
PrivateSubCommand2_Click（）
n＝Val（Text1.Text）
Fori＝1Ton－1
k＝i
Forj＝k＋1Ton
②____
Nextj
Ifk<>iThen
temp＝a（k）：
a（k）＝a（i）：
a（i）＝temp
EndIf
Nexti
Print
Print“排序后：
”；
Fori＝1Ton
Printa（i）；
Nexti
EndSub
请回答下列问题：
（1）①划线处的代码为________________。
（2）②划线处的代码为________________。
17．【加试题】小金想模拟实现邮箱注册及保存过程，他用VB设计了一个模拟程序。
功能如下：
运行程序时，在文本框Text1中输入待注册的邮件地址（假设输入的地址合理），在文本框Text2和Text3中分别输入两次密码，单击“立即注册”按钮Command1，查找邮件数据库，如邮件地址未在数据库中并且前后两次密码一致，则把邮件地址和密码加入到数据库中，并显示在列表框List1中，其应用程序界面如图所示。
数据信息存放在数据库文件“youxiang.accdb”的“use”表中，假定邮箱数不超过100个。
请在划线处填上合适的代码。
代码如下：
Dimyxdz（1To100）AsString '定义存储邮箱地址的数组
Dimyxmm（1To100）Asstring '定义存储邮箱密码的数组
DimnAsInteger '定义存储邮箱总数的变量
PrivateSubCommand1_Click（）
DimkeyAsString
key＝（Text1.Text）
IfText2.Text＝Text3.TextThen
Fori＝1Ton
If____①____Then
MsgBox（“邮件地址有重名，请检查！
”）
'在消息框中显示邮件地址有重名
ExitFor
____②____
Nexti
Else
MsgBox（“密码前后不一致，请检查！
”）
'在消息框中显示密码前后不一致
EndIf
'把邮件信息添加到数据库youxiang.accdb中的程序代码略
EndSub
PrivateSubForm_Load（）
DimconnAsNewADODB.Connection
'定义Connection对象实例conn
DimrsAsNewADODB.Recordset
'定义Recordset对象实例rs
conn.ConnectionString＝“provider＝Microsoft.ACE.OLEDB.12.0；
datesource＝”&App.Path&“\youxiang.accdb”
'设置conn的数据库连接字符串
conn.Open
'打开数据库连接
rs.ActiveConnection＝conn
'设置rs的ActiveConnection属性，关联conn
rs.Open“SELECT*FROM____③____”
'打开记录集，获取数据
n＝0
List1.AddItem“邮箱地址”&“ ”&“邮箱密码”
DoWhileNotrs.EOF
n＝n＋1
yxdz（n）＝rs.Fields
（1）
'邮箱地址字段的序号为1
yxmm（n）＝rs.Fields
（2）
'邮箱密码字段的序号为2
List1.AddItemyxdz（n）&“ ”&yxmm（n）
rs.MoveNext
Loop
rs.Close
conn.Close
EndSub
程序中①划线处应填入___________________________________________。
程序中②划线处应填入___________________________________________。
程序中③划线处应填入___________________________________________。
升级会员 