• 1、物联网是指通过某种感知设备,把物体与互联网连接起来,进行信息交换和处理,以实现智能识别、定位、跟踪、监控和管理的网络。以下不属于物联网应用的是(    )
    A、手机远程操控家用电器 B、ETC车辆自动收费系统 C、无线鼠标控制电脑 D、扫描共享单车二维码,向云端服务器发送解请求,单车解锁成功
  • 2、物联网连接的是信息世界和(    )
    A、现实世界 B、虚拟世界 C、物理世界 D、人类世界
  • 3、下列选项中,属于信息的是(     )。
    A、校刊 B、海报 C、DVD光盘 D、CCTV播出的天气预报
  • 4、城市道路的十字路口采用电子警察摄像的方式监管车辆闯红灯的现象,首先要进行的是(      )
    A、信息处理 B、信息采集 C、信息加工 D、信息储存
  • 5、为了提高食品安全,使用物联网技术可以及时了解农产品生产、运输、存储、销售等各个环节,这其中没有使用的信息技术是(     )
    A、纳米技术 B、定位技术 C、网络技术 D、遥感技术
  • 6、以下关于物联网描述不恰当的是(     )
    A、物联网即“万物相连的互联网”,物联网是在互联网基础上延伸和扩展的网络 B、物联网推广使用的主要目的是让人们的生活更加轻松更加健康 C、智能家居就是物联网在家庭中的基础应用 D、物联网需要采集大量的数据,我们应积极在物联网上提交自己的全部个人数据
  • 7、如图是某学校60台计算机组建成一个局域网结构图。学校向ISP申请了账号,相关信息如下:

    IP地址:220.168.20.60

    子网掩码:255.255.255.0

    DNS地址:202.100.192.68

    (1)、该局域网访问互联网充当网关的设备是。它的WAN(外网)IP为
    (2)、计算机PC1的默认网关设置为192.168.10.1,则PC2的默认网关是。PC2的DNS地址设置为:
    (3)、计算机PC1的IP地址为192.168.10.2,计算机PC2的IP地址可以设置为 , 默认子网掩码为
  • 8、用IE浏览器上网时,在地址栏输入202.108.22.5可以访问百度网站,而输入www.baidu.com则无法访问,导致此问题的原因可能是TCP/IP协议中(   )属性配置错误。
    A、DNS服务器 B、IP地址 C、子网掩码 D、默认网关
  • 9、域名解析服务器就是(   )

    A、POP3服务 B、WWW服务 C、SMTP服务 D、DNS服务
  • 10、下列哪个 IP 地址是不合法的(   )
    A、202.100.199.8 B、254.254.254.254 C、172.16.16.16 D、192.168.258.1
  • 11、与二进制数(101110)等值的十进制数是(      )
    A、46 B、47 C、48 D、50
  • 12、IP地址125.34.202.212属于(   )IP地址
    A、A类 B、B类 C、C类 D、D类
  • 13、“一笔画游戏”是指图上的所有边有且仅经过一次刚好将整个图描完。一般图由点和边组成,一条边连接两个点,一个点可以连接多条边。若某点连接的边数是奇数,则被称为奇点,反之称为偶点。如图a图中A点连接的边有3条,A点就是奇点,B点连接的边为2条,B点就是偶点。如果图中存在0个奇点或2个奇点,则能被一笔画成,否则就不能。如图a图中奇点数为2个,可以一笔画成;如b图中奇点数为4个,不可以一笔画成。

    现有VB程序用于判断某图能否一笔画成,若能,则通过穷举边的顺序来找到一种合法的路径。如c图有三条边,第1条由①②相连,第2条由④③相连,第3条由③②相连,若边的顺序231就是其中一种合法的边的顺序,代表先描第2条边,再描第3边,最后描第1条边,对应的路径④→③→②→①。在程序运行过程中,在文本框Text1中输入点的个数n,表示图中有n个点编号为1~n。在文本框Text2中输入若干点的编号,每两个点代表一条边(保证输入为偶数个点),以“,”开头,点击“一笔画”按钮Command1后,在Label3中输出结果,在若能一笔画成,则输出一条路径,否则,提示“无法一笔画!”。程序界面如c图:

    c图

    (1)、在Text1中输入“4”,在Text2中输入“,2,3,1,2,2,4”。则Label3输出结果是
    (2)、实现上述功能的VB程序如下,请在划线处填入合适的代码。

    Dim n As Integer, t As Integer, m As Integer, I As Integer, j As Integer

    Dim ans As Integer, u As Integer, st As Integer, p As Long

    Dim a(21) As Integer, b(11) As Integer, f(11) As Integer

    Dim c(11)As Integer       '用于存储构成一笔画各边的序号

    Dim s As String, ss As String

    Private Sub Command1_Click()

        n= Val(Text1.Text)

        s= Text2.Text: t= 0

        For j= 1 To Len(s)

            ch = Mid(s, j, 1)

            If ch = "," Then

                b(a(t)) = b(a(t)+1

                t=t+1

                a(t)= 0

            Else

                a(t)= a(t)*10 + Val(ch)

            End If

        Next j

        : m=t\2: ans=0

        st= 1

        For i= 1 To n

            If b(i) Mod 2=1 Then ans = ans+ 1: st=i

        Next i

        If ans=0 Or ans=2 Then

            For p=1 To m^m    '穷举边的顺序

                If try(p) Then

                    u= st: ss = Str(u)

                    For j=1 To m

                        If (a(c(j)* 2)<>u) And (a(c(j)*2-1)<>u) Then Exit For

                        If Then u= a(c(j)*2- 1) Else u=a(c(j)*2)

                        ss=ss +"->"+ Str(u)

                    Next j

                    If j> m Then Exit For

                End If

            Next p

        Else

            ss="无法一笔画!"

        End If

        Label3.Caption=ss

    End Sub

    Function try(x As Long) As Boolean      '生成边的访问顺序,并判断有无重复的边

        Dim k As Integer, y As Long

        y=x

        For k=1 To m

            c(k)=y Mod m+1: y-y\m

            If f(c(k)) = x Then Exit For

           

        Next k

        If k> m Then try=True Else try = False

    End Function

  • 14、果园里有n堆果子放在地上,现要将所有果子合并成一堆。每次只能合并两堆果子,消耗的体力等于两堆果子的重量之和。显然,n堆果子需要经过n-1次合并。合并果子的过程中总共消耗的体力等于每次合并所耗体力之和。为了尽可能地节省体力,我们每次都选择重量最小两堆进行合并。例如,有三堆果子,重量依次为1,2,9。可以先将1、2堆合并,新堆重量为3,耗费体力为3。接着,将新堆与原先的第三堆合并,又得到新的堆,重量为12,耗费体力为12。所以总共耗费体力为3+12=15。可以证明15为最小的体力耗费值。

    编写VB程序,实现上述合并功能。运行程序时,将n堆果子的重量从数据库读入到a数组。单击“合并”按钮Command1后,在文本框Text1中输出最小的体力耗费值。请回答下列问题:

    (1)、若要清空文本框Text1中的内容,能实现该功能的语句是(单选,填字母:A .Text1.Caption=“”/B .Text1.Clear/C .Text1.Text=“”)。
    (2)、实现上述功能的VB程序如下,请在划线处填入合适的代码。

    Private Sub Form_ Load( )

    ‘将n堆果子的重量从数据库导入到数组a,代码略。

    End Sub

    Private Sub Command1_Click( )

        Dim f As Boolean

        Dim last As Integer

        Dim a(1 To n) As Integer

        i= 1

        Do While i<n And Not f

            f=True

            For j=n To i+1 Step-1

                If a(j)<a(j- 1) Then

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

                    last= j

                    f= False

                End If

            Next j

           

        Loop

        For i= 1 To n-2

            tmp=a(i)+a(i+1)

            j=

            Do While a(j)< tmp

                a(j-1)= a(j)

                j=j+1

                If j=n+ 1 Then Exit Do

            Loop

           

            Min=Min+tmp

        Next i

       

        Text1.Text = Min

    End Sub

    (3)、程序中加框处代码有错,请改正。
  • 15、小组创作了主题为“保护环境”的Flash作品,部分界面如图a所示,请回答下列问题:

    图a

    (1)、在制作并合成该作品前,小组应先完成下列哪些工作?(多选,填字母:A .确定获取原始素材的方式/B .策划制作脚本/C .发布作品/D .刻录光盘,递交作品/E .需求分析)。
    (2)、“声音”图层的声音设置如图b所示,若将“重复”修改为2次,则测试影片时该声音文件将播放秒。

    图b

    (3)、下列不属于元件类型是(单选,填字母:A .影片剪辑/B .位图/C .图形)
    (4)、如图a所示,则以下说法不正确的是        (多选题)
    A、Flash是以帧为基础的多媒体创作工具 B、若将“汽车”图层的补间动画的缓动值设置为-100,则动画时长不变 C、“保护环境”图层实现了“汽车尾气”图形逐渐变成“保护环境”字形,该动画属于形状补间 D、若将“背景”图层第60帧移动到第20帧,则“背景”图层中的内容约2秒后消失 E、该动画“按钮”一直显示于舞台,若要“按钮”仅最后一帧出现,则将“按钮”图层第1帧执行“清除帧”可以实现。
    (5)、测试影片时,点击“相关文件”按钮,实现在浏览器中显示位于同一文件夹下“环境.html”文件的内容并关闭动画,则按钮上添加的命令为
  • 16、小张收集了某校图书馆借阅排行TOP300的相关数据,并用Excel软件进行处理,如图a所示:

    图a

    (1)、为计算图a中的“流通次数”和“预约次数”,小张已利用公式正确计算了“流通次数”,他希望通过修改K3单元格的公式,利用自动填充得到“预约次数”L3:L7区域中正确的数据,则单元格K3中的公式应修改为。(提示:SUMIF函数用于求满足条件的单元格之和,例如=SUMIF(E3:E302,J3,G3:G302)用于求单元格区域E3:E302中与单元格J3中值相等的对应单元格区域G3:G302中的值之和。)
    (2)、根据图a中数据制作了图表如图b所示,则创建图表的数据区域

    图b

    (3)、根据图a所示,下列说法正确是           (多选题)
    A、若表格已排序,则主要关键字是“流通人次”,次要关键字是“预约人次” B、若以“类型”为文学,以“流通人次”最大的5项进行筛选,得到的记录数可能大于等于5条 C、因误操作将“价格”所在列删除,则“流通次数”和“预约次数”的数据将不能正确计算 D、若要找出文学类流通人次大于10次的书籍,则可以利用“类型”为文学,“流通人次”大于10进行筛选
  • 17、下列对分查找代码用于查找非升序序列中不小于key的下标最大值,部分代码如下:

    L=1: R=n+ 1

    Do While L< R

        m=(L+R)\2

        If key > a(m) Then

              ① 

        Else

            L=m+ 1

        End If

    Loop

    If R= 1 Then

        Text2.Text = "数组中所有元素均小于" & Str(key)

    Else

        Text2.Text= "不小于" & Str(key) & "的下标最大值是: " & Str(  ②  )

    End If

    则划线处代码正确的是(    )

    A、①R=m-1   ②L B、①R=m-1   ②L-1 C、①R=m   ②L D、①R=m   ②L-1
  • 18、某排序算法的VB程序段如下:

    n=6: c=0: d=0: st=1: ed=n

    Do While st < ed

        c=c+1

        For j=st To ed- 1

            d=d+1

            If a(j)> a(j+ 1) Then

                tmp = a(j): a(i)=a(j+1): a(j+1)= tmp

                ed=j

            End If

        Next j

        For j=ed To st+1 Step-1

            d=d+ 1

            If a(j)< a(j- 1) Then

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

                st=j

            End If

        Next j

    Loop

    数组元素a(1)到a(6)的值依次为“5,6,12,15,10,8”,程序结束时,c和d的值分别为(    )

    A、2,9 B、2,10 C、4,9 D、4,10
  • 19、由大写字母组成的长度相同的两个字符串s1和s2,若所含各字母数量相等则可以归为一类。如“ABDAC”与“AABCD”归为一类,与“AABBC”不可以归为一类。实现该功能的VB程序段如下:

    Dim s1 As String, s2 As String, a As Integer, i As Integer, b(1 To 26) As Integer    'b数组初值均为0

    s1 = Text1.Text: s2 = Text2.Text

    For i= 1 To Len(s1)

        a= Asc(Mid(s1, i, 1))-65+ 1

          ⑴  

    Next i

    For i= 1 To Len(s2)

        a= Asc(Mid(s2, i, 1))-65+ 1

          ⑵  

    Next i

    For i= 1 To 26

        If   ⑶   Then Exit For

    Next i

    If   ⑷   Then Label1.Caption = "能归为一类" Else Labl1.Caption= "不能归为一类"

    填空处的代码可以由以下部分组成:

    ①b(a)=b(a)+1  ②b(a)=b(a)-1  ③b(i)<>0  ④b(i)=0  ⑤i<=26  ⑥i>26

    代码顺序正确的是(    )

    A、①②③⑤ B、①②④⑥ C、②①③⑥ D、②①④⑤
  • 20、下列四段VB程序执行后运行结果与其余三个选项不相同的是(    )
    A、 B、 C、 D、
上一页 837 838 839 840 841 下一页 跳转