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

2016-2017学年浙江省杭州周边四校高三(上)期中信息技术试卷

发布:2024/12/2 9:30:2

一、选择题(本大题共12小题,每小题2分,共24分.在每小题给出的四个选项中,只有一个符合题目要求)

  • 1.校庆100周年时,小庆用数码摄像机拍摄表演的节目,数码摄像机的CCD芯片自动将光信号转换成0和1的数字信号,这个过程属于(  )

    组卷:4引用:1难度:0.9
  • 2.用UltraEdit软件观察“Bonnie@163.com”这几个字符的内码,如图所示.

    则“&Andy”这几个字符的内码是(  )

    组卷:10引用:2难度:0.9
  • 3.小蓓利用Access 2010软件打开畅销书列表,界面如图所示,下列说法中正确的是(  )

    组卷:3引用:1难度:0.9
  • 4.“Parkour”一词翻译成中文为“跑酷”,《地铁冲浪》就是一款流行的移动设备跑酷游戏,其软件开发团队在制作前先调查研究了用户对该产品的需求情况,这属于多媒体作品制作过程(  )

    组卷:10引用:6难度:0.9
  • 5.小梅使用Word编辑文档时的界面如图所示,下列说法中正确的是(  )

    组卷:19引用:3难度:0.7

二、非选择题(本大题共5小题,其中第13小题4分,第14小题5分,第15小题8分,第16小题4分,第17小题5分,共26分)

  • 16.[加试题]素数又称质数,指在一个大于1的自然数中,除了1和此整数自身外,不能被其他自然数整除的数.超级质数的定义为:当一个素数从低位到高位依次去掉最后一位数后,剩下的数仍然是素数,则此数为超级素数.例如:3137、313、31、3均为素数,所以3137为超级素数.小蓉设计了一个程序查找四位正整数中的超级素数.
    程序运行时,单击Command1,则在列表框List1中显示所有四位数的超级素数,并在标签Label1中显示超级素数的数量.程序运行效果如图所示.

    实现上述功能的VB程序如下,请在横线处填入合适的代码.
    Private Sub Command1_Click (  )
    Dim i As Integer,t As Integer,c As Integer
    Dim flag As Boolean
    c=0
    For i=1001To 9999Step 2
    t=i
    flag=True
    Do While t<>0
    If   Then
    flag=False
    Exit Do
    End If
    t=t\10
    Loop
    If  flag Then
    List1.AddItem Str(i)

    End If
    Next i
    Label1.Caption=“四位超级素数共有“+Str(c)+“个“
    End Sub
    Function prime(x As Integer) As Boolean
    Dim i As Integer
    prime=True
    For i=2To x-1
    If   Then
    prime=False
    Exit Function
    End If
    Next i
    End Function
    (1)①处的代码为
     

    ②处的代码为
     

    ③处的代码为
     

    (2)该程序的算法为
     
    .(选填:枚举算法/解析算法)

    组卷:2引用:1难度:0.1
  • 17.[加试题]计算机中用一个字节来存储一个字符的ASCII码,低7位二进制为ASCII编码,在传输数据时最高位可作为奇偶校验位,具体方法是:若7位ASCII编码有偶数个1,最高位为1,有奇数个1,则最高位为0.例如字母“A”的ASCII编码是65(二进制为1000001),则“A”的传输码是“11000001”.小马编写了一个VB程序,把ASCII编码转换成传输码,程序界面如图所示.

    (1)如果输入字母“F”,则它的传输码是
     

    (2)具体的VB程序如下,请在横线处填入合适代码.
    Private Sub Command1_Click (  )
    Dim s As String,i As Integer
    Dim str As String,ch As String
    List1.Clear
    str=Text1.Text
    For i=1To Len(str)
     

    s=convert(ch)
    List1.AddItem ch &“→“& s
    Next i
    End Sub
    Private Function convert(ch As String) As String
    Dim m As Integer,k As Integer,n As Integer,i As Integer,s As String
    s=““
    n=Asc(ch)
    Do While n>0
     

    s=m & s
    If m=1Then
    k=k+1
    End If
    n=n\2
    Loop
    For i=1To 7-Len(s)
    s=“0“& s
    Next i
    If k Mod 2=0Then
    s=“1“& s
    Else
    s=“0“& s
    End If
     

    End Function.

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