浙江省百校2021-2022学年高三下学期信息技术3月开学模拟检测试题

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

下列有关网页和浏览器的说法，正确的是（    ）

某公司设计一工程管理系统时，使用Acess软件创建的数据表部分界面如图所示。

下列说法正确的是（    ）

自然数n转换为8位二进制数，左侧第一-位数字为“1”且末尾为“0”。 下列说法正确的是（    ）

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

下列说法正确的是（    ）

一批未压缩的BMP格式图像，其参数如图所示。则容量为512MB的闪存盘可存储该批图像的张数约为（    ）

下列VB表达式中，计算结果与其他三项不同的是（    ）

某算法的部分流程图如图所示。执行这部分流程，若依次输入x的值为6，10，15，20，28，则输出结果分别为（    ）

有如下VB程序段：

s=1

a(1) = 1

For i=2 To 6

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

    If I Mod 2=0 Then

      a(i)=a(i)+1

    End If

    s= s+ a(i)

Next i

Text. Text = Str(s)

程序运行时，单击按钮Command1后，文本框Text1中显示的内容是（    ）

有如下VB程序段：

For i=1 To 3

    k=i

    For j=i+1 To 8

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

    Next j

    If k<> i Then

        t=a(k)：a(k)=a(i)：a(i)=t

    End If

Next i

数组元素a(1)到a(8)的值依次为“8，13，20，2，11 ，30， 25，17”，下列说法不正确的是（    ）

某加密算法为：从明文第一个字符开始，每间隔k个字符，将长度为k的字符串进行逆序换位加密，若剩余字符长度不满k则不进行位置变换。如： 明文为“IVeryLikeVB6．0”，k的值为3，则加密结果为“IVeLyrike6BV．0”。编写如下VB程序段实现该加密算法，则程序段中3个方框处的代码分别为：

s = Text1． Text

k = Val(Text2． Text)

i=1

count = 0

flag = False

Do While i<= Len(s)

    count = count+1

    If i+k- 1 <= Len(s) And flag Then

        

    Else

        ns= ns+ Mid(s，i，1)

        i=i+1

    End If

    If count = k Then

        count = 0

        If flag = True Then

            

      End If

Loop

Labell． Caption = ns

有如下对分查找VB程序段：

Key = Val(Text1. Text)

i= 1：j=10：c= 0

flag = True

Do While i<= j And flag

    m= (i+j)\2

    cnt=cnt+1

    If a(m) = Key Then flag = False

    If a(m) < Key Then

        i=m+1

    ElseIf flag Then

        j =m-1

End If

Loop

Text2． Text = Str(cnt)

若数组元素a(1)~a(10)的值依次为“5，9，13，18，22，27，31，39，40，44" ，运行程序后，文本框Text2中显示的内容为3，则输人的key值不可能为（    ）

某品牌公司统计商品年销售数据，并用Excel软件进行数据处理，部分数据如第13题图a所示。请回答下列问题：

小敏创作了一个“虎年大吉”的多媒体作品，她首先用Photoshop制作了一张背景图片，然后用Flash制作动画，请回答以下问题：

某学校推出一款食堂套餐查询小程序。学生登录该小程序后，可以查询相关套餐信息，系统根据以往购买评分，给出相关套餐的平均评分以及推荐指数。

编写一个VB程序实现如下功能：程序运行后自动读取数据库中关于食堂套餐的相关数据，在文本框Text1中输人查找套餐的关键词，搜索到的套餐信息在列表框List1中显示，程序计算套餐平均评分(四舍五入保留一位小数)和推荐指数，并显示在套餐信息下方。程序运行界面如图所示。

Const n = 50

Dim food(1 To n) As String

Dim price(1 To n) As Integer

Dim score(1 To n) As Single

Private Sub Form_ Load()

‘读取数据库中套餐名称、套餐价格和套餐评分信息分别存储于数组food、price和score中，代码略。

End Sub

Private Sub Command1 _Click()

    Dim food(1 To n) As String, s As String

    Dim price(1 To n) As Integer

    Dim judge(1 To n) As Boolean

    Dim score(1 To n) As Single,  sum As Single,  ave As Single

    Dim i As Integer, j As Integer, t As Integer, q As Integer

    Dim w1 As Boolean, w2 As String, w3 As Integer, w4 As Single

    s = Text1.Text : q= 0

    For i=1 To n

           ①    

        j= 1

        Do While True

            If j+Len(s)-1<=t Then

                If s = Mid( food(i),  j, Len(s)) Then

                    judge(i) = True

                    q=q+1

                Else

                        ②   

                End If

            End If

            If  Then

                Exit Do

            End If

        Loop

    Next i

    For i=1 To n-1

        For j=n To i+1 Step -1

            If Not judge(j-1) And judge(j) Then

                w1 = judge(j)： judge(j) = judge(j-1)： judge(j-1) = w1

                w2 = food(j)： food(j) = food(j - 1)： food(j-1) = w2

                w3 = price(j)： price(j) = price(j -1)： price(j-1) = w3

                w4 = score(j)： score(j) = score(j-1)： score(j -1) = w4

            End If

        Next j

    Next i

    For i=   ③   

        List1. AddItem food(i) +Str( price(i))+"元"

        sum =sum+score(i)

    Next i

ave = Int(sum/ q * 10 +0.5) / 10

‘根据平均评分ave 的值给出推荐指数。若平均评分高于4.5分显示推荐指数"* **"，若平均评分高于4.0分显示推荐指数"* *"，4.0分以下的显示推荐指数" *"，代码略。

End Sub

学校创客社团开展机器人比赛活动，其中设置了机器人循迹项目。比赛规则如下：给出10* 10规模的矩阵地图，随机设定4个循迹点，小车以蛇形路线找到循迹点后，计算最长的两点直线距离。矩阵图中以0表示非循迹点，1表示循迹点，循迹过程如图a所示：

编写一个VB程序实现如下功能：单击“开始循迹”按钮Command1，呈现10*10矩阵地图，并随机生成4个循迹点，分别用数字1表示，数字0表示非循迹点；计算4点中相距最远的两点的直线距离，显示在标签Label1中。程序运行界面如图b所示。