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

2017年浙江省嘉兴市普通高校招生选考信息技术试卷

发布:2025/1/4 2:30:2

一、选择题(共12小题,每小题2分,满分24分)

  • 1.下列有关信息的说法中错误的是(  )

    组卷:11引用:1难度:0.9
  • 2.下列有关网页的说法中错误的是(  )

    组卷:11引用:1难度:0.9
  • 3.下列应用中,使用了OCR技术的是(  )
    ①车辆牌照识别系统拍摄车辆照片后,自动识别出其中的车牌号码
    ②视频监控系统监测红绿灯路口的车辆通行情况
    ③某手机云笔记App通过扫描文字稿件,自动识别后转化为可编辑的文本
    ④手机拍摄练习题解题过程照片,并发布在班级QQ群中讨论
    ⑤某手机银行App转账时,通过扫描银行卡自动输入卡号.

    组卷:7引用:1难度:0.9
  • 4.下列有关Access数据表的操作,说法正确的是(  )

    组卷:8引用:1难度:0.5
  • 5.已知二进制数“1000B”是二进制数“10B”的4倍,那么十六进制数“B00H”是十六进制数“BH”的几倍(  )

    组卷:5引用:1难度:0.5

二、解答题(共5小题,满分26分)

  • 16.【加试题】简化的VB词频统计程序.程序功能为:在文本框Text1中输入一篇英文文章,在文本框Text2中输入一个英文单词,单击按钮Command1后,在文本框Text3中显示这个英文单词出现的次数.程序运行界面如图所示.

    查找的英文单词由连续的ASCII英文字符(a~z或A~Z)组成.组合词程序会进行分解,如river-small可拆分为2个单词river和small.查找的英文单词不区分大小写.程序代码如下:
    Private Sub Command1_Click(  )
           Dim article As String,f As String,count As Integer
           Dim i As Integer,begin As Integer,s As String
           article=Text1.Text:f=Text2.Text:count=0
           begin=1
           For i=1 To Len(article)
                  t=Mid(article,i,1)
                  If Not (t>=“A“And t<=“Z“Or t>=“a“And t<=“z“) Then
                          If i>begin Then      
                                 s='(1)
                                 If LowerCase(f)=LowerCase(s) Then
                                         count=count+1
                                 End If
                                 begin=i+1
                           End If
                  Next i
                  Text3.Text=“出现次数为:“+Str(count)+“次“
           End Sub
    '单词转化为全小写的形式
           Function LowerCase(word As String) As String
                  Dim i As Integer,e As String
                  For i=1 To Len(word)
                          c=Mid(word,i,1)
    '小写英文字母的ASCII码值比大写字母的值大32
                  If c>=“A“And c<=“Z“Then c='(2)
                  LowerCase=LowerCase+e
           Next i
    End Function
    程序中(1)、(2)处加框代码有误,请改正.
    (1)处加框代码应修改为:
     

    (2)处加框代码应修改为:
     

    组卷:5引用:1难度:0.3
  • 17.【加试题】领礼物.圣诞节到了,教室里放满了礼物,大家站在同一位置即原点(0,0)处,根据自己拿礼物的序号轮流去拿礼物,每个人只能拿离自己最近的礼物,每件礼物的位置用坐标(x,y)表示.如果有多个礼物离你的距离相等(精确到小数后二位)且最近,则这些礼物都归你所有.
    程序运行时,在文本框Text1中输入共有礼物数n,单击“读取数据”按钮Command1,将从数据库gift.accdb中读取n个礼物的信息存储在相应的数组中,并显示在列表框List1中;在文本框Text2中输入轮到你拿礼物的序号(即第几个拿),单击“计算”按钮Command2,则在列表框List2显示你获得的礼物信息,并在列表框list2最后一行显示获得的礼物总数.程序运行界面如图所示.

    实现上述功能的VB程序代码如下,请回答下列问题.
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim bh(1 To 100)As String'数组bh存储礼物的编号
    Dim x(1 To 100)As Single,y(1 To 100)As Single'数组x、y分别存储礼物的横坐标和纵坐标
    Dim dist(1 To 100)As Single'数组dist存储礼物到原点的距离
    Dim n As Integer'变量n表示礼物数
    Private Sub Command1_Click(  )
       Dim i As Integer
    '从数据库中读取n件礼物的编号、横坐标、纵坐标,并存储在相应的数组中
    '代码略,下面代码的功能是计算各礼物到原点的距离
       For i=1 To n
             dist(i)=
     

             List1.AddItem bh(i)+““+Str(x(i))+““+Str(y(i))+““+Str(dist(i))
       Next i
    End Sub
    Private Sub Command2_Click(  )
       Dim xh As Integer,i As Integer,j As Integer,k As Integer
       Dim temp1 As String,temp2 As Single,p As Single,s As Single
       xh=Val(Text2.Text)
    '将礼物按到原点的距离从小到大排序,代码略
       i=0:j=1:s=0
       Do While(i<xh)And(j<=n)
           If dist(j)<>s Then
     

                   i=i+1
           End If
           j=j+1
       Loop
       u=0
       j=j-1
            Do While
     

            List2.AddItem bh(j)+Str(x(j))+Str(y(j))+Str(dist(j))
            u=u+1
            j=j+1
       Loop
       List2.AddItem“total:“+Str(u)
    End Sub
    (1)请在程序横线处填入合适的语句:
    划线①处应填入的语句为:
     

    划线②处应填入的语句为:
     

    划线③处应填入的语句为:
     

    (2)假设现共有14件礼物,礼物的信息如图所示,你轮到第10个拿礼物,则你获得的礼物数为
     

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