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

浙江某村大面积种植的大白菜滞销，大学生村官在网上发布了大白菜销售信息，引来各地订单，大白菜销售一空，从而避免了村民的经济损失。该事例中，主要体现了信息的（ ）

用UltraEdit软件观察“jy@cab.com”这几个字符的内码,如图所示。

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

现代社会研发和使用机器人越来越多，在国内外都在进行一些机器人比赛，在中学生的比赛中有常见的机器人灭火、机器人足球赛等等，这主要体现了信息技术中的（ ）

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

①数据表名称是:books
②数据表中共有3条记录
③数据表中共有6个字段
④其中author字段的数据类型应为文本

小宇在一本书上发现一篇较好的介绍如何增强体质的文章，他决定使用扫描仪和OCR软件将文字导出并进行编辑。正确的步骤是（ ）
①对图片进行倾斜校正等预处理；
②将文字存储成文本（TXT）文件或RTF文件；
③对文字进行校对；
④进行版面分析和文字识别；
⑤使用扫描仪获取图片。

小丽使用Word撰写了一篇号召节能减排的文章，想请语文教师给出修改建议,下列操作最合理的是（ ）

萧明申请了一个网银账号，登录网银账号时要输入密码。如果密码输入的错误次数超过3次，那么当日网银账号将被锁定，次日自动解锁。下图是登陆网银的流程图，萧明不小心输入密码错误了2次，第3次才正确，那么他的操作流程应该是（ ）

A．①②③①②③①②③④⑤

B．①②③①②③④⑤

C．①②③④⑤

D．①②③④⑤⑥

将图像a.bmp、b.bmp加工处理后得到c.bmp，如图所示：

关于这3幅图像，下列说法不正确的是（ ）

天天同学用GoldWave软件打开某声音文件，状态栏如图所示，下列说法错误的是（  ）

小张在Flash中制作了一个名为“start”的按钮元件，部分界面如下图所示：

将该按钮应用到“场景 1”场景，测试该场景时发现：当鼠标指向该按钮时，指针没有变成小手形状。可能的原因是(  )

下表是某校元旦文艺演出评分统计表，用EXCEL进行数据处理（如图1所示），请回答以下问题：


（1）在H3单元格中计算高三（6）班的班级总分，选中H3单元格，输入           （使用函数），并使用___________功能，快速将H3单元格中的公式复制到H4：H13中，求出其它班级的班级总分。
（2）如图所示，选中K3单元格在地址栏中显示 “=（H3-I3-J3）/4”，请写出如果选中K10单元格，那么在编辑栏中将显示            。若想使K3：K13区域的数值保留两位小数、水平居中，可以通过图2中的____________选项卡实现？

全国两会中有代表又提到了个人税金问题。代表提议将个税作以如下的调整：月收入在2万及以上的收10%，月收入在1万（含）至2万的收5%，月收入在5千（含）至1万的收2%，月收入少于5千的免收。
小明用VB设计了计算个税的程序，程序运行时界面如图1所示，在文本框Text1中输入月收入后，点击“开始计算”按钮后，在文本框Text2中显示该产品应征收的税金。

（1）为应用程序界面添加“开始计算”按钮，应使用图2中的____________（填写相应编号），并将图3所示中的“属性窗口”中，将________属性设置成“开始计算”。

（2）根据题意，将下列程序空格处补充完整。
Private Sub Command1_Click()
Dim x As Single, p As Single
x ＝ Val(Text1.Text)
If x >＝ 20000 Then
p ＝ 0.1 * x
Else If x >＝ 10000 Then
p ＝ 0.05 * x
Else If x >＝ 5000 Then
p ＝ 0.02 * x
Else
P ＝ 0
End If
___________＝ Str(p)
End Sub

小飞用photoshop制作了一幅《小何才露尖尖角》的作品，当前操作界面如图1，请回答下列问题。

（1）在制作过程中，小飞不小心点击了某处，发现蜻蜓2不见了，如图2所示，原因是________。(填序号：①该图层被隐藏/②蜻蜓2对象被删除/③所在图层下移蜻蜓2被遮盖）

（2）小飞希望“小池”2个字的效果如图3所示，应该使用________命令。（填：自由变换/文字变形/扭曲）
（3）蜻蜓3变成图14中的效果，是通过设置_________(填：图层样式/滤镜/蒙板)实现。

陈宇同学要制作一份用于班会课的多媒体作品。
（1）该作品的主交互界面由“钓鱼岛简介”、“争端由来”、“保钓事件”、“购岛闹剧”、“应对措施”五个模块组成。请根据描述完成以下模块框架设计图。

在①处填                        
在②处填                        
（2）作品主交互界面制作脚本如下所示：


①根据以上描述，“按钮2”图层应在第（    ）帧插入关键帧。
②要设置“退出”按钮的动作效果，正确的作法是在该按钮上输入动作脚本            

十进制数12是二进制数110的（ ）

将数学表达式写成Visual Basic表达式，正确的是（  ）

某VB程序的一个事件过程如下：
Private Sub Commandl_Click()
Dim i As Integer,j As Integer.s As String
Dim a(1 To 5) As Integer
List1.Clear
Randomize
For i="1" To 10
j="Int(Rnd*6)+1"
a(j)=a(j)+1
Next i
For i="1" To 5
s=Str(a(i))
List1.AddItem s
Next i
End Sub
程序运行时，单击按钮Commandl后弹出如图所示的错误提示。出现错误的语句是(  )

某餐厅在团购网站上推出了98元享原价198元的套餐团购活动，但规定每天接受团购券数量是有限制的，表示此餐厅是否接受团购券的算法如下：
①number＝0  ′团购券数量用变量number表示。
②Do While number<=29
③读入用餐顾客的情况
④If 使用团购券顾客 then
变量number增加1
允许使用团购券进行消费
End If
⑤Loop
对于上述算法，下列说法错误的是(  )

有8个西瓜的重量（单位：斤）分别是5.2，4.5，4.1，3.5，8.3，7.4，3.8，7.5。若采用选择排序算法对其进行从小到大排序，共需交换数据的次数是（  ）

有如下Visual Basic程序：
Private Sub Command1_Click( )
Dim  s  As  Integer
Dim  I  As  Integer
S=0
For i="1" To 10
s=s+i\7
Next i
Text1.text=str(s)
End sub
该程序段运行后，文本框Text1中显示__________

输入一个三位数的整数，要求将此三位数的各位上的数字重新排列，组成一个尽可能大的三位数。例如：输入213，重新排列可得到尽可能大的三位数是321。
现要求编写VB程序（运行界面如图所示），实现如下功能：在文本框Text1中输入一个三位数整数，单击“求解”按钮Command1，在文本框Text2中显示重新组合后的最大三位数整数。某同学按此要求编写的程序如下，其中函数max(x)用于求解最大三位数整数，但加框处代码有错，请改正。

①__________________②___________________
Function max(x As Integer) As Integer
Dim a As Integer, b As Integer, c As Integer, t As Integer
a =" x" \ 100
b = (x \ 10) \ 10             ' ①
c =" x" mod 10
If a < b Then t =" a:" a =" b:" b = t
If a < c Then t =" a:" a =" c:" c = t
If b < c Then t =" c:" c =" b:" b = t
max = c* 100 + b * 10 + a     ' ②
End Function
Private Sub Command1_Click()
Dim n As Integer, y As Integer
n = Val(Text1.Text)
y = max(n)
Text2.Text = Str(y)
End Sub

下列VB程序的功能是：程序运行时，单击命令按钮Commandl后，产生10个[1，999]范围内互不相同的随机整数，依次显示在列表框List1中，然后将它们按从小到大的顺序排序，排序结果显示在列表框List2中。数组a用于存储产生的10个随机整数，函数f(x)用于判断随机整数x与已生成的整数是否有重复，若有重复则返回True，否则返回False。
（1）虚线框内程序段所采用的排序算法名称是          。（填：冒泡排序/选择排序）
（2）在程序(1)和(2)划线处，填入适当的语句或表达式，把程序补充完整。
Dim a(1 To 10) As Integer
Function f(x As Integer) As Boolean      ′代码略
End Function
Private Sub Commandl_Click()
Dim n As Integer                         ′n用于统计已经产生的随机整数个数
Dim i As Integer.j As Integer
Dim x As Integer.k As Integer
Randomize                                ′初始化Rnd函数
n=0
List1.Clear                              ′清除列表框中内容
List2.Clear
Do While n<10
x=Int(Rnd*999)+1                         ′产生[1，999]范围内的随机整数
If Not f(x) Then
n=n+1
a(n)="x"
List1.AddItem Str(   （1）   )
End If
Loop
For i="1" To 9                             ′进行排序
For j="10" To i+1     （2）  
If a(j)<a(j-1) Then
k=a(j):a(j)=a(j-1):a(j-1)=k
End If
Next j   
Next i 
For i="1" To 10
List2.AddItem Str(a(i))
Next i
End Sub