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

2016-2017学年浙江省衢州市高三(上)质检信息技术试卷

发布:2024/4/20 14:35:0

一、选择题(共12小题,每小题2分,满分24分)

  • 1.在微信朋友圈给好友发布的信息点赞,属于信息评价中的(  )

    组卷:5引用:2难度:0.9
  • 2.2016年9月,搜狗CEO王小川在世界第三届互联网大会上发布了机器同传新产品,该产品能将演讲嘉宾的中文实时同步翻译为英文,并显示在屏幕上.这一产品主要应用的技术是(  )

    组卷:3引用:1难度:0.9
  • 3.在某网站上注册会员时,手机收到一个验证码短信,内容为:“尊敬的顾客,您在××网站注册,验证码为:******”.注册人填写该验证码,表明手机为注册人所有,才能通过注册,这一过程是确保信息的(  )

    组卷:3引用:1难度:0.9
  • 4.小王想买一台笔记本电脑,在某网站浏览时的部分页面如图所示.由图可知,小王对笔记本电脑的筛选条件是
    (  )

    组卷:4引用:1难度:0.5
  • 5.小明使用Access创建“档案”数据表,其设计视图的部分界面如图所示.下列说法正确的是(  )

    组卷:2引用:1难度:0.7

二、解答题(共5小题,满分26分)

  • 16.一个整数n(n≥11)从左向右和从右向左读其结果相同,且是素数,则称n为回文素数,例如133 020 331是回文素数.小张设计一个VB程序用于找出1000以内的所有回文素数,程序运行界面如图所示.实现上述功能的VB程序如下,但加框处代码有误,请改正.

    Private Sub Command1_Click(  )
        Dim n As Interger,j As Integer,m As Integer
         '(1)
          Do While n<1000'判断是否为素数
              m=Int(Sqr(n))
               For j=2  To m
                   If  n  Mod j=0 Then Exit For
                Next  j
                 If  j>m  Then
                      If  hws(n)=Ture Then
                           List 1.AddItemStr(n)
                       EndIf
                   EndIf
                    n=n+2
          Loop
    End   Sub
    Function  hws(n  As  Integer)As Boolean'判断所给n是不是回文数
         Dim j,k As Integer 
         Dim m As  String
         Dim a As Integer,b As Integer  
          hws=True
          m=Str(n)
          k=Len(m)
          For j=1 To  k\2
               a=Val(Mid(m,j,l)
               b='(2)
                If  a<>b  Then
                     hws=False
                      Exit  For 
                EndIf
           Next j
    End  Function.

    组卷:2引用:1难度:0.3
  • 17.小李设计了一个插入排序的VB程序,功能如下:在列表框List1中按成绩从低到高显示每个学生的姓名和成绩,在文本框Text1中输入一个学生的姓名,在文本框Text2中输入这位学生的成绩,单击“插入排序”按钮Command1,检查数组列表中的学生成绩,将其插入到适当位置,保持成绩有序,并在列表框List2中显示插入后的学生姓名和成绩序列.程序运行界面如图所示.

    实现以上功能的VB程序如下,请回答下列问题:
    (1)小李使用的查找算法是
     
    (填:顺序查找/对分查找).
    (2)分析程序,可知关闭记录集对象的语句为
     

    (3)请在画线处填入合适的代码.
         Dim  m(1 To  20)As String
         Dim   s(1 To  20)As Integer
         Dim n As Integer
     Private Sub Form_Load(  )
         Dim conn As New ADODB.Connection'定义新的数据库连接
         Dim rs As New ADODB.Recordset'定义数据库的一个对象
         conn.ConnectionString=“provider=Microsoft.ACE.OLEDB.12.0;data   source=“&   App.Path &“\fwdh.jye.ai“'设置conn的数据库链接字符串
          conn.Open'找开数据库链接
          Set  rs.ActiveConnection=conn'设置rs的ActiveConnection属性,关联conn
          rs.Open“select * from  fwdh“'打开数据库中的表 fwdh
          n=0
          Do While Not rs.EOF
             n=n+1
             m(n)=rs.Fields(0)
             s(n)=rs.Fields(1)
             List1.AddItem  rs.Fields(“姓名“)&““&  rs.Fields(“成绩“)
             rs.MoveNext
           Loop
           rs.Close
           conn.Close
    End Sub
    Private Sub command1_click (  )
         Dim x  As String,y  As Integer
          x=Text1.Text
          y=Val(Text2.Text)
          i=n
          Do While
     
    '①
              s(i+1)=s(i)
              m(i+1)=m(i)
               i=i-1
           Loop
     
    '②
     
    '③
            For  i=1  To  n+1
                List2.AddItem  m(i)&““&Str(s(i))
            Next  i
    End Sub.

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