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

2020-2021学年浙江省嘉兴市高二(上)期末信息技术试卷

发布:2024/10/26 9:30:2

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

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

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

    组卷:3引用:1难度:0.6
  • 3.小明在创客嘉年华活动中看到以下项目
    ①识别人脸后自动用合适的称谓向来宾打招呼的机器人
    ②通过温度感应自动点亮的“月球灯”
    ③通过语音助手Siri控制家中各类电器
    ④利用虚拟现实技术提升文物修复的成功率
    ⑤说出垃圾名称后能自动打开相应分类垃圾桶的盖子
    以上应用了人工智能技术的是(  )

    组卷:7引用:1难度:0.6
  • 4.用Access软件创建“学生信息”数据表,其数据表视图和设计视图部分界面如图所示。下列说法错误的是(  )

    组卷:2引用:2难度:0.7
  • 5.下列有关多媒体技术的描述,正确的是(  )

    组卷:9引用:1难度:0.8

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

  • 15.编写VB程序实现以下功能:在文本框Textl中输入一个十进制正整数,单击“计算”按钮Commandl后,将该正整数转换为二进制数,最后在文本框Text2中输出该二进制数中连续“0”或“1”的最长个数情况。
    如:输入十进制数35,将其转换为二进制数为100011,其中最长连续数字是3个“0”。程序运行界面如图所示。
    (1)实现上述功能的VB程序如下,请在横线处填入合适的代码。
    PrivateSubCommandl_Click (  )
    DimnAsInteger,IAsInteger,jAsInteger,mAsInteger
    DimsAsString,chAsString,chlAsString,ch2AsString
    n=Val(Textl.Text)
    DoWhilen<>0
    s=CStr(nMod2)+s'CStr将数字转化为字符串,但不会有前导空格
     

    Loop
    ch1=Mid(s,1,1):ch=chl
    i=2:j=1:m=0
    Fori=2ToLen(s)
    ch2=Mid(s,i,1)
    If
     
    Then
    Ifi-j>mThen
    m=i-j
    ch=chl
    EndIf
    ch1=ch2
     

    EndIf
    Nexti

    Text2.Text=Str(m)&″个″&ch
    EndSub
    (2)如果将程序中加框处的代码去掉,在文本框Textl中输入15,单击Commandl后在标签Label2中显示的内容是
     

    组卷:0引用:1难度:0.5
  • 16.编写VB程序,实现在文本中统计以某字母开头的单词总数,并依次输出查找到的每个单词。程序功能如下:文本框Text1中输入文本(单词间用空格、“,”、“.”分隔),文本框Text2中输入开头字母,单击“查找”按钮Commmandl后,标签Label1中显示符合条件的单词总数,列表框Listl中依次输出每个单词,程序运行界面如图所示。

    (1)要使程序运行时,窗体Forml标题栏自动显示“统计指定字母开头的单词”,可在
     
    (单选,填字母:A.Form_Load
     
    /B.Form_Click
     
    /C.Commandl_Click
     
    )事件过程中添加相关语句来实现。
    (2)实现上述功能的VB程序如下,请在横线处填入合适代码。
    PrivateSubCommand1_C1ick (  )
    DimiAsInteger,jAsInteger,nAsInteger,flagAsBoolean
    DimstAsString,szmAsString,chAsString,wordAsString,tmpAsString
    st=Textl-Text
    szm=Text2.Text
    flag=True:n=0
    Fori=1ToLen(st)
     

    Ifch=szmAndflag=TrueThen
    n=n+1:word=ch
    Forj=i+1ToLen(st)
    tmp=Mid(st,j,1)
    Iftmp<>″″Andtmp<>″.″Andtmp<>″,″Then
     

    Else
    Listl.AddItemStr(n)+″.″+word
    i=j
    ExitFor
    EndIf
    Nextj
    ElseIfch=″″Orch=″,″Orch=″.″Then
     

    Else
    flag=False
    EndIf
    Nexti
    Label1.Caption=″字母″+szm+″开头的单词总数:″+Str(n)
    EndSub

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