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

2020-2021学年浙江省稽阳联谊学校高三(下)月考信息技术试卷(4月份)

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

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

  • 1.下列关于信息和信息技术的描述,正确的是(  )

    组卷:15引用:1难度:0.7
  • 2.下列有关网页和电子邮件的说法,正确的是(  )

    组卷:2引用:1难度:0.7
  • 3.用Access软件设计一个数据表,存储下表所示的用户数据。
    会员编号 姓名 联系方式 注册日期 性别 余额
    1 徐文杰 17886262123 2021-1-1 202.30
    2 张乐 2021-1-5 15.86
    3 王燕飞 15957554321 2021-2-3 500.00
    下列表结构设计最合理的是(  )

    组卷:2引用:1难度:0.7
  • 4.利用软件UltraEdit观察字符内码,界面如图所示,下列说法正确的是(  )

    组卷:3引用:1难度:0.4
  • 5.用photoshop软件制作“建党百年”作品,如图所示。当前状态下,下列说法正确的是(  )

    组卷:1引用:1难度:0.6

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

  • 15.某店铺销售运动类商品,根据销售单售卖商品,然后更新库存和统计销售额。小商同学根据上述算法设计VB程序,读入销售清单数据(销售清单存在数组sale,其中奇数位是商品名,偶数位是购买数量),单击“计算”按钮command1,若库存充足则销售成功,否则该单号作废,最后在列表框list1降序输出各商品剩余库存和总销售额。程序界面和代码如下,回答下列问题:

    Dim goods(1 To 11)As String‘商品名,共11种
    Dim num(1 To 11)As Integer‘库存数
    Dim prize(1 To 11)As Integer‘商品单价
    Dim sale(1 To 160)As String‘共80个销售单号
    Private Sub Command1_Click (  )
    Dim i As Integer,j As Integer,t2 As Integer
    Dim total As Integer,s as string,t1 As String
    total=0
    For i=1 To 80
    For j=1 To 11
    If Then Exit For
    Next j
    If
     
      Then
    num(j)=num(j)-Val(sale(i*2))
    total=total+Val(sale(i*2))*prize(j)
    For k=1 To 10
    If
     
           Then
    t1=goods(k):goods(k)=goods(k+1):goods(k+1)=t1
    t2=num(k):num(k)=num(k+1):num(k+1)=t2
    t2=prize(k):prize(k)=prize(k+1):prize(k+1)=t2
    End If
    Next k
    Else
    List1.AddItem Str(i)+“号单库存不足“
    End If
    Next i
    ‘在列表框list1输出各商品剩余库存,代码略
    List1.AddItem“总销售额“+
     
    +“元“
    End Sub
    Private Sub Form_Load
     

    ‘读入数据,存在各个数组,代码略
    End Sub
    (1)根据代码和程序界面,本程序没有哪类对象
     
    (单选,填字母:A.文本框  B.列表框   C.标签  D.按钮 )。
    (2)加框处代码有错,请改正
     

    (3)在程序横线处填入合适代码,使程序完整。

    组卷:1引用:1难度:0.4
  • 16.有60个人要组建一个聚会,每人的喜好是一个数值,为提升聚会效果,会务组要把参会人员进行分组,分组原则是:
    (1)每组不超过8人
    (2)组内新增人员的喜好值必须与现有组内人员的平均喜好值相差在5以内
    (3)若新增人员无法加入现有小组,则被分入新组建小组
    小V同学根据上述算法设计编写了VB程序,界面如图所示,单击“分组”按钮后,在列表框list1输出分组结果,每组一行,回答下列问题:
    Dim a(1 To 60)As Integer'各人的喜好值
    Private Sub Command1_Click (  )
    Dim i As Integer,j As Integer,c As Integer,s as String
    Dim b(1 To 480)As Integer'分组后喜好值
    Dim ave(1 To 60)As Integer,num(1 To 60)As Integer
    For i=1 To 60‘预设60个分组
    num(i)=1
    ave(i)=0
    Next i
    c=1:ave(1)=a(1):b(1)=a(1)
    For i=2 To 60
    For j=1 To c
    If Abs(a(i)-ave(j))<=5 And num(j)<8 Then
    ave(j)=
     

    num(j)=num(j)+1
    b(j*8-8+num(j))=a(i)
    Exit For
    End If
    Next j
    If
     
    Then
    b(c*8+1)=a(i)
    ave(j)=a(i)
    c=c+1
    End If
    Next i
    s=““
    For i=1 To c
    For j=1 To
     

    s=s+Str(b((i-1)*8+j))
    Next j
    List1.AddItem s
    s=““
    Next i
    End Sub
    Private Sub Form_Load
     

    ‘生成60个原始数据,存入数组a,数组b各元素初始化为0,代码略
    End Sub
    (1)如图所示,当前数据已被分组,若再新增一个数“64”,会被分在第
     
    组。

    (2)在程序横线处填入合适代码,使程序完整。

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