2015年浙江省杭州市高考信息技术模拟试卷(10)
发布:2024/4/20 14:35:0
一、客观题
-
1.浙江某村大面积种植的大白菜滞销,大学生村官在网上发布了大白菜销售信息,引来各地订单,大白菜销售一空,从而避免了村民的经济损失.该事例中,主要体现了信息的( )
组卷:7引用:4难度:0.9 -
2.用UltraEdit软件观察“jy@cab.jye.ai”这几个字符的内码,如图所示.
则“cat”这几个字符的内码是( )组卷:2引用:4难度:0.9 -
3.现代社会研发和使用机器人越来越多,在国内外都在进行一些机器人比赛,在中学生的比赛中有常见的机器人灭火、机器人足球赛等等,这主要体现了信息技术中的( )
组卷:8引用:2难度:0.9 -
4.某Access数据表打开后如图所示,下列描述中正确的是( )
①数据表名称是:books
②数据表中共有3条记录
③数据表中共有6个字段
④其中author字段的数据类型应为文本。组卷:6引用:8难度:0.7 -
5.小宇在一本书上发现一篇较好的介绍如何增强体质的文章,他决定使用扫描仪和OCR软件将文字导出并进行编辑.正确的步骤是( )
①对图片进行倾斜校正等预处理;②将文字存储成文本(TXT)文件或RTF文件;
③对文字进行校对;④进行版面分析和文字识别;⑤使用扫描仪获取图片.组卷:8引用:5难度:0.9 -
6.小萍使用Word撰写了一篇号召节能减排的文章,想请语文教师给出修改建议,下列操作最合理的是( )
组卷:3引用:4难度:0.9 -
7.小陈申请了一个网银账号,登录网银账号时,要输入密码,一般情况下,如果密码输入的错误次数超过3次,那么当日网银账号将被锁定,次日自动解锁.下图是登陆网银的流程图,小陈不小心输入密码错误了2次,第3次才正确,那么她的操作流程应该是( )
组卷:4引用:10难度:0.7
二、主观题
-
21.输入一个三位数的整数,要求将此三位数的各位上的数字重新排列,组成一个尽可能大的三位数.例如:输入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='①
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='②
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.组卷:19引用:2难度:0.1 -
22.【加试题】下列VB程序的功能是:程序运行时,单击命令按钮Command1后,产生10个[1,999]范围内互不相同的随机整数,依次显示在列表框List1中,然后将它们按从小到大的顺序排序,排序结果显示在列表框List2中.
数组a用于存储产生的10个随机整数,函数f(x)用于判断随机整数x与已生成的整数是否有重复,若有重复则返回True,否则返回False.
(1)虚线框内程序段所采用的排序算法名称是
(2)在程序①和②横线处填入适当的语句或表达式,把程序补充完整.
Dim a(1To 10)As Integer
Function f(x As Integer)As Boolean
'代码略
End Function
Private Sub Command1_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=lnt(Rnd*999)+1'产生[1,999]范围内的随机整数
If Not f(x) Then
n=n+1
a(n)=x
List1.AddItem Str(
End If
Loop
For i=1To 9'进行排序
For j=10To i+1
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=1To 10
List2.AddItem Str(a(i))
Next i
End Sub.组卷:17引用:2难度:0.3