[浙江]2015届浙江省杭州市高三模拟（七）信息技术试卷

人们在网购消费后往往会通过网络对商家进行评价。评价既能够提供给其他买家一些购买建议，也能够促进商家改进商品或改良服务。人们在网络上对商品进行评价的这一过程属于（  ）

小红用UltraEdit软件观察“Hold住2015高考”这几个字，显示的十六进制内码如下图所示。则“2016高考”这几个字对应得内码用十六进制表示是（  ）

“滴滴一下，马上出发”，滴滴打车软件为打车一族出行带来了方便，该软件下载界面部分截图如图所示：

根据图中信息，下列关于该软件的说法不正确的是（ ）

小李使用Word修订功能对某文档做了几处修订，部分截图如图所示：

如全部接受图中所示的修订内容，则第一句话的文字将变为（ ）

有算法流程图如下图所示：

执行该算法，当x的值为5时（   ）

某Access数据表打开后如图所示，下列描述中正确的是（ ）

在创作多媒体作品时，需要确定作品的结构类型，这一环节属于（ ）

材库中4个未经压缩的图像文件相关信息如图所示。

其中存储容量最大的是（ ）

下图是制作某flash作品“风筝”时的截图，从图中可知，“背景”图层中的背景图片仅在第1帧到第20帧出现，若要使背景图片一直延续到第45帧，可在该图层的第21帧上进行的操作是（ ）

使用Goldwave软件编辑某音频时的部分界面截图如图所示：

以下说法正确的是（ ）

小李对金融很感兴趣，他关注“中国石油”的股票并下载了近期的交易数据，如图-1所示。

（1）“涨跌额”为本交易日的“收盘价”与前一交易日的“收盘价”之差，要计算各交易的“涨跌额”，可在F3单元格输入公式____________后，利用自动填充功能完成其他交易日的“涨跌额”计算。
（2）以____________区域的数据制作2015年2月2日至2015年3月13日“中国石油”收盘价的行情图，如图-2所示，该图表的类型是____________。

（3）分析图2可知，下列4个时间段：

“收盘价”涨幅最大的时间段是____________（填序号）。

小丁想买几张6+1彩票，选号时，他希望前4位用自己的生日：11月8日，即1108，特别号码他选了买彩票日子的个位数5，并且他希望前六个数字组成的数能被他的幸运数字9整除。他的好朋友小杰帮他设计了一个VB程序，可以提供一份符合这些要求的号码清单供他挑选。相应的界面如图-1所示。阅读程序并完成后面的问题。

（1）设计应用程序界面时，为添加a所指向的对象，应使用-2图所示的“控件工具箱”中的______（填写相应编号）；在-3图所示的“属性窗口”中，将______属性值设置为“开始”，可使图-2中b所指向的对象显示“开始”。

（2）请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim i, j, c As Integer
Dim n As Long
c = 0
For i =" 0" To 99
n =" 110800" + i
If      ①      Then
List1.AddItem Str(n) + " " + "5"
c =" c" + 1
End If
Next i
Label2.Caption = "满足条件的数有：" + Str(c) + "组"
End Sub

学校艺术节举行“飞扬青春”海报设计大赛，小强想结合浙江卫视热门综艺节目“奔跑吧，兄弟”来制作一张“奔跑吧，青春”的海报，如图-1所示。他使用的素材如图-2所示，部分编辑窗口如图-3所示。



请回答以下问题：
（1）图-2中的素材跑男要合成到跑道中去，需要用到4图中的____________。
（2）图-3中的跑男执行____________操作，可以得到效果图中的跑男大小。

宁宁同学制作了一个“江源风景”的Flash动画文件，其中main场景的制作界面如图-1所示。

（1）若想使该场景完整播放一次的时间增加到原来的1.5倍，应将帧频修改为______________
（2）“main”场景中某实例的属性面板图-2所示，该实例由库名为__________的元件应用的舞台中实现，其元件类型是_______________。

（3）在动画播放时，“鸟”图层上的小鸟（实例“bird”）一开始并不可见，在动画播放至第_______帧才出现；“船”图层中，第1帧到第40帧的动画是___________(填：形状补间或动画补间)
（4）最后出现“重播”按钮，单击重播按钮后使影片跳转到该场景的第1帧重新播放，则应在该按钮上设置的动作命令是_____________

字符“A”比“a”的ASCII码值小32（十进制），已知字符“n”二进制ACSII码值（1101110）₂，则字符“P”的十进制ACSII码值是（ ）

有Visual Basic程序如下：
Private Sub Command1_Click()
Dim  a  As  String
Dim  b  As  String
Dim  c  As  String
a = Text1.Text
b = Text2.Text
c =" a" + b
Label1.capton = c
End Sub
程序运行时，单击命令按钮command1，弹出如图所示的出错信息提示，此时程序正执行的语句是（ ）

有序数列3.6,8,11.6,22,24,27,31,36.5,35，46，通过对分查找查找数31，需找（ ）次

采用冒泡排序将六个数“22，14，18，17，21，16”从小到大进行排序，则第二轮交换数据后的顺序是（ ）

下列VB程序运行时，单击命令按钮Command1后，标签框Label2中显示的内容是________
Private Sub Command1_click()
Dim s as integer,I as integer
S=0
For i="1" to 20 step 3
s=s+(-1)^i*i
Next i
Label1.caption=str(i)
Label2.caption=str(s)
End Sub

某社区为庆五一进行“摘草莓”比赛活动，最后取十人进入决赛，工作人员编制了如下Visual Basic程序，功能是根据草莓颗数进行排序，程序中所有参赛者的成绩保存在数组result中，对应的姓名保存在数组name中。
程序界面如图所示，左边列表框List1中显示数据（成绩和姓名），单击 “开始排序”按钮（Command1），排序后的结果按成绩从高到低显示在列表框List2中。

解决此问题的排序部分的程序段如下：
Dim result(1 To 10) As Single
Dim name(1 To 10) As String
Private Sub Command1_Click( )
Dim I, J, K, X As Single, Y As String
For I =" 1" To 9
K = I
For J =" I" + 1  To  10
If       ①      Then K = J
Next J
If K <> I Then
X =" result(I)" : result(I) =" result(K)" :       ②     
Y =" name" (I) :  name (I) =" name" (K)   :  name (K) = Y
End If
Next I
For I =" 1"  To  10
List2.AddItem Str(result(i)) + "     " + result(i)
Next i
End Sub
Private Sub Form_Load()
' 此过程用于对数组a和数组b进行初始赋值，代码略
End Sub
在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：
程序中①划线处应填入___________________。
程序中②划线处应填入___________________。

某学校开设多样化选修课程，学生可以根据个人兴趣和特长选择选修课。假设每门选修课的选课人数不超过40，学生选课的相关信息存放在数据库文件“student.accdb”的data表中，选课查询程序运行时界面如图所示。
程序功能：在文本框Text1中输入课程号，单击“查询”按钮Command1,在列表框List1中显示选修本课程的名学生信息。如果没有找到，在列表框中显示“该课程当前无人报名”。按此要求将程序补充完整。

Private Sub command1_click()
Dim xh(1 to 40),xm(1 to 40) As String   '学号和姓名的数组
Dim i,num as integer
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
Dim strSQL As String
conn.ConnectionString = "Provider="Microsoft.ACE.OLEDB.12.0;Data" Source=" + App.Path + "\student.accdb"     '打开到数据库的链接
conn.Open
strSQL ="select xh,xm from data where '课程=&(Text1.Text) & '" '设置查询的SQL语句
Set rs.ActiveConnection = conn      '设置rs的ActiveConnection属性，指定与其关联的数据库链接
rs.Open strSQL   '打开记录集，将从表student中读取的结果集保存到记录集rs中
List1.Clear
num=0
Do while not rs.EOF
       ①     
xh(num)=rs.Fields("xh")
xm(num)=rs.Fields("xm")
rs.MoveNext
loop
rs.Close
conn.close
set rs=nothing
set conn=nothing
For  i="1" to num
       ②     
Next i
if num="0" then list1.additem("该课程当前无人报名")
End Sub
（1）程序中①划线处应填入___________________。
（2）程序中②划线处应填入___________________。