高中信息技术:

高中 信息技术

关于算法,下面说法正确的是(     )。
A . 解决同一问题只有一种算法 B . 算法对程序运行效率没有影响 C . 解决同一问题的算法不是唯一的 D . 算法设计在计算机解决问题的过程中并不重要,可以省略
为了防止冲击波病毒,应在路由器上采用(  )技术。
A . 网络地址转换 B . 标准访问列表 C . 采用私有地址来配置局域网用户地址以使外网无法访问 D . 扩展访问列表
信息系统广泛使用不但给人们带来诸多便利, 同时也产生了许多安全问题。以下关于信息安全的描述错误的是(      )
A . 数据加密就是给文件设置密码 B . 手机扫描二维码应慎重,以免访问非法链接造成损失和隐私泄露 C . 为防止个人社交账号密码被盗,应设置复杂密码并定期更换 D . 计算机病毒防治要以预防为主,查杀为辅 
有如下Visual Basic程序段:

k = 1

For j = 2 To 100

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

Next j

x = a(k)
该程序段执行后,变量x中存储的是(  )

A . a(1)至a(100)中的最小值 B . a(1)至a(100)中的最大值 C . a(2)至a(100)中的最小值 D . a(2)至a(100)中的最大值
用Word制作电子报刊作品时,需要将某图片作为一段文字的背景。其过程为:插入图片文件后,设置图片格式,将版式设置为(  )。
A . 嵌入型 B . 四周型 C . 衬于文字下方 D . 紧密型
某算法的部分流程图如第下图所示。执行这部分流程后,输出c,s的值分别是(  )

A . 8,10 B . 10,14 C . 12,6 D . 12,24
网络协议是支撑网络运行的通信规则,因特网上最基本的通信协议是(   )  
A . HTTP协议 B . TCP/IP协议 C . POP3协议 D . FTP协议
随机产生10个[12,20]间的随机整数放在A数组中,打印最大的和最小的。请完善程序:

  PRIVATE SUB FORM_CLICK()

 

  MAX=0: MIN=21

FOR I= 1 TO 10

   A(I)=

  IF THEN   MAX=A(I)

  IF THEN  MIN=A(I)

NEXT I

PRINT “最大数是”;MAX ,”最小数是” ;MIN

END SUB

在数据库中,表的结构由字段组成,每一行中所有字段组合起来的数据称作一个完整的(   )。
A . 记录 B . 档案 C . 数据 D . 数据库
IPv6 是英文“Internet Protocol Version 6”(互联网协议第 6 版)的缩写。IPv6地址总共有128位,为了便于人工阅读和输入,IPv6地址使用16进制数表示,划分成8个块,每块4位,块与块之间用“:”隔开,如:ABCD:EF01:0000:0000:ABCD:EF01:0000:6789

同时,对于多个地址块为 0 的情况时,可以使用“::”号,进行化简。化简原则:

①全 0 块“0000”,可以化简为“0”

②连续多个全0块,可以化简为“::”

③一个IPv6地址中只能出现一个“::”,出现多个全 0块时,“::”要化简最长的一段,没有最长的就将最左侧的一段化简为“::”

④“::”可以出现在地址开头或结尾具体示例如下:

化简前

化简后

ABCD:0000:2345:0000:ABCD:0000:2345:0000

ABCD:0:2345:0:ABCD:0:2345:0

FBCD:EF01:0000:0000:0000:0000:0000:6789

FBCD:EF01::6789

BBCD:0000:0000:0000:ABCD:0000:0000:6789

BBCD::ABCD:0:0:6789

0000:0000:0000:0000:0000:0000:0000:0001

::1

2001:0000:0000:0000:0000:0000:0000:0000

2001::

程序界面如图所示:

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

  1. (1) 请在划线处填入合适的代码。

    Private Sub Text1_Change()

     Dim a(1 To 8) As String, ipstr As String, ips As String

     Dim lenth As Integer, max_lenth As Integer, start As Integer

      ipstr = Text1.Text

       For i = 1 To 8

        a(i) =  ①   ' 将IPv6分段存入数组a

       Next i

    '对数组进行处理,如果字母或非零数字开头,则不用处理;如果全是数字,则压缩成 0,如果前导为 0,则去掉,处理完毕存回数组。

    '///------ 处理过程略------/////

    '如果只有一串,则将该串“0”用“::”代替,如果不止一串,则将最长的一串“0”简化为“::”,如果有连续 0,则将左边的一串零简化,右侧保留。

     max_lenth = 0

     For i = 1 To 7

       If  ②   Then

         lenth = lenth + 1

        Else

         If lenth > max_lenth Then

            max_lenth = lenth: start = i - lenth: lenth = 0

          End If

        End If

      Next i

      If lenth > max_lenth Then max_lenth = lenth: start = i - lenth

      '根据连续0串的位置确定输出简化后的结果

       ips = ""

      If start = 1 And max_lenth = 7 Then   '开头是0且全0

         ips = "::"

      ElseIf start = 1 Then  '开头是0但不全为0

         ips = "::"

         For i = start + max_lenth + 1 To 7

           ips = ips + a(i) + ":"

         Next i

         ips = ips + a(i)

      ElseIf start > 1 And start + max_lenth = 8 Then '开头不是0但0到最后

        For i = 1 To start - 1

           ips = ips + a(i) + ":"

         Next i

        ips = ips + ":"

      ElseIf start > 1 Then   '开头不是0且0不到最后

         For i = 1 To start - 1

            ips = ips + a(i) + ":"

         Next i

         ips = ips + ":"

         For i = To 7

           ips = ips + a(i) + ":"

         Next i

        ips = ips + a(i)

      Else  '无连续0出现

       For i = 1 To 7

          ips = ips + a(i) + ":"

       Next i

      ips = ips + a(i)

     End If

     Text2.Text = ips End Sub

     ② ③ 

  2. (2) IPv6地址:3BCD:0000:0000:ABCD:0000:0000:0000:6789,则化简后为。  
关于子网掩码,下列说法错误的是(     )
A . 对于A类地址来说,默认的子网掩码是255.0.0.0 B . 对于B类地址来说默认的子网掩码是255.255.0.0 C . 子网掩码中右边是主机位,用二进制数字“0”表示对应主机数的编码,0的数目等于主机位的长度 D . 对于C类地址来说默认的子网掩码是255.255.255.254
程序运行后,单击Command1命令按钮,变量x的值为

Private Sub Command1_Click()

  n = 6

  x = 1

For i =1 To n

  x = x * i

Next

End Sub(   )

A . 15 B . 24 C . 120 D . 720
【加试题】有如下VB程序段:

      flag = True : i = 1

      Do While i <= 6

          x = Int(Rnd * 100) + 1 

          If flag Or x >50 Then

               a(i)=x

               flag = Not flag

               i = i + 1

          End if

      Loop

执行该程序段后,在下列选项中,a(1)~a(6)各元素值不可能的是(  )

A . 52,95,46,74,77,83 B . 50,55,46,70,21,97 C . 62,78,57,61,69,50 D . 31,54,48,72,50,82
下列有关VB表达式的描述,正确的是(   )
A . 505 Mod 10+Int(Sqr(6))和Len("python")+1相等 B . Abs(Int(-30.19))+Len(Mid("30.19",2))的值是34 C . Int(Rnd*45)*2+9一定产生两位数的奇数 D . Int(Rnd*100)+54\9/3的值可能是12
有下列程序执行后文本框Text1显示的内容是(    )

s = "Happy new year↑”

flag=False:m=0

For i=1 To Len(s)

    c= Mid(s,i,1)

    If c >=“a" And c <= "z” Then

        If Not flag Then

            m=m+1

            flag=True

        End If

    Else

        flag = False

    End If

Next i

A . 4 B . 3 C . 6 D . 11
计算机中数据存储的基本单位是字节,一个字节由8位二进制组成,一幅图片保存后的文件是5MB,等于(      )千字节。
A . 5000 B . 5120 C . 5000000 D . 5242880
关于Python语言的特点,以下选项描述正确的是(   )
A . Python语言不支持面向对象 B . Python语言是解释型语言 C . Python语言是编译型语言 D . Python语言是非跨平台语言
要观看所有幻灯片,应选择(       )工作视图。
A . 幻灯片视图 B . 大纲视图 C . 幻灯片浏览视图 D . 幻灯片放映视图
网络道德的特点不包括(  )
A . 开放性 B . 安全性 C . 多元性 D . 自主性
同时给两人发送电子邮件时,地址栏中两人的地址可以用哪个符号隔开 (    )
A . 空格 B . 分号 C . 加号 D . 句号
最近更新