浙江省2019-2020学年高中信息技术仿真演练卷（四）

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

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

某同学使用OCR软件进行字符识别，部分界面如图所示。

则以下说法错误的是（  ）

某Access数据表如图所示。

以下说法中正确的是（  ）

使用UltraEdit软件观察字符“Good Luck！”的内码，部分界面如图所示。

下列说法正确的是（  ）

使用 Gold Wave软件打开某音频文件，选中其中一段音频后的部分界面如图所示，下列说法不正确的是（    ）

 

使用Photoshop软件处理“圣诞节贺卡. psd”，编辑界面如图所示。下列说法正确的是（  ）

某算法流程图如图所示。若输入m和n的值分别为12和15，执行这部分流程后，变量m的值为（  ）

有一个数组，使用如下VB程序段进行排序，第一遍排序后的结果为2，12，7，34，8，9，11，19，26，那么该数组的原始顺序不可能的是（    ）

For i=1 To n-1

    For j=n To i+l Step-1

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

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

        End If

    Next j

Next i

某VB程序段如下：

For i=1 To 6

    j=7

    Do While i>i

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

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

        End If

        j=j-1

    Loop

Next i

For i=3 To 6

    s=s+a(i)

Next i

Labell. Caption=Str(s)

已知数组元素a(1)到a(7)的值依次为“8，2，3，7，10，6，5”，则执行该程序段后，标签 Label1中显示的是（    ）

（加试题）有如下程序段：

Dim i As Integer, Sum As Integer

Dim a(1 To 11) As Integer

Sum = 6

a(11) = 49

For i = 10 To 1 Step -1

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

    If a(i) Mod 3 = 0 Then Sum = Sum + a(i)

Next i

Text1.Text = Str(Sum)

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

某VB程序段如下：

n=6:Text2. Text=" "

m=Val(Text1. Text)

For i=1 To 3

    k=i

    j=i+1

    Do While j<=m

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

        j=j+1

    Loop

    If i<>k Then

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

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

    End If

Next i

数组元素d(1)到d(6)的值依次为“39，25，18，20，73，70”，现运行程序在文本框Text1里输入5，点击按钮Command1后文本框Text2中显示的内容是（    ）

某大学院校研究男女学生学习成绩的差异性，相关数据在Excel表中，如下图表格所示。

 

请回答下列问题：

创作一个题为“乡愁”的多媒体作品，使用Flash软件制作一个动画，设计界面如图所示。请回答下列问题：

编写一个VB程序，实现如下功能：在文本框Text1中输入一个偶数n，判断该数在10步之内通过以下计算过程后能否回到初始值。计算步骤如下：

1)将n乘以3后加1产生一个新的数

2)对产生的新数循环执行如下操作：新数是偶数时，用新数除以2；新数是奇数时，用新数乘以3后加1

譬如，以2为初始值，则计算过程如下。2→7→22→11→34→17→52→26→13→40→20→ 10→5→16→8→4→2。数字2不能在10步之内回到初始值。

界面如图所示，回答下列问题:

领礼物。圣诞节到了，教室里放满了礼物，大家站在同一位置即原点（0，0）处，根据自己拿礼物的序号轮流去拿礼物，每个人只能拿离自己最近的礼物，每件礼物的位置用坐标（x，y）表示。如果有多个礼物离你的距离相等（精确到小数后二位）且最近，则这些礼物都归你所有。

程序运行时，在文本框Text1中输入共有礼物数n，单击“读取数据”按钮Command1，将从数据库gift. accdb中读取n个礼物的信息存储在相应的数组中，并显示在列表框List1中；在文本框Text2中输入轮到你拿礼物的序号（即第几个拿），单击“计算”按钮 Command2，则在列表框List2显示你获得的礼物信息，并在列表框list2最后一行显示获得的礼物总数。程序运行界面如图所示。

实现上述功能的VB程序代码如下，请回答下列问题：

Dim conn as New ADODB.Connection

Dim rs as New ADODB.Recordset

Dim bh（1 To 100） As string   '数组bh存储礼物的编号

Dim x（1 To 100） As Single,y（1 To 100） As single    '数组x、y分别存储礼物的横坐标和纵坐标

Dim dist（1 To 100） As single     '数组dist存储礼物到原点的距离

Dim n As Integer      '变量n表示礼物数

Private Sub Command1_Click()

    Dim i As Integer

    '从数据库中读取n件礼物的编号、横坐标、纵坐标，并存储在相应的数组中＇代码略，下面代码的功能是计算各礼物到原点的距离

    For i=1 To n

        dist(i)=  ① 

        List1. AddItem bh(i)+""+Str(x(i))+""+Str(y (i))+""+Str(dist(i))

    Next i

End Sub

Private Sub Command2_Click()

    Dim xh As Integer, i As Integer, j As Integer, k As Integer

    Dim templ As String, temp2 As Single, p As Single, s As Single

    xh=Val(Text2. Text)

    '将礼物按到原点的距离从小到大排序，代码略

    i=0: j=1: s=0

    Do While (i< xh) And (j<=n)

        If dist(j)<>s Then

              ② 

            i=i+1

        End if

        j=j+1

    Loop

    u=0

    j=j-1

    Do While  ③   

        List2. AddItem bh(j)+Str(x(j))+Str(y(j))+Str(dist(j))

        u=u+1

        j=j+1

    Loop

    List2. AddItem"total:"+Str(u)

End sub