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

3月8日当天，某商家网上旗舰店搞促销优惠活动，并且可通过手机扫码进入商家店铺领取更多额度的优惠券，此扫码过程属于（ ）

用UltraEdit软件观察字符内码，结果如图所示：

由图可知，“2015，高考加油！”所占字节数及“高”的内码分别是（ ）

新浪网发起了2015年“最喜爱的央视春晚节目”调查，调查投票结果如图所示：

则该调查结果的评价方式属于（ ）

某用户使用Word软件编辑文档，部分界面如图所示：

下列说法正确的是（ ）

实现计算器上x^y运算处理的算法部分流程图如图所示：

下列说法正确的是（ ）

校讯通中某班学生信息用Access打开“学生数据”数据表后如图所示，下列描述中正确的是（ ）

李明同学发现他的QQ农场内有很多蚊子，于是他拿起“蚊子拍”工具去“拍”蚊子，蚊子马上消失，同时人物经验值立即增加了2点，这主要体现多媒体技术的（ ）

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

270×185×16	540×370×16	540×370×16	540×370×16
1.bmp	2.bmp	3.bmp	4.bmp

关于这4幅图像，下列说法正确的是（ ）
A．将2.bmp图像进行一次垂直翻转即得到3.bmp图像
B．将2.bmp图像进行一次水平翻转即得到4.bmp图像
C．2.bmp文件的存储容量约为1.bmp文件的4倍
D．4个图像文件的存储容量一样大

某同学要制作一段社会实践活动的影片，用会声会影软件编辑采集到的视频，在两段活动视频中间插入一个“百叶窗”过渡效果，制作时包括以下操作步骤：
①将素材库中的两个视频文件拖进故事板
②启动会声会影软件并新建一个项目
③创建视频文件，保存为VCD格式
④选择效果的“百叶窗”，将效果拖入到两个视频中间
⑤切换到“效果步骤”
正确的排序是（ ）

小张用GoldWave软件打开了一个声音文件，其状态栏界面如图所示，下列说法正确的是（ ）

1图是2014年中国主要城市GDP排行榜中排名靠前的城市。请回答下列问题：

（1）计算各城市2014年“增长率”时（增长率=增量÷2013年GDP*100），先在H3单元格中输人公式           ，然后利用自动填充功能完成其余单元格的计算。
（2）在“人口（万）”列输入数据时，发现    B3:B11单元格中显示的是“#######”而非数据（如l图所示），其原因为           。

（3）对表中“人均GDP”进行筛选，当“自定义自动筛选方式”对话框中设置成如2图所示时，则其筛选条件为             ，符合条件的城市个数为           。

生活中，许多女士喜欢穿高跟鞋，那穿高跟鞋会使人感到美吗？黄金分割能解释这个问题。人体躯干与身高比例的黄金分割点是肚脐。换句话说，这一比值越接近0.618，愈给人美之感。现按要求编写“高跟鞋的最佳之选”的VB程序（界面如图所示），实现如下功能：首先，设某女躯干 a米 和身高 b米 比为g，分别从文本框Text1和Text2中输入。鞋跟高度s（单位与 a、b 一致）从Text3中输入，那么新比值g=（a+s）/（ b+s），如果g=0.618，那么鞋跟高度S的值就是最佳高度。

（1）应用程序界面设计时，为显示新比值，需在窗体中添加         控件，并将它的         属性值设置为空。
（2）请根据题意将下列程序补充完整。
Private Sub Command1_Click（ ）
Dim a As Single, b As Single，s As Single，g As Single
a = Val（Text1.Text）
b = Val（Text2.Text）
s = Val（Text3.Text）
Label5.Caption =      ①   
End Sub

儿童节前夕，小杰他妹妹幼儿园的老师向他求助，希望他帮忙设计一张儿童节活动海报，于是他用Photoshop软件设计制作了一张以“彩虹乐园”为主题的活动海报，他当前编辑窗口如图所示。

请回答下列问题：
（1）如图，给“绿都花城幼儿园”图层中通过          （填①或②）工具在A处添加文字“绿都花城幼儿园”，并通过执行             操作把该图层设置成跟“彩虹乐园”图层一样的样式。
（2）对B处“天鹅”图层执行            操作，然后再进行“水平翻转”和调整位置后可得到右侧对称的天鹅。

蓝蓝制作了一个主题为“上海野生动物园”的Flash动画，其中main场景的制作界面如1图所示。


请回答下列问题：
（1）执行“测试影片”命令时，发现“老虎”是由小变大出现，结合1图说明对“老虎”图层设置了          补间动画。
（2）测试影片结果如2图，“上海野生动物园”字样的图形是由透明至完全显示变化，说明对该图形“颜色”属性的           值设置了0—100的变化。
（3）由图2可知，“main”场景的大小为              ；根据图中所示帧频，又知该场景总共有225帧，则执行完该场景共需            秒。
（4）动画制作完成后，执行“测试影片”命令，发现动画放完后即停止。说明在“main”场景“背景”图层的最后一帧上设置了动作命令             。

第1题图所示，有一幅8×8像素的黑白图像，如果该图像的每一行按照从左到右编码，且第一行编码为10010010，那么第三行的编码的16进制表示为（ ）

表达式 len（“Good Morning”）+2 mod 3 +int（3.9999）的值为（ ）

小金编写了一个统计随机数分布的VB程序，部分程序如下所示，在调试程序的时候出现如右图所示的错误信息：

n =" 0" : m = 0
For  i =" 1" To 100
If  Rnd > 0.5  Then
n =" n" + 1
Else
m =" m" + 1
Next  i
……
小金仔细分析该程序段后，发现其中缺少了（ ）

有6位学生的身高分别为165，170，172，175，176，180。其中，小民的身高为175，若老师采用对分查找法想要找到小民，则需要找多少次才能够找到（ ）

下列VB程序运行时，在文本框Text1中输入“h”后，单击命令按钮Command1后，标签框Label1中显示的内容是____    ____。
Private Sub Command1_Click（）
Dim a As String
a = Text1.Text
a = Chr（Asc（a） - 32）
Label1.Caption = a
End Sub

素数：只能被1和它本身整除的自然数。要求编写VB程序找出任意两个整数之间中所有的素数及个数，程序运行界面如下图所示。

请根据算法将下列程序补充完整。
Function prime（a As Integer） As Boolean
Dim j As Integer
prime = True
j = 2
Do While prime And j <=" a" \ 2
If a Mod j =" 0" Then
prime = False
Exit Do
End If
        ①       
Loop
End Function
Private Sub Command1_Click（ ）
Dim i As Integer, a As Integer, b As Integer
Dim count As Integer
a = Val（Text1.Text）
b = Val（Text2.Text）
For i =" a" To b
If        ②       =" True" Then
List1.AddItem Str（i）
count =" count" + 1
End If
Next i
Label1.Caption = "素数共有" + Str（count） + "个!"
End Sub

某商场元月举行VIP客户积分换购活动，VIP客户根据卡内积分多少可换取不同额度的代金券。假设VIP客户共有n名，VIP卡内积分存放在数据库“customer.accdb”的Integral表中，换购活动的VB程序代码如下，程序运行时界面如图所示。工作人员在文本框Text1中输入VIP卡号后，单击“换购”按钮Command1，在文本框Text2中输出VIP客户的积分数，在标签Label3中显示可以换购的代金券额度,积分清零。按此要求编写程序如下, 但加框处代码有错,请改正。

Dim ID（ ） As String   '用于存放客户卡号
Dim total（ ） As Long   '用于存放积分数
Dim sc As Long   'VIP客户人数
Dim jf As Long   '积分数
Private Sub Command1_Click（ ）
Dim k As String   '客户卡号
Dim q As Long   '代金券额度
Dim i As Long
k = Text1.Text
For i =" 1" To sc   ’顺序查找
If ID（i） =" k" Then
jf = total（i）
cash（jf） = q    ’①
Exit For
End If
Text2.Text = Str（jf）
Label3.Caption = “您可换购的代金券总额为：”+ Str（q） + “元”
Next i
End If
End Sub
' cash函数用于计算VIP客户可换购的代金券额度
Function cash（jf As Long） As Long
If jf >=" 2000" And jf <=" 20000" Then
Cash = jf\2000*10
ElseIf jf > 20000 And jf <=" 50000" Then
Cash = jf\2000*11
ElseIf jf > 50000 And jf <=" 100000" Then
Cash = jf\2000*12
ElseIf jf > 100000 And jf <=" 150000" Then
Cash = jf\2000*13
 Else jf > 150000 Then         ’ ②
Cash = jf\2000*14
End If
End Function
Private Sub Form_Load（）
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
Dim intSQL As Long
conn.ConnectionString = "Provider="Microsoft.ACE.OLEDB.12.0;Data" Source=" + App.Path + "\ customer.accdb"
conn.Open
intSQL = "SELECT score  FROM Integral" 
Set rs.ActiveConnection = conn
rs.CursorType = adOpenStatic
rs.Open intSQL
sc = 0
Do While Not rs.EOF
sc =" sc" + 1
total（sc） = rs.Fields（"score"）
rs.MoveNext
Loop
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub
（1）加框处①有错，应改为_____________________。
（2）加框处②有错，应改为_____________________。