相关试卷

  • 1、历史故事“明修栈道,暗渡陈仓”说明了信息具有(  )
    A、价值性 B、共享性 C、时效性 D、真伪性
  • 2、下列关于信息特征的叙述,不正确的是(  )。
    A、信息可以被多个接收者接收并可重复使用 B、人们接收到的信息并非都有价值 C、信息的价值永远存在 D、信息必须依附一定的载体才能够表现出来
  • 3、全国各族人民通过网络、电视收看国庆七十周年庆典节目,感受祖国的繁荣和富强。这一事例主要表明信息具有(  )
    A、传递性、共享性 B、传递性、真伪性 C、共享性、时效性 D、真伪性、时效性
  • 4、超市门口LED屏滚动显示当天的蔬菜价格信息,其信息的主要载体是(  )
    A、文字 B、声音 C、颜色 D、文件
  • 5、下列选项中,属于信息范畴的是(  )
    A、电视节目预告 B、《读者》杂志 C、《春节晚会》视频光盘 D、电视台播音员
  • 6、在一个数组中存储了若干个同学的技术成绩小题分,其中a(1)存储学生个数,a(2)开始按顺序存储小题分数据。每个学生有33个小题的数据,例:a(2)~a(13)是学生1的信息选择题得分,a(27)~a(30)是学生1的信息4个主观题得分。具体如下表

    题号

    1-12

    13-25

    26-29

    30-33

    科目题型

    信息客观题

    通用客观题

    信息主观题

    通用主观题

    满分分值

    每题2分

    每题2分

    4/8/7/7

    6/9/3/6

    小李根据上述描述,设计了一个统计所有同学信息各题得分率的算法。程序运行后首先在列表框list1显示信息技术各小题得分,单击“计算”按钮“command1”,在列表框list2显示信息各题的题号和得分率,在文本框text1输出所有同学的信息平均分(平均分=各题得分率*各题分值的和)。算法的VB程序如下,回答下列问题。

    (1)、根据题目描述,使用如图所示数据,a(95)的数值是
    (2)、在程序划线处填上合适代码,使程序完整

        Dim a(1 To 1000) As Integer, n As Integer

        Private Sub Command1_Click()

            Dim i As Integer, j As Integer

            Dim fz(1 To 16) As Integer 'fz数组存储信息各题满分值

            Dim b(1 To 33) As Double   '数组b存储全卷各题的得分率

                For i = 1 To 16  ‘数组fz存储信息16个小题的满分值

                  If i <= 12 Then fz(i) = 2

                  fz(13) = 4: fz(14) = 8: fz(15) = 7: fz(16) = 7

                Next i

                For i = 2 To n  '把数组a数据分别统计到各题中

                     

                  b(j) = a(i ) + b(j)  

                Next i

                For i = 1 To 33  '仅处理信息各题的平均分

                  If i <= 12 Then

                    b(i) = b(i) / (a(1) * fz(i))’计算信息选择题各题的得分率

                ElseIf i >= 26 And i <= 29 Then

                    b(i) =

                End If

                Next i

                For i = 1 To 16

              If i > 12 Then j = i + 13 Else j = i

              b(j) = Int(b(j) * 1000 + 0.5) / 10 '对结果四舍五入保留1位小数

              List2.AddItem Str(i) +  Str(b(j)) + "%"

                ave=   

                Next i

              Text1.Text = Str(ave / 100)

              End Sub

              Private Sub Form_Load()

              ‘读入数据到数组a,数据个数n,代码略

         End Sub

  • 7、下列VB程序实现数字字母混合序列分离后分别排序,最后又合并输出。具体算法如下:在文本框Text1输入若干组混合序列,每组序列中仅包含一组字母和一个多位数字,序列之间用逗号隔开,以逗号结束。单击“排序”按钮command1,把每组序列中的字母和数字分开,并分别排序,最后在列表框list1输出。排序规则如下:所有数字按从小到大升序排序,字母序列按长度升序排序,若长度相同,直接按字母序列大小升序排序(按字母的ASCII码排序,“A”<“Z”<“a”<“z”)。实现算法的部分程序界面如图所示,VB程序代码如下,回答下列问题:

    Private Sub Command1_Click()

    Dim a(1 To 6) As Integer, b(1 To 6) As String, i as integer, j as integer

    Dim c As String, k As Integer, tmp1 As Integer, tmp2 As String

    s=text1.text

    i = 1: k = 1: tmp1 = 0: tmp2 = ""

    Do While i <= Len(s)

          c = Mid(s, i, 1)

          If c = "," Then

             a(k) = tmp1: b(k) = tmp2

             tmp1 = 0: tmp2 = ""

                  ①    

          Else

            If  Then 

               tmp2 = tmp2 + c

            Else

             tmp1=tmp1*10+val(c)

            End If

          End If

          i = i + 1

        Loop

        For i = 1 To 5

          For j = 1 To 6 - i

            If a(j) > a(j + 1) Then tmp1 = a(j): a(j) = a(j + 1): a(j + 1) = tmp1

        If Len(b(j)) > Len(b(j + 1)) Or      ②       Then

              tmp2 = b(j): b(j) = b(j + 1): b(j + 1) = tmp2

            End If

          Next j

        Next i

        For i = 1 To 6

          List1.AddItem Str(a(i)) + b(i)

        Next i

        End Sub

    (1)、代码“list1.AddItem”中的AddItem是(单选,填字母:A .属性名   B .对象名   C .方法   D .事件名)
    (2)、在程序划线处填入合适代码,使程序完整

     ② 

    (3)、加框处代码有错,请改正
    (4)、若输入的字符串为“21ckk,gho63,TCP43,23Yes,no62,phy46,”,则程序运行后第3组字符是
  • 8、小王使用flash软件制作一个关于“游戏”的多媒体作品,如图a所示。请回答下列问题:

    图a

    (1)、在制作作品前,首先需要对作品进行需求分析,以下属于需求分析阶段工作的是。(多选,填字母: A .考虑作品受众以小孩子为主,画面设计比较鲜艳   B .把作品划分为片头、主交互模块、片尾三个部分   C .制作作品需要使用flash、Photoshop两个软件    D .考虑作品的社会效益    E .为作品设计制作脚本大纲)
    (2)、“足球”图层中的足球实现了从舞台右边滚到舞台左边的动画效果,该补间动画类型是。(形状补间/动画补间中选择一项)
    (3)、测试场景,“松鼠”图层中的松鼠在播放过程中突然消失了,若要让松鼠一直延续到本场景结束,可行的操作是
    (4)、“小兔”图层实现了兔子朝舞台左下方移动的动画,兔子开始时的坐标如图b所示,则兔子在第60帧时的坐标可能是。(单选,填字母:A .(700,92)/ B .(100,220)/ C .(300,100)/ D .(900,400) )

    图b

    (5)、测试影片时,“重播”按钮在最后1帧出现,单击按钮,停止声音播放,并返回到“场景1”第1帧继续播放,则按钮上添加的脚本为
  • 9、小乙收集了2019年国内部分汽车厂商的销售数据,并用Excel软件进行处理,如图a所示。请回答下列问题:

    图a

    (1)、如图a中,区域E2:E16中的数据是先从E2单元格利用公式计算再向下自动填充得到的,则E3单元格中的公式是(市场份额=1-9月累计销量/全国销量*100)
    (2)、利用图a中部分数据制作了图表,如图b所示。则该图表的数据区域是

    图b

    (3)、若把图a中的D16单元格的数据修改为1500000,则图b的图表会否发生变化?(选填:会/不会)
    (4)、将图a中A1:E15区域的数据复制到新工作表,筛选条件如图c所示,则按此条件筛选出的厂商数有

    图c

  • 10、有如下VB程序

        a(1) = 1

        For i = 2 To 12

          a(i) = a(i - 1) + Int(Rnd * 2) + 1

        Next i

        Key = Val(Text1.Text)

        i = 1: j = 12: cnt = 1: flag = False

        Do While i <= j And flag = False

          cnt = cnt + 1

          m = (i + j + 1) \ 2

          If a(m) = Key Then

            flag = True

          ElseIf Key > a(m) Then

            i = m + 1

          Else

            j = m - 1

          End If

        Loop

    程序运行后,下列说法正确的是(  )

    A、在text1输入15,程序运行后m肯定为12 B、在text1输入6,程序运行后cnt可能大于4 C、若查找不成功,则j>m肯定成立 D、若查找不成功,则i<=m肯定成立
  • 11、生成10个不重复的随机整数,保存在数组a中,并升序排列,实现算法的VB程序如下。

    Dim a(1 To 10) As Integer, f(1 To 20) As Boolean

        'f数组各元素的初值设为False,代码略

        For i = 1 To 10

           t =int(rnd()*20+1)

           If Not f(t) Then

              a(i) = t:      ⑴     

              For j = i To 2 Step -1

                 If    ⑵    Then

                    tmp = a(j): a(j) = a(j - 1): a(j - 1) = tmp

                 End If

              Next j

           Else

                   ⑶    

           End If

        Next i

    上述程序中3处下划线应填入的程序代码是(  )

    A、⑴f(t) = True  ⑵a(j) < a(j - 1)  ⑶i=i-1 B、⑴f(t) = True  ⑵a(j) > a(j - 1)  ⑶i=i-1 C、⑴f(t) = True  ⑵a(j) < a(j - 1)  ⑶t =int(Rnd()*20+1) D、⑴f(t) = False  ⑵a(j) > a(j - 1)  ⑶t =int(Rnd()*20+1)
  • 12、有如下VB程序段:

        Dim a(1 To 5) As Integer

        a(1) = 1

        For i = 2 To 5

          a(i) = Int(Rnd() * 3) + 3

        Next i

        For i = 2 To 5

          If a(i) Mod 2 = 1 Then

            a(i) = a(i) + a(i - 1)

          Else

            a(i) = a(i) / 2

          End If

        Next i

    执行程序后,a数组各元素可能是(  )

    A、1,2,6,10,13 B、1,5,8,15,22 C、1,4,9,2,7 D、1,2,5,11,1
  • 13、有如下VB程序段:

        s = Text1.Text: sum = 0: t = 0: cnt = 1

        For i = 1 To Len(s)

          c = Mid(s, i, 1)

          If c >= "0" And c <= "9" Then

            j=j+1

          Else

            If cnt Mod 2 = 1 Then sum = sum + val(mid(s,i-j,j))

            j= 0:cnt = cnt + 1

          End If

        Next i

    在文本框text1输入“12d6a3c4f20”,程序运行后sum的值是(  )

    A、21 B、15 C、45 D、25
  • 14、生成2位能被3整除的随机整数的VB表达式是(  )
    A、int(Rnd()*90+10 ) B、int(Rnd*30)*3+12 C、int(Rnd*88+12) D、int((Rnd*30)*3)+12
  • 15、某算法的部分流程图如图所示。执行该流程,输出s和i的值分别是(  )

    A、10  10 B、0  11 C、0  10 D、10  11 
  • 16、使用GoldWave软件编辑某音频文件,选中其中一段音频进行编辑的部分界面如第6题图所示,下列说法正确的是(  )

    A、此文件是一个单声道、无损压缩的音频 B、当前状态下,执行“删除”命令后再插入20s静音,音频文件存储容量不变 C、当前状态下,执行“剪裁”命令后直接保存,音频长度变为20s D、此文件存储容量大小约为10MB
  • 17、有一段未压缩的无声视频,已知该视频的帧频是25fps,颜色位数为16位,分辨率是800*600,视频存储容量约1.35GB,则视频的时长约是(  )
    A、10s B、30s C、60s D、120s
  • 18、用UltraEdit软件观察字符内码,部分界面如图所示,下列说法正确的是(  )

    A、上述字符中共有8个ASCII码字符 B、字符“1+2”的内码可能是“31 2E 32” C、字符“P”的内码用十六进制表示是“51” D、汉字“联”的内码用十六进制表示是“EF C1”
  • 19、使用ACCESS软件打开某数据库,部分界面如图所示,下列说法正确的是(  )

    A、ACCESS是一种小型的数据库应用系统 B、“身份证号”字段的类型可能是数字 C、添加一条新记录,其“出生日期”字段可能显示为“2001年4月5日” D、报名费字段类型为“货币”,当前记录的报名费输入“¥60”将提示错误
  • 20、使用OCR软件进行字符识别,下列说法正确的是(  )
    A、可以识别jpg、psd等图像中的文字 B、版面分析的过程使用了人工智能技术 C、完成OCR识别必不可少的步骤有:扫描—旋转图像—识别 D、对图像进行倾斜校正有助于提高识别准确率
上一页 1428 1429 1430 1431 1432 下一页 跳转