浙江省2019-2020学年普通高校招生选考科目信息技术考试试题(六)

下列有关信息的说法，正确的是(  )

下列有关浏览器的应用，说法正确的是(  )

使用Access软件创建的“无人机”数据表，其设计视图的部分界面如图所示，下列说法正确的是(  )

下列有关多媒体技术的说法错误的是（  ）。

小王用Flash软件制作动画作品，时间轴编辑界面如下图所示，下列说法不正确的是(  )

将一个动画导出为AVI格式视频，导出设置如图所示。

若导出后的视频文件存储容量43.95MB，则该动画总帧数约为（  ）

某算法的部分流程图如下图所示，执行这部分流程后，输出的值为(  )

VB语句“If Int(Sqr(n))=Sqr(n) Then flag=True”，下列说法正确的是(  )

实现某算法的部分VB 程序段如下：

i=1

Do While i <= 9

  If a(i) <> 0 Then

    j=10

    Do While j > i

      If a(j)=a(i) Then a(j)=0

      j=j - 1

    Loop

  End If

  i=i+1

Loop

For i=1 To 10

   If a(i) <> 0 ThenText1.Text= Text1.Text+str(a(i))

Next i

数组元素a(1)到a(10)的数据依次为“4，1，6，4，4，9，1，7，6”，则程序运行后，文本框Text1中显示的内容是(  )

有如下VB程序段：

s = “QUOTES：keep on going never give up！”

flag = False: m = 0

For i = 1 To Len(s)

  ch = Mid(s, i, 1)

  If ch >= “a” And ch <= “z” Then

    If Not flag Then

      m = m + 1

      flag = True

    End If

  Else

    flag = False

  End If

Next i

Text1.Text = Str(m)

程序执行后文本框Text1显示的内容是(  )

在文本框Text1中输入n，生成一个n*n的矩阵。矩阵各元素的值均为0或1，第1个元素的值随机生成，垂直和水平方向相邻元素值均不同。程序运行的界面及实现该过程的VB程序段如下所示：

n = Val(Text1.Text)

m =            

s = “ ”

For i = 1 To n * n

  s = s + Str(m)

  m = 1- m

  If i Mod n = 0 Then

    List1.AddItem s

 s = “ ”

 If            Then m = 1- m

  End If

Next i

实现该功能，则上述程序段横横线处的表达式分别为(    )

数组d(1)～d(100)中存储某班级50位同学的语文和数学成绩，奇数位存储语文成绩，偶数位存储对应该同学的数学成绩。该数组已经按照两科总成绩升序排序。依据对分查找思想：设计一个在数组a中查找总成绩Key的程序，如果查找成功输出语文成绩在数组中的位置。实现该功能的VB程序段如下：

Key = Val(Text1.Text)

i = 1: j = 100

Do While i <= j

  m = (i + j) \2

  If             Then m = m - 1

  Sum =            

  If Key = Sum Then Exit Do     ′Exit Do表示退出循环

  If              Then

     i = m + 2

  Else

    j = m - 2

  End If

Loop

If i > j Then Text2.Text = “没有找到！” Else Text2.Text = Str(m)

实现该功能，则上述程序段划线处的表达式分别为(  )

小明用Excel软件处理2017年度某县建城区初中小学各学校活跃空间使用情况，如图a所示。请回答下列问题。

图a

小明制作了一个名为“端午．fla”的Flash动画，如图1所示。回答以下问题：

图1

小军学习了冒泡排序算法后觉得算法还有优化的余地：假设区间[1，i]内的元素已经有序，接下来对[i+1，n]所有元素进行扫描比较，扫描完后记住最后一次交换的位置last_exchange，这个位置说明了区间[i+1，last_exchange-1]内的元素是有序的。标准冒泡排序算法下一遍的扫描区间是[i+2，n]，而有了last_exchange位置信息后，下一遍的扫描区间只要[last_exchange，n]即可。小军用VB实现了该算法，运行的界面如图所示。

Const maxn = 1000

Dim a(0 To maxn) As Long

Private Sub Form_Load()

′产生maxn个不相同的数据，并把他存储在a数组中，代码略

End Sub

Private Sub Command1_Click()

Dim i As Long, j As Long, tmp As Long, cnt As Long

Dim last_exchange As Integer ′记录最后一次交换位置

Dim tmp_pos As Integer  ′本次交换的位置

cnt = 0: i = 1

last_exchange = 0: tmp_pos = 1

Do While        ′改错

  last_exchange = tmp_pos

  For j = maxn To last_exchange + 1 Step -1

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

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

                            

      cnt = cnt + 1

    End If

  Next j

  i = tmp_pos

Loop

′输出，代码略

End Sub

某会所采用会员制度，对会员消费实行积分奖励，利用VB编写一个程序，实现的功能：在文本框Text1、Text2中输入一个积分的范围，在列表框List2中显示该范围内的会员编号和对应的积分。多个会员可能有相同的积分，先用对分查找法找到该范围内的最小积分编号的下标，再循环输出该范围的会员编号情况。程序运行界面如图所示。

程序代码如下，为实现以上功能，请在横线处填写合适的代码：

Dim jf(800) As Integer, hyh(800) As String, n As Integer

Dim n As Integer ′表示会员的总人数

Private Sub Form_Load()

′从数据库中读取会员编号和积分，并按积分值从小到大排序，显示在列表框List1中

For i=1 To n

  List1.AddItem hyh(i)+“ ”+Str(jf(i))

Next i

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, m As Integer, k1 As Integer, k2 As Integer

k1=Val(Text1.Text): k2=Val(Text2.Text)

If k1 > k2 Then t=k1: k1=k2: k2=t

  If k1 > jf(n) Or k2 < jf(1) Then

    List2.AddItem “没有找到该范围的数据！”

    Text3.Text=“0”： Exit Sub

  End If

  i=1

  j=n

  Do While i <= j

    m=Int((i+j) / 2)

    If jf(m) > k1 Then

      j=m - 1

    ElseIf jf(m) < k1 Then

      i=m+1

    Else
      If Then

        j=m - 1

      Else

        p=m

      Exit Do

      End If
    End If

  Loop
  If i > j Then p =

  k=0
  Do While  And p <= n

    List2.AddItem hyh(p)+ “ ”+Str(jf(p))

   

      p=p+1

  Loop

  Text3.Text=Str(k)0

End Sub