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

微信“扫一扫”功能能够扫描二维码得到相关人员的名片或网站网址信息，该过程属于（ ）

用UltraEdit软件观察“Yellow黄色”这几个字符的内码,如图所示：

则“Zoo”这几个字符的内码是（ ）

某网店有评价如图所示：则该评价属于（ ）

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

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

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

某算法流程图如图所示，该算法实现的功能为（ ）

小曹准备制作主题为"班主任的传奇人生"多媒体作品，在创作需求分析阶段涉及分析创作作品所需的软件配置、最低运行硬件配置。这一环节内容属于（ ）

未经压缩的BMP图片，如左图所示。若用图像编辑软件进行处理，并按原参数、式和文件类型保存为右图所示，则下列描述正确的是（ ）

某Flash作品的“音乐”图层中，应用“秋日私语.mp3”声音时，属性设置如下图所示：

则下列说法正确的是（ ）

使用“会声会影”软件进行影视创作，部分操作界面截图如图所示：

小高一家准备出行远游，由小高负责对打算出游城市查询天气状况并决定是否出行。请根据图示回答问题。

(1)若要使表格标题合并居中并设置相应的字号，则应使用单元格格式对话窗口中的_________功能达到相应目的。
(2)表格中的日期可以使用excel提供的______________功能完成输入。
(3)选中G3单元格，输入Ｍax(B3:B12)，按回车后，G4单元格将显示___________。
小高选中A2单元格后，按住Ctrl键不放，鼠标依次拖曳选中A2:A12，Ｃ2:C12单元格，然(4)后开始建立图表，在选择择线图类型之后出现3图所示情况，请分析该问题出现_____________阶段（填：选择图表类型/选择图表源数据/设置图表选项）。

某地区公共自行车收费信息如下：“60分钟内免费；60分钟以上至120分钟（含），收费1元；120分钟以上至180分钟（含），收费2元；租用超过180分钟（含）以上的时间，按每小时3元计费（不足一小时的按一小时计）”。现按要求编写VB程序，界面如1图所示，程序功能如下：在文本框Text1中输入租车时间，单击“计费”按钮Command1，在标签Label5中输出对应的租车费用。

(1)在应用程序界面设计时，为添加“计费”按钮，应使用2图所示的“控件工具箱”中的__________（请填写相应编号），并在3图所示的“属性窗口”中，将____________属性值设置为“计费”。

(2)请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim zysj As Single, zyfy As Single ‘zysj:租用时间，zyfy:租用费用
zysj = Val(Text1.Text)
If zysj <=" 60" Then
zyfy = 0
ElseIf zysj <=" 120" Then
zyfy = 1
ElseIf zysj <=" 180" Then
_______
ElseIf zysj Mod 60 =" 0" Then
zyfy =" (zysj" - 180) / 60 * 3 + 3
Else
zyfy =" (Int((zysj" - 180) / 60) + 1) * 3 + 3
End If
Label5.Caption = Str(zyfy)
End Sub

小李与小葛准备用photoshop软件，针对银临的《腐草为萤》网络音乐专辑设计封面，希望以此发扬古风文化，使用素材如1图所示，当前编辑窗口如2图所示。

(1)点击2图中①处眼睛标记，结果发现②处印章区域中的文字也消失了。可能的原因是_____________。
(2) 在图层银临背景隐藏的前提下将该图片文档另存为JPG格式图片，请问保存后的JPG图片是否有印章显示。_______（填是或否）

小曹制作了主题为“班主任的传奇人生”相关的Flash动画，其中main场景的制作界面如1图所示。

请回答下列问题：
(1)若动画中没有任何动作命令，在执行“测试影片”命令时，当播放完“期望录音”场景时，接着播放场景______________。
(2)从图中所给库面板中可以看出该Flash作品缺少________类型的元件。
(3)若要使该Flash动画在测试影片时停留在“目录”场景的最后一帧，则可以选择“目录”场景“目录”图层的第79帧设置帧动作，命令为：____________。
(4)在测试影片状态下，将鼠标分别移至四个按钮后，发现当鼠标移至按钮“摄影作品”时没有改变鼠标指针形状，该按钮编辑状态如2图所示，据此分析推断可能原因是_______。

已知Asc(“A”)的值为65，下列Visual Basic表达式的值等于数值131的是（ ）

有如下VB程序段：
bianliang_a =" 3:bianliang_b" = 4
Label1.caption = “bianliang_a*bianliang_b”
该程序段运行之后，标签Label1将显示（ ）

某超市面食区共有5种面食品种，其价格依次为6.20、4.5、5.5、2、3，若采用冒泡排序算法对其进行从小到大排序，则第二趟的排序结果是（ ）

某查找算法的部分VB代码如下：
shifouzhaodao = False  ‘shifouzhaodao：是否找到
szysxh = 0    ‘szysxh：数组元素序号
Do While szysxh < 5 And not shifouzhaodao
szysxh =" szysxh" + 1
if dczsz(szysxh) =" Key" then shifouzhaodao = true
Loop
if not shifouzhaodao then szysxh = 0
数组元素dczsz (1)到dczsz (5)的数据依次为“-1，3，7，10，7”，当变量key值为7时，运用该算法处理后，变量i的值是（ ）

下列VB程序运行时，单击命令按钮Command1后，若在文本框中输入10，则标签Label1显示的内容是______
Private Sub Command1_Click()
Dim sjzs As Integer
Dim rjzs As String
sjzs = Val(Text1.Text)
rjzs = ""
Do While Int(sjzs / 2) > 0
rjzs =" Str(sjzs" Mod 2) + rjzs
sjzs =" Int(sjzs" / 2)
Loop
Label1.Caption = rjzs
End Sub

自幂数是指一个 n 位数，它的每个位上的数字的 n 次幂之和等于它本身。使用枚举法寻找5位数以内的自幂数算法如下：
(1)使用循环列出1到99999中的每一个数zmsknz
(2)通过自定义函数ddknzms拆解得到每个数中的每位数上的数码及它们对应的n次幂之和
(3)将zmsknz与ddknzms进行比较，若相等则说明是自幂数，可将其加入列表。
编写VB程序，使用枚举法得到5位数以内的自幂数，程序设计界面如图所示：

请根据算法及相应注释将下面的程序补充完整：
Function ddknzms(zmsknz As Long) As Long  '得到可能的自幂数
Dim zmsknz_str As String  '字符串类型自幂数可能值
Dim zmsknz_length As Integer, zmswsxh As Integer '字符串类型自幂数可能值字符个数
zmsknz_str = Trim(Str(zmsknz))
zmsknz_length = Len(zmsknz_str)
For zmswsxh =" 1" To zmsknz_length
ddknzms =" ddknzms" + Val(Mid(zmsknz_str, zmswsxh, 1)) ^   ①   
Next zmswsxh
End Function
Private Sub Command1_Click()
Const ZMSWS = 5
Dim zmsknz As Long, zmsknz_zz As Long
zmsknz_zz =" 10" ^ ZMSWS - 1
For zmsknz =" 1" To zmsknz_zz
If       ②       Then List1.AddItem (Str(zmsknz))
Next zmsknz
End Sub

某校学生会选举需要从学校数据库中随机抽取若干名学生作为监票人。该数据库文件名为school.mdb，其中数据表student存储有关学生学号（xuehao）、姓名（xingming）相关信息，括号内的内容为对应字段名。该程序编辑界面如图所示，相关对象名可参考标识图。

当主持人点击按钮“生成抽号”后，下方的标签会显示可抽取的学号姓名，一定时间后显示被抽取作为监票人的学号姓名。
'xxxss:学校学生数，kcq:可抽取
'xhxm:学号姓名，kcq:可抽取
Dim xxxss As Integer
Dim xhxm(3000) As String
Dim kcq(3000) As Boolean
'cq_Click:启用两个定时器
Private Sub cq_Click()
cqxhxm.Enabled = True
xskcqxhxm.Enabled = True
End Sub
Private Sub cz_Click()  '初始化数组kcq，使每个元素数据都处于可显示状态
For i =" 0" To xxxss - 1
kcq(i) = True      '①
Next i
End Sub
Private Sub xskcqxhxm_Timer() '若数组kcq第x个元素处于可抽取状态，则显示数组xhxm第x个元素
x =" Int(Rnd" * xxxss)
If kcq(x) Then xhxmbq.text = kcq(x)   '②
End Sub
Private Sub Form_Load() '从数据库中提取需要的学号姓名相关数据并初始化数组kcq
Randomize
xxxss = 0
Dim conn As New ADODB.Connection,rs As New ADODB.Recordset
Dim str_conn as String,str_sql As String
str_conn = "driver="Microsoft" access driver(*.mdb);DBQ="&app.path&"\school.mdb";
conn.open str_conn
str_sql = "select * from students"
rs.open str_sql
Do While Not rs.eof
xxxss =" xxxss" + 1
xhxm(xxxss) = rs.fields("xuehao")&rs.fields("xingming")
rs.movenext
Loop
For i =" 0" To xxxss - 1
kcq(i) = True
Next i
End Sub
Private Sub cqxhxm_Timer()  '决定抽取的学号姓名作为监票人
xskcqxhxm.Enabled = False
For i =" 0" To xxxss - 1
If xhxmbq.Caption =" xhxm(i)" Then kcq(i) = False
Next i
cqxhxm.Enabled = False
End Sub