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

2018-2019学年浙江省金华市东阳中学高二(下)月考信息技术试卷(6月份)

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

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

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

    组卷:32引用:7难度:0.5
  • 2.小明利用邮件客户端软件收到了同学小亮发来的一封电子邮件,但他在写好回信单击“发送”按钮时却发送失败,可能的原因是(  )

    组卷:4引用:3难度:0.5
  • 3.使用Word软件编辑某文档,部分界面如图所示。下列说法正确的是(  )

    组卷:8引用:3难度:0.6
  • 4.编辑Access数据表“精品书籍表”(如图a所示),将Excel表(如图b所示)A2:F9区域数据复制到“精品书籍表”中,则正确的是(  )

    组卷:4引用:1难度:0.5
  • 5.某算法的部分流程图如第20题图所示,执行这部分流程,输出s的值为24,流程图中①处不可能为(  )

    组卷:2引用:2难度:0.5

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

  • 16.数组a中存储的是左右交替上升的n个正整数,如表所示:
    a(1) a(2) a(3) …… a(n-2) a(n-1) a(n)
    3 25 38 …… 55 31 12
    依据对分查找思想,设计一个在数组a中查找数据key的程序。实现该功能的VB程序如下,但加框处代码有错,请改正。
    Private Sub Command1_Click (  )
    Const n=6
    Dim a(1 To n)As Integer,flag As Boolean
    Dim i As Integer,j As Integer,m As Integer,key As Integer
    '读取一组正整数,按上述规则存入数组a中,代码略。
    key=Val(Text1.Text)
    i=1
    j=(n+1)\2
    flag=False
    Do While  And Not flag'(1)
    m=(i+j)\2
    If key=a(m) Then
    flag=True
    Elself key<a(m) Then
    j=m-1
    Else
    i=m+1
    End If
    Loop
    If Not flag And j>0 Then
    m='(2)
    If key=a(m) Then flag=True
    End If
    If flag Then
    Text2.Text=Str(m)
    Else
    Text2.Text=“找不到“
    End If
    End Sub

    组卷:1引用:2难度:0.5
  • 17.在数组a中按顺序找出一组升序子序列,可以不连续,但要求长度最长。例如:数组a的值分别为2,11,4,13,5,7.升序子序列分别有[2,11]、[2,4]、[2,11,13]、[2,4,13]、[2,4,5]、
    [2,4,5,7]、[11,13]、[4,13]、[4,5]、[4,5,7]、[5,7],其中最长升序子序列的数据是2,4,5,7。
    算法思路如下:
    (1)求以a(i)为结尾元素的最长升序子序列时,找到所有序号j(j=1,2……i-1),且a(j)<a(i)。
    如果这样的元素存在,且d(j)>=d(i)(d(i)记录i位置的最长升序子序列长度),那么就增加i位置的最长升序子序列长度,并记录该升序子序列倒数第二个位置。
    (2)在d数组中找出最大值,即最长升序子序列长度。
    (3)例如,2、11、4、13、5、7,d(1)=1,d(2)=2,d(3)=2,d(4)=3,d(5)=3,d(6)=4,所以最长升序子序列长度为4,是以a(6)为结尾元素。
    现设计了如下VB程序,界面如图所示,请回答下列问题:

    (1)观察图,最长升序子序列的数据是
     

    (2)请在横线处填入合适的代码。
    Constn=9
    Dima(1Ton)AsInteger
    PrivateSubForm_Load (  )
    ‘生成n个[1,10]范围的随机数,存储在a数组,并显示在列表框List1.代码略
    EndSub
    PrivateSubCommand1_Click (  )
    Dim d(1 To n) As Integer‘记录i位置的最长升序子序列长度
    Dim pre(1 To n) As Integer‘记录i结尾的最长升序子序列前一数据的位置
    DimstAsString,iAsInteger,kAsInteger,maxlenAsInteger
    Fori=1Ton
    d(i)=1
    Nexti
    Fori=2Ton
    Forj=1Toi-1
    Ifa(j)<a(i)Andd(j)>=d(i)Then
    d(i)=
     

    pre(i)=j
    EndIf
    Nextj
    Nexti
    maxlen=0:k=0
    Fori=1Ton
    If
     
     Then maxlen=d(i):k=i
    Nexti
    DoWhilek<>0
    st=a(k)&″,″&st
     

    Loop
    Text1.Text=Mid(st,1,Len(st)-1)
    EndSub

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