浙江省宁波市慈溪2022届高三上学期信息技术12月适应性考试试卷

下列关于信息与信息技术的描述，正确的是（    ）

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

某学校的选修课报名系统，使用Access软件创建了数据表，部分界面如图所示：

下列说法正确的是（    ）

下列有关信息和信息编码的描述，下列说法正确的是：（    ）

使用photoshop制作一幅名为“秋”的作品，下列选项中正确的是（    ）

使用GoldWave软件打开某音频文件，选中一段音频后的状态栏界面如下图所示。

下列说法正确的是(    )

若x是整型变量，下列选项中，与表达式x Mod 2=0 And x Mod 5=0等价的是(    )

某算法的部分流程图如图所示，执行这部分流程，输入n的值为4，则输出值不可能的是(    )

有如下VB程序段：

s=Text1.Text

ans=0

    

Text2.Text=Str(ans)

若Text1中输入的内容为“10”则Text2中输出的内容为“2”，划线处代码不正确的是(    )

A． for =1 To Len(s)     t=Val (Mid(s，i， 1))     ans=ans+t*2^ (L．en(s)-i) next i	B． for i=1 To Len(s)     t=Val (Mid(s， i， 1))     ans=ans*2+t next i
C． for i=Len(s) To 1 step -1     t=Val (Mid(s， i， 1))     ans=ans+t*2^ (i-1) next i	D． for i=1 To Len(s)     t=Val (Mid(s， Len(s)-i+1，1))     ans=ans+t*2^ (i-1) next i

数组元素a(1) ~a(8)初值是0或1，执行如下VB程序段：

sum=0

For i=1 To 8 Step 3

    For j=i To 8

        a(j)=1-a(j)

    Next j

    sum=sum+a(i)

Next i

Text1.Text=Str (sum)

若文本框Text1中显示的内容是3，则数组元素a(1)~a(8)初值可能是(     )

某冒泡排序算法的VB程序段如下：

Dim a(1 To 6) As Integer

a(1)=79：a(2)=13：a(3)=93：a(4)=55：a(5)=29：a(6)=17

i=6：Flag=1：cnt=0

Do While i>=2AndFlag=1

    Flag=0：cnt=cnt+1

    For j =            

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

            k=a(j)：a(j)=a(j-1)：a(j-1)=k

            Flag = 1

        End If

    Next j

    i=i-1

Loop

执行该程序段后，cnt的值为3，数组元素实现有序，则方框处的代码是(    )

已知数组a中存储了n个无序的整数，通过引入数组b，数组b中存储了数组a中元素按降序排序时的下标，使得a(b(1))≥a(b(2)) ……≥a(b(n))，从而对数组a中的元素进行对分查找。部分代码如下：

i=1：j=8 ：key=20

Do While i<=j   

     m=(i+j)\2

     t=b (m)

     If a(t)=key Then p=t：Exit Do

     If key>a(t)Then j=m-1 Else i=m+1

Loop

数组元素a(1)~a(8)的值分别为“30，9，8，15，20，6，29，11”，程序运行结束后变量m的值为(    )

小王收集了2020年双十一部分商品销售情况，并使用Excel软件进行数据分析，如图a所示。请回答下列问题：

小明制作了一个名为“岁寒三友.fla”的文件，制作前他首先对作品进行规划设计。

编写字符串全排列程序， 实现如下功能：输入不重复的N个字符(2≤N≤5)，输出该字符串全排列的情况。程序运行界面如图所示。实现上述功能的VB代码如下，请回答以下问题：

Private Sub Command1_Click()

    Dim a(0 To 4) As String

    Dim b(0 To 4) As Integer

    Dim s As String， r As String ，i As Integer， j As Integer

    List1. Clear

    s = Text1.Text： n = Len(s)

    For i=0 To n-1

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

       b(i) =   ①   

    Next i

    c =0

    For i=1 To n^n

    r =“”

    For j=0 To n-1

        r=   ②   

    Next j

    List1. AddItem r

    k=n-1

    b(k)=b(k)+1

    Do While b(k)=n And k>0

        b(k) = n-1    '③改错

        k=k-1

        b(k)=b(k)+1

      Loop

    Next i

End Sub

跳蚤市场：为了筹集善款，学校组织了跳蚤市场活动。有n个学生打算卖出某种物品，其中第i个人希望以不低于a(i)的价格卖出：另有m个学生打算买入这种物品，其中第i个人希望以不高于b(i)的价格买入。如果物品的价格不低于卖方的最低价格且不高于买方的最高价格， 则交易成功，否则交易失败。

另外为了公平，学校决定统一定价，使得最终价格能够让最多对学生成功进行交易。若有多个价格满足条件，则取满足条件的最高价。请你帮助校方完善VB程序，编程计算这批物品的最终定价。

例如，有6个学生打算卖出物品，他们的预期价格如图1所示。

图1

另一有6个学生打算买入物品，他们的预期价格如图2所示。

图2

若分别以31元或32元的价格成交，都有3对学生交易成功，故最终定价为32元。

程序运行时，从外部数据库中输入买卖双方价格并显示到列表框List1和List2中，单击命令按钮Command1进行计算，并将最终的计算结果输出到标签Label3中，程序运行界面如图3所示。