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

2018-2019学年浙江省宁波十校联考高三(上)月考信息技术试卷(9月份)

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

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

  • 1.二维码是近年来非常流行的编码方式,以下关于二维码的说法正确的是(  )

    组卷:32引用:7难度:0.5
  • 2.以下关于网络协议和网页保存类型的描述,正确的是(  )

    组卷:8引用:4难度:0.6
  • 3.以下关于数据库的说法正确的是(  )

    组卷:6引用:3难度:0.6
  • 4.指纹锁(如图所示)是通过提取指纹图象的特征进行身份识别,其工作流程可以分为:①指纹图象采集;②指纹图象处理;③控制门锁开启;④指纹图象特征的匹配;⑤指纹图象特征提取,正确的顺序应该是(  )

    组卷:28引用:3难度:0.7
  • 5.某算法流程图如图所示,执行这部分流程,变量 sum 的值为(  )

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

二、综合题(本大题共有5大题,其中第13题4分,第14题5分,第15题8分,第16题3分,第17题6分,共26分.)

  • 16.在 VB 的算术运算中,最大的实数类型 double 有效位数也只有 15 位。为了实现除法运算保留任意位数,小明根据除法原理,编写了如下程序,功能如下:在文本框 Text1 中输入被除数(正整数),在文本框 Text2 中输入除数(正整数),在文本框 Text3 中输入小数位数,单击按钮 Command1,在标签 Label 中显示除法运算的商。程序运行界面如图所示,但加框处代码有错,请改正:

    Private Sub Command1_Click(  )
    Dim x,y As Integer
    Dim n As Integer
    Dim s As String
    x=Val(Text1.Text):y=Val(Text2.Text)
    n=Val(Text3.Text)
    s=s+Str(x\y)
    s=s+“。“
    k=x Mod y
    For i=1To n
    x=x+k*10 ①
    s=Str(x\y) ②
    k=x Mod y
    Next i
    Label1.Caption=“商为:“+s
    End Sub

    组卷:4引用:1难度:0.6
  • 17.小明编写了一个 VB 程序对成绩数据进行排序。为保证相同分数的同学相对位置(指原数据中的前后关系)不发生改变,他试着采用一种新的排序算法来解决。为便于描述算法的实现过程,假定有如下数组 a:
    下标 1 2 3 4 5
    5 3 3 2 4
    第一步:统计数组 a 中每个值 a(i)出现的次数,存入 b(a(i)),统计完成后数组 b 的情况如下:
    下标 1 2 3 4 5
    0 1 2 1 1
    第二步:从前向后,依次使数组 b 中的每个值等于其与前一项之和,这样数组 b(a(i))就代表
    了数组 a 中小于或等于 a(i)的元素个数,完成第二步后数组 b 如下:
    下标 1 2 3 4 5
    0 1 3 4 5
    第三步:从后往前,依次将数组 a 中元素填入数组 c 中,将数组元素 a(i)放在数组 c 的第 b(a(i))项,如元素 a(1)=5,应该放在数组 c 的 b(5)位(即 c(5))。每放一个元素就将 b(a(i))递减;完成第三步后,数组 c 如下所示,已经完成升序排序,且相对位置不变,即原来 a ( 2)的值 3 仍然在 a(3)的值 3 前面。
    下标 1 2 3 4 5
    2 3 3 4 5
    程序运行界面如图所示:

    实现上述功能的 VB 程序如下,回答以下问题:
    ( 1)从代码中可以得知,用于连接数据库的对象名是:
     

    ( 2)请在横线处填上相应代码。
    Dim a(1To 50)As Integer'存放学生的成绩
    Dim sname(1To 50)As String'存放学生姓名
    Dim n As Integer
    Private Sub Command1_Click(  )
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    conn.ConnectionString=“Provider=Microsoft.ACE.OLEDB.12.0;Data Source=“+
    App.Path+“\stu.jye.ai“
    conn.Open
    strSQL=“SELECT*From stucj“
    Set rs.ActiveConnection=conn
    rs.Open strSQL
    n=0
    List1.AddItem“姓 名“&““&“成绩“
    Do While Not rs.EOF
    n=n+1
    a(n)=rs.Fields(“cj“)
    sname(n)=rs.Fields(“xm“)
    List1.AddItem sname(n) &““& Str(a(n))
     

    Loop
    rs.Close
    conn.Close
    End Sub
    Private Sub Command2_Click(  )
    Dim i As Integer,k As Integer
    Dim b(0To 100)As Integer
    Dim c(1To 50)As Integer,c1(1To 50)As String'c 和 c1 作为临时数组
    For i=1To n
    b(a(i))=b(a(i))+1
    Next
    For i=1To 100
    b(i)=②
     

    Next
    For i=n To 1Step-1
    c(b(a(i)))=a(i)
    c1(b(a(i)))=sname(i)
     

    Next
    For i=1To n'把临时数组 c 和 c1 中的数据放入 a 和 sname 数组
    a(i)=c(i)
    sname(i)=c1(i)
    Next
    List2.AddItem“姓 名“&““&“成绩“
    For i=1To n
    List2.AddItem sname(i) &““& Str(a(i))
    Next
    End Sub

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