浙江省宁波十校2020年高三信息技术寒假返校联考试卷

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

下列关于网页和网络协议的说法，正确的是（     ）

对于数据库和数据表，下列说法不正确的是（  ）

小赵利用Word 软件编辑了一篇关于2022 年杭州亚运会的文档，文档中含有图像“亚运会．jpg”，部分界面如图所示。

下列说法正确的是（     ）

使用 UltraEdit 软件查看字符内码，部分界面如图所示。

下列说法正确的是（     ）

关于多媒体和多媒体技术，下列说法正确的是（     ）

在VB 程序设计中，下列语句在编译中或运行后一定会发生错误提示的是（     ）

有如下VB程序段，运行该程序段后变量a的值为（     ）

a=4: b=3

If a >= 4 Then

    If b < 2 Then a=a+2

    If b > 2 Then a=a+3

    a=a+2

ElseIf a >= 9 Then

    a=a+4

Else

    a=a+b

End If

某算法的部分流程图如图所示，执行这部分流程图后，变量c的值是（     ）

采用冒泡排序算法对数据序列“71，58，54，29，78”完成升序排序，此过程中数据“54”发生比较的次数可能为（     ）

对随机生成n个互不相同的正整数（正整数的最大值不超过m）进行排序，排序要求如下：①偶数在前，奇数在后；②奇数降序排序；③偶数升序排序。部分程序如下所示，划线处的正确语句是（     ）

Const n = 15

Const m = 100      '整数的最大值

Dim a(1 To n) As Integer

'本过程产生n个不同随机整数，区间在[1,m]之间，存储在数组a中，代码略

Private Sub Command1_Click()

    Dim i As Integer

    Dim flag(1 To m) As Boolean

    For i = 1 To n

             ①       = True

    Next i

    For i =2 To m step 2

        If flag(i) Then List2.AddItem       ②       

    Next i

    For i =      ③       To 1 Step -2

        If flag(i) Then List2.AddItem Str(i)

    Next i

End Sub

有如下VB 程序段:

Private Sub Command1_Click()

    Dim a(1 to 10) As Integer

    Dim i As Integer, j As Integer, Key As Integer, c As Integer, m As Integer

    Dim flag As boolean

    flag = True: c = 0

    i = 1: j = 10

    Key = Int(Rnd() * 17) + 8

    Do While i <= j And flag = True

        c = c + 1

        m = (i + j) \ 2

        If Key = a(m) Then

            flag = False

        ElseIf Key > a(m) Then

            j = m - 1

        Else

            i = m + 1

        End If

    Loop

End sub

数组元素a(1)到a(10)的值依次为50、45、40、35、27、24、15、7、5、3，程序运行后变量c的值可能是：（     ）

小王收集了近5年来中国旅游主要国家入境游客人数的相关信息，并使用Excel软件进行数据处理，如图a所示。

请回答下列问题：

小李制作主题为“2022年杭州亚运会”的多媒体作品。她首先使用Photoshop软件制作背景图片，然后使用Flash软件制作动画。请回答下列问题：

编写VB程序，实现如下功能：在程序运行时，在文本框1中输入整数m(1≤m≤10)，单击“生成矩阵”按钮Command1，生成m2个范围为[0,9]的随机整数，随机存储在数组a中，并以m行、m列矩阵的形式在列表框List1上显示。单击“行排序”按钮Command2，对矩阵以“行”为单位完成升序排序，并在列表框List2上显示。运行界面如图所示，程序代码如下：

Dim m As Integer

Dim a(1 To 100) As Integer

Private Sub Command1_Click()

    '输入整数m，并随机产生m2个随机数

    '随机数以m*m 矩阵形式在List1上显示

    '代码略

End Sub

Private Sub Command2_Click()

    Dim i As Integer, j As Integer ,t As Integer, k As Integer,

    Dim s As String

    List2.Clear

    For i = 1 To m * m

        k = i

        For j = i + 1 To     ①    

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

        Next j

        If k <> i Then t = a(k): a(k) = a(i): a(i) = t

           ②    

        If  Then

            List2.AddItem s

            s = ""

        End If

    Next i

End Sub

在n个(1≤n≤15)一连串的方格内填写字母A或B，但相邻两格内不能都填B，求所有可能的填写方案数。例如当n＝3，可能的方案有AAA、AAB、ABA、BAA、BAB等5种。

丽华设计如下算法：考虑到方案中只包含了A与B两个字母，可以用二进制的0和1来代替（0表示A，1表示B）。当全部是0时最小，此数0；当全部是1时此数最大。枚举0到最大数的每一种情况，逐一判断是否包含B相连(二进制数1相连)情况，符合条件的0、1转为A、B后输出。

根据以上算法思想，丽华使用VB程序编写了一个程序来解决这个问题。在文本框Text1中输入n的值，点击“寻找方案”按钮Command1后，在列表框List1中输出所有的方案，在标签Label3中显示方案总数。