浙江省诸暨市2019-2020学年高二上学期信息技术期末考试试题

下列有关信息和信息技术的说法，正确的是（    ）

使用Word软件编辑某文档，部分界面如图所示。

下列说法正确的是（    ）

使用Access软件打开数据库，部分界面如图所示。

下列操作可行的是（    ）

使用GoldWave软件编辑某音频文件，部分界面如图所示。

 

下列说法正确的是（    ）

使用UltraEdit软件观察字符内码，部分界面如图所示。已知汉字内码是由区位码（十六进制）中每个字节的数值加A0H组成，则汉字“对”的区位码（十进制）为（    ）

一段时长为10秒、1024×800像素、32位色、PAL制式（25帧/秒）的未经压缩AVI格式无声视频，其文件存储容量约为（    ）

某算法的部分流程图如图所示。下列说法正确的是（    ）

以下选项中，表达式的值最大的是（    ）

有如下VB程序段：

Dim a(1 To 10) As Integer

s = "8+9+10=": n = 1

For i = 1 To Len(s)

    ch = Mid(s, i, 1)

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

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

    Else

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

    End If

Next i

Text1.Text = Str(n)

数组a各元素的初始值都为0，若执行该程序后，在文本框Text1中显示的值为（    ）

有如下VB程序段：

Dim t(0 To 9) As Integer

n = Val(Text1.Text)

For i = 10 To 30

    a = i Mod 10

    b = i \ 10

    If a = n Or b = n Then t(n) = t(n) + 1

Next i

Label1.Caption = Str(t(n))

数组t中各个元素初值均为0，在文本框Text1中分别输入2时，执行该程序后，Label1中显示的内容为（    ）

某算法的VB程序段如下：

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

x = 0: y = 0

For i = 1 To 4

    k = i

    For j = i + 1 To 5

        If a(j) > a(k) Then

            k = j

            x = x + 1

        End If

    Next j

    If k <> i Then

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

        y = y + 1

    End If

Next i

Text1.Text = Str(x) + Str(y)

执行该程序段后，文本框Text1中显示的内容是（    ）

数组a为一组已按降序排序的正整数，依据对分查找思想：设计一个在数组a中查找数据Key的程序。实现该功能的VB程序段如下：

Dim a(1 To 6) As Integer

Const n = 6

a(1) = 98: a(2) = 96: a(3) = 95

a(4) = 90: a(5) = 87: a(6) = 81

i = 1: j = n

Key = Val(Text1.Text)

f = False

Do While  And f = False

    m = (i + j) \ 2

    If a(m) = Key Then

        Text1.Text = "已找到": f = True

    ElseIf a(m) > Key Then

       

    Else

       

    End If

Loop

上述程序中方框处语句依次为（    ）

小华使用Excel软件对2018年浙江省各市各类学校在校学生数进行处理，如图a

所示。

图a

使用多媒体编辑软件创作“旋转的风车”多媒体作品。

图a

对数组a中的n个元素进行排序，生成左右交替上升的数据序列，结果如下表所示：

a（1）	a（2）	a（3）	……	a（n-2）	a（n-1）	a（n）
27	35	39	……	49	39	33

小华由此设计一个VB程序，功能如下：单击“排序”按钮Command1，随机生成10个两位奇数，将随机生成的数据序列显示在文本框Text1中，在文本框Text2中显示完成排序后的数据序列，运行结果如图所示。

Private Sub Command1_Click()

  Dim a(1 To 10) As Integer

  Randomize

  Const n = 10

  For i = 1 To n

      a(i) = ①

      Text1.Text = Text1.Text + Str(a(i))

  Next i

  For i = 1 To n \ 2

      For j = n - i + 1 To i + 1 Step -1

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

              t = a(j - 1)

                ②

              a(j) = t

          End If

      Next j

      For j = i + 1 To n - i

          If  Then

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

          End If

      Next j

  Next i

  For i = 1 To n

      Text2.Text = Text2.Text + Str(a(i))

  Next i

End Sub

某数据加密方法描述如下：

1）以字节为单位进行加密处理；

2）将1个字节的8位二进制数分割成前4位与后4位两个二进制数；

3）分别将上述两个4位二进制数转换成十进制数；

4）将每个十进制数转换为1个加密字符，对应的“密码表”如下：

值（十进制）	0	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15
加密字符	I	l	i	k	e	C	H	N	p	o	s	t	c	a	r	d

小华按照上述方法，设计了一个字符串（仅包含ASCII字符）解密的VB程序，功能如下：在文本框Text1中输入一串密文，单击“解密”按钮Command1，在文本框Text2中显示解密结果。

下表显示了字符串中一个字符的加密过程：

m								←转换前字符m
109								←字符m的ASCII码十进制值
0	1	1	0	1	1	0	1	←对应的二进制数
6				13				←分割、转换后的十进制数
H				a				←对应的加密字符

程序运行效果如图所示。