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

2018-2019学年浙江省重点中学高三(上)期末信息技术试卷

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

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

  • 1.下列关于信息的说法,不正确的是(  )

    组卷:19引用:1难度:0.6
  • 2.下列关于网页与电子邮件的说法,正确的是(  )

    组卷:5引用:1难度:0.5
  • 3.关于微信小程序“智能扫描助手”的相关操作如下:
    ①使用微信“扫一扫”功能,打开“智能扫描助手”
    ②使用手机拍照功能获取图象
    ③使用识别功能识别图象中的文字
    ④使用语音输入法纠正错误的识别结果
    ⑤将识别结果翻译成英文
    ⑥复制识别结果后发送给好友
    其中体现人工智能技术的是(  )

    组卷:12引用:1难度:0.6
  • 4.关于Access数据库和数据表,下列说法正确的是(  )

    组卷:16引用:2难度:0.4
  • 5.某算法的部分流程图如图所示,若输入m的值是5,执行这部分流程后,变量s和i的值是(  )

    组卷:8引用:3难度:0.4

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

  • 16.循环排序。任意生成10个[1,100]之间的整数,编程实现将这10个数进行循环升序排序,即首尾相连后是一个升序序列。要求最小值位置不变,然后依次进行排列。程序运行界面如图所示:
    实现上述功能的VB程序如下,加框处的代码有误,请改正。
    Dim a(1 To 10)As Integer,b(1 To 10)As Boolean
    Private Sub Command1_Click (  )
    Dim min As Integer,pmin As Integer
    min=a(1):pmin=1
    For i=2 To 10
    If a(i)<=min Then min=a(i):pmin=i
    Next i
    b (pmin)=True
    pmin=
    If pmin=0 Then pmin=10
    For i=1 To 8
    k=pmin
    For j=1 To 10
    If  Then k=j
    Next j
    If k<>pmin Then
    temp=a(k):a(k)=a(pmin):a(pmin)=temp
    End lf
    b(pmin)=True
    pmin=pmin-1
    If pmin=0 Then pmin=10
    Next i
    将排序后的结果输出在列表框List2中,代码略。
    End Sub
    Private Sub Form Load (  )
    随机生成10个[1,100]之间的整数,存储在数组a中,并初始化数组b为 False,按顺序输出在列表框List1中,代码略。
    End sub

    组卷:3引用:1难度:0.4
  • 17.成绩赋分。浙江省的选考成绩采用等级赋分制,共分为21档。赋分方法是先将该科目的成绩从高到低排序,再依次根据不同档次的人数进行赋分。当成绩相同但人数超出该等级人数时,则减少下一档的人数。当原始成绩为0分,则赋分成绩也为0分。某学校某门科目的选考人数为200人,部分成绩如图a所示,其相应等级的人数如图b所示。请回答下列问题:
    (1)根据题意,观察赋分表,考号670500554的学生的赋分成绩是
     

    (2)实现上述功能的程序如下,请在横线处填上合适的代码。
    Dima(1To21)As Integer′该档次赋分分值
    Dimb(1To21)As Integer′该档次人数
    Dim kh(1To200)As String′学生考号
    Dim cj1(1To200)As Integer'学生的原始成绩
    Dim cj2(1To200)As Integer'学生赋分后的成绩
    Private Sub Form_Load(  )
    '从数据库中读取数据,将21个等级的分值和人数存储在数组a和数组b中,将学生的考号和原始成绩存储在数组kh和数组cj1中。最终根据原始成绩从高到低排序后将kh和cj1输出在列表框 ListI中,代码略。
    End sub
    Private Sub Commandl_Click(  )
    Dim k As Integer
    Dim flag As boolean'是否还可以对该档次进行赋分
    k=1:t=1:cj2(1)=a(1):flag=True
    For i=2 To 200
    ′根据学生的原始成绩按档次进行赋分
    If cjl(i)=oThen
    cj2(i)=0
    Elsele①
     
    Then'填空1处
    t=t+1:cj2 (i)=a(k)
    Else
    flag=False
    End If
    If Not flag then'当前档次的分值已经赋分完毕
    Do While t>b(k)
     
    :k=k+1'填空2处
    Loop
    t=t+l:cj2(i)=a(k):③
     
    '填空3处
    End If
    Next i
    List2.AddItem″学生考号″+″″+″学生成绩″
    For i=1 To 200
    List2.AddItem kh (i)+″″+Str(cj2(i))
    Next i
    End sub

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