相关试卷

  • 1、用Word软件编辑某文档的部分界面如图所示。

    对于图中所示部分的文档,下列说法正确的是 (  )

    A、修订标记处的原文是“计算机” B、文档中有2处批注,1处修订 C、接受所有修订后,文档修订处内容保留“计算机” D、拒绝所有修订后,文档中修订处内容为“高中信息技术”
  • 2、某网站主页包含下列元素:①文字;②图片;③链接;④音频,将该网页以“仅HTML”类型保存到本地磁盘,则保存的网页文件内容包含(  )
    A、①② B、①③ C、②③ D、②④
  • 3、下列有关信息与信息技术的说法,正确的是 (  )
    A、信息的价值因人而异 B、信息是指数据、信号和消息 C、微电子技术是将信息由一点传送到另一点的技术 D、现代信息技术包括摄影技术、广播电视和网络技术
  • 4、【加试题】张凡编写了二一租赁公司车辆信息查询的摆序,其中车辆的基本信息存放在数据文件“car.accdb”中的qicheinfo表,如图1所示。

    该程序采用两种查询方式:

    ⑴按的汽车的排量查询信息

    在文本框Text1中输入需要的汽车的排量,单击Command1按钮,在列表框List1中显示等于该排量汽车的相关车辆信息。

    ⑵按车主查询信息

    在文本框Text1中输入车主信息(手机号码或姓名),单击Command2按钮,在列表框List1中显示车辆信息。

    该程序运行时的界面如图2所示。

    实现上述功能的VB程序如下,请回答下列问题:

    (1)、当前数据库中共有条车辆信息可供查询。
    (2)、请在画线处填入合适的代码。

    Dim id(1 To 1 000)As Integer    ‘存储记录的ID

    Dim s(1 To 1 000)As String      ‘存储车牌号

    Dim D(1 To 1 000)As Single      ‘存储排量

    Dim cz(1 To 1 000)As String      ‘存储车主信息

    Dim zt(1 To 1 000)As String       ‘存储车辆状态

    Dim n As Integer,key As String

    Private Sub Form_Load()

        Dim conn As New ADODB.Connection

        Dim rs As New ADODB.Recordset

        conn.ConnectionString=“provider=Microsoft.Jet.OLEDB.4.0;Data Source=“+App.Path+”\car.mdb”

        conn.Open

        Set rs.ActiveConnection=conn

        Dim sq1 As String

        sq1=”SELECT*FROM qicheinfo”

        rs.Open sq1

        rs.MoveFirst

        Do While Not rs.EOF

             n=n+1

             id(n)=rs.Fields(“ID”):s(n)=rs.Fields(“车牌号”)

             p(n)=rs.Fields(“排量”):cz(n)=rs.Fields(“车主”)

             zt(n)=rs.Fields(“状态”)

             rs.MoveNext

        Loop

    End Sub

    ‘按排量查询车辆信息

    Private Sub Command1_Click()

     key=Val(Text1.Text)

     If px(1)=True Then

          List1.Clear

          x=0

          For i=1 To n

              If p(i)>=key Then

              List1.AddItem id(i)&“”& s(i)&“”&.p(i)&“”&.cz(i)

              &“”& zt(i)

        ①    

              End If

          Next i

          If x>0 Then

              List1.AddItem“共找到”+Str(x)&.”条记录!”

          Else

              List1.Additem”没找到相关信息!¨

          End If

        End If

    End Sub

    ‘按车主信息查询车辆信息

    Private Sub Command2_Click()

        List1.Clear

        Key=Text1.Text

        If px(2) Then

           i=chazhao(key)

           If i>0 Then

      List1.AddItem id(i) &””& s(i) &””&p(i)&””& cz(i)” &”

     “&.zt(i)

            Else

                 List1.AddItem”没找到相关信息!”

            End If

        End If

    End Sub

    Private Function px(m As Integer)As Boolean

        Dim flag As Boolean

        If m=1 Or m=2 Then

           px=True

           flag==False

           For pa=1 To n-1

               For pb=n To pa+1 Step-l

                   If m=1 Then flag=p(pb) <p(pb-1)

                   If m=2 Then flag=cz(pb)<cz(pb-1)

                   If flag Then

                      tid=id(pb):id(pb)=id(pb-1):id(pb-1)=tid

                      ts=s(pb):s(pb)=s(pb-1):s(pb-1)=ts

                      tp=p(pb):p(pb)=p(pb-1):p(pb-1)=tp

                      tz=cz(pb):cz(pb)=cz(pb-1):cz(pb-)=tz

                      tzt=zt(pb):zt(pb)=zt(pb-1):zt(pb-1)=tzt

        ②   

                   End If

              Next pb

          Next pa

        Else

          px=False

        End If

     End Function

     Private Function chazhao(key As String)As Integer

        Dim mk As Integer

        I=1:j=n

        Do While i<j

            mk=(i+j)\2

            If cz(mk)=key Then

        ③   

                Exit Do

            Elself key<cz(mk)Then

                j=mk-1

            Else

                i=mk+1

            End If

        Loop

    End Function

     ② ③ 

  • 5、【加试题】任意一个英文单词都由若干字母组成,记录单词中每个字母出现的次数,其中maxn为最多次数,minn为最少次数,如果maxn与minn的差是一个素数,这个单词就是一个幸运单词。

    例如:单词banana由b,a,n三个字母组成,其中a字母出现了3次,n字母出现了2次,b字母出现了1次,得到maxn为3,minn为1,maxn与minn的差为2,是一个素数,那么banana就是一个幸运单词。

    编写一个判断幸运单词的VB程序,在文本框Text1中输入一个单词(注:仅输入小写字母,且长度小于100),单击“判断”按钮Command1,标签Labal1输出运行结果。

    程序运行界面如图所示,实现上述功能的VB代码如下,但加框处代码有错,请改正。

    Private Sub Command1_Click()

        Dim maxn As Integer

        Dim minn As Integer

        Dim a(1 To 26)As Integer

        maxn=0

        minn=100

    s= Text1.Text

    n=Len(s)

    For i=1 To n

            dz=Mid(s,i,1)

            If dz>=“a”And dz<=“z”Then

              p=                 ‘(1)

               a(p)=a(p)+1

            End If

    Next i

    For j=1 To 26

            If a(j)>0 Then

             If a(j)>maxn Then maxn=a(j)

              If a(i)<minn Then minn=a(j)

            End If

           Next j

        If(maxn-minn>=1)And  Then       ‘(2)

            Label1.Caption=“幸运单词!”

          Else

            Label1.Caption=“无!”

          End If

        End Sub

    ‘自定义函数iszs(x)用于判断整数x是否为素数,如果x是素数返回True

      Function iszs(x As Integer)As Boolean

          ‘代码略

    End Fuction

    (1)、处加框代码应改为
    (2)、处加框代码应改为
  • 6、小李用Flash软件创作以“交通安全”为主题的多媒体作品,测试影片时,动画停在第一帧,鼠标单击“开始播放”按钮则开始播放动圆,部分界面如图所示,请回答下列问题。

    (1)、测试影片时,当鼠标经过“开始播放”按钮时有“小车运动”的动画效果,则该按钮的指针经过帧添加的对象类型是。(选填字母:A,位图/B,影片剪辑/C,形状)
    (2)、要让“文字”图层中的文字在淡入动画效果结束后一直在舞台上显示,可执行的操作为
    (3)、测试影片,在没有单击“开始播放”按钮时也能听到动画音效,则“声音”图层中的声音设置的同步方式是
    (4)、为实现该场景动画在结束后自动停止播放,小李可执行的操作为
    (5)、测试影片时,单击“交通安全”按钮,实现在浏览器中打开中国道路交通安全网http://www.rtsac.org的内容,则在“交通安全”按钮上添加的动作脚本是
  • 7、古希腊著名哲学家毕达哥拉斯把1,3,6,10,15,21,28……称为三角形数。这些三角形数序列有一定的规律,后一个数与前一个数的差刚好构成一个等差数列2,3,4,5,6,7……,所以第2位的“3”等于序列的第1位数“1”加上等差数“2”,第3位的6等于序列的第2位数“3”加上等差数“3”,……,第n位数m等于序列的第n-1位数加上等差数n。小金利用这个规律编写出了一个判断三角形数的VB程序,在文本框Text1中输入一个大于1的正整数,单击”判断”按钮Command1,在标签label1中显示判断结果。程序设计界面如图所示。
    (1)、在设计程序界面时,要清空标签中显示的内容“Label1”,应修改该标签的属性。
    (2)、VB程序代码如下,请在画线处填入合适代码。

    Private Sub Command1_Click()

      Dim n As Integer,S As Integer

      s=0

      n=Val(Text1.Text)

      If n>1 Then

          For i=1 To n

              s=    ①     

              If n=s Then

                  Label1.Caption=Str(n)+”是一个三角形数。”

                  Exit For

                     ②   

                   Label1.Caption=Str(n)+”不是一个三角形数。”

                    Exit For

                      End If

                   Next i

    Else

                   Label1.Caption=”请输入一个大于1的正整数”

    End If

    End Sub

     ② 

    (3)、若文本框Text1中输入的内容为“27”,单击按钮Command1后,标签Label1中显示的内容是
  • 8、小李收集了浙江省2017年前10月的工业增加值数据,并使用Excel软件进行处理,如图1所示。

    (1)、区域I4:I22的数据是通过公式计算得到的,在I4单元格输入公式后.用自动填充功能完成I5:I22的计算,则I4单元格中的公式是。(计算公式:1-7月占比=1-7月合计÷1-10月合计)
    (2)、小李创建了一张“各经济类型企业工业增加值”的图表,如图2所示。该图表的数据区域是

    (3)、将区域B3:H3,B6:H14的数据复制到新工作表,在新工作表中对第三季度的数据进行筛选操作,设置7月、8月、9月的筛选条件均如图3所示,则按此设置筛选出的企业类型有个。
    (4)、若要对各经济类型企业按1-10月合计的增加值数据从大到小显示,该如何操作
  • 9、【加试题】某算法的VB程序段如下:

      Dim a(1 T0 5)As Integer

      Dim c As Integer

      a(1)=44:a(2)=36:a(3)=58:a(4)=65:a(5)=12

      b=0:c=0

      For i=1 To 4

          k=i

        For j=i+1 To 5

            If a(j)<a(k) Then

              k=j

              b=b+1

             End If

          Next j

          If k<>I Then

          t=a(i):a(i)=a(k):a(k)=t

          c=c+1

        End If

      Next i

      Text1.Text=Str(b)+Str(c)

    运行该程序段后,文本框Text1的内容是 (  )

    A、53 B、44 C、43 D、34
  • 10、【加试题】有如下VB程序段(数组a各元素的初始值均为0)。

      n=Len(Text1.Text):c=1

      For i=1 To n

        s=Mid(Text1.Text,i,1)

        If s>=“0”And s<=“9”Then

            a(c)=a(c)*10+Val(s)

        Else

            If a(c)>0 Then c=c+1

        End If

     Next i

    在文本框Text1中输人“No1:X:123:Y:680:End”。执行该程序段后,数组a(2)的值为(  )

    A、1 B、2 C、3 D、123
  • 11、IN试题】将一个帧频为12fps的5秒钟动画导出为AVI格式视频,设置如图所示。该视频存储容量约为(  )

    A、52.7 MB B、10.5 MB C、421.8 MB D、900 KB
  • 12、小金制作一个盒绍涌泉蜜桔的多媒体作品,其媒体元素分解过程如表所示。

    元素名称

    元素内容

    获取方法

    文件名

    文本

    临海一奇,吃桔带皮(简介)

    输入

    动画

    桔子卡通造型

    Flash创作

    图片

    桔园图片

    拍摄

    音乐

    轻音乐

    网上获取

    则填入表中①②③④处的素材文件正确的是 (     )

    A、①jianj.docx  ②katong.swf  ③juyuan.htm  ④bj.mp3 B、①jianj.tif   ②katong.png   ③juyuan.swf     ④bj.wav C、①jianj.txt   ②katong.swf   ③juyuan.jpg    ④bj.mp3 D、①jianj.wps  ②katong. docx   ③juyuan.jpg   ④bj.avi
  • 13、使用Photoshop软件制作多媒体作品,部分界面如图所示。

    在当前状态下,以下选项正确的是 (  )

    A、“秋”图层中“投影”和“外发光”两种图层样式可视 B、可将“诗句”图层移动到“秋”图层的下方 C、只能用文字工具修改“诗句”图层中的文字大小 D、不能使用仿制图章工具在“背景”图层中复制“红叶”
  • 14、使用GoldWave软件编辑某音频文件,如图所示。

    以下说法正确的是(  )

    A、执行“删除”操作后保存文件,不会影响该音频文件的存储容量 B、执行“静音”操作,该音频文件的时间长度变为5秒 C、将该文件另存为MP3格式后,MP3格式音频的时长为4秒 D、执行“淡出”操作,从第3秒到第7秒声音由重到轻
  • 15、使用UltraEdit软件观察字符“1*2+3=5”的内码,部分界面如图所示。

    内码“33  28  37  2A  32”对应的字符可表示为一个算式,该算式计算结果是(  )

    A、20H B、37D C、10001B D、1101B
  • 16、某算法的部分流程图如图所示。执行该算法,依次输入3,5,7,9,11,12后变量m的值是(  )

    A、15 B、9 C、6 D、5
  • 17、用Access软件创建的数据表如图所示。

    以下关于该数据表说法正确的是(  )

    A、可以将当前记录的“编号”字段值修改为“P03” B、该表名称是“培训信息.accdb” C、“是否住宿”的字段类型为“是/否” D、该数据表共有4个字段
  • 18、微信的语音输入功能可以将语音转化为文字,该功能主要使用的技术是(  )
    A、语音识别技术 B、机器翻译技术 C、字符识别技术 D、虚拟现实技术
  • 19、以下关于信息的编码与网络协议说法正确的是(  )
    A、不能采用GB2312编码表示英文字母、数字和标点符号 B、用于浏览器与WEB服务器之间的信息传输的协议简称HTML C、SMTP和POP3协议用于电子邮件的收发 D、图像压缩分为有损压缩和无损压缩,JPEG标准属于后者
  • 20、以下关于信息与信息技术说法正确的是 (  )
    A、微博里的文章随着点击量的增加可能会引起信息损耗 B、“耳听为虚”是因为听到的信息没有载体 C、网络信息真假难辨,青少年应拒绝浏览因特网上的信息 D、支付宝使用指纹验证完成支付,提高了信息的安全性
上一页 1631 1632 1633 1634 1635 下一页 跳转