试卷征集
加入会员
操作视频
当前位置: 试卷中心 > 试卷详情

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
深圳市菁优智慧教育股份有限公司
粤ICP备10006842号公网安备44030502001846号
©2010-2025 jyeoo.com 版权所有
APP开发者:深圳市菁优智慧教育股份有限公司| 应用名称:菁优网 | 应用版本:5.0.7 |隐私协议|第三方SDK|用户服务条款
广播电视节目制作经营许可证|出版物经营许可证|网站地图
本网部分资源来源于会员上传,除本网组织的资源外,版权归原作者所有,如有侵犯版权,请立刻和本网联系并提供证据,本网将在三个工作日内改正