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

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

小明启动IE浏览器后，自动访问图文并茂的某网页。此时，IE浏览器地址栏显示如图所示，下列描述不正确的是（    ）

下列应用中，体现了人工智能技术的有(  )

①阿里vr购物中，用户带上头盔，眼前立刻出现梦幻般的购物景象，并进行购物；②与机器人对弈；③扫描图书中文字并保存为图片；④手机语音智能拨号；⑤利用人眼虹膜进行考勤

为了检查编码传输中是否出错，广泛使用奇偶校验码检查。其中奇校验规定如下：在传输编码的最高位置前加一位“1”或“0”使得传输字符的编码“1”的个数恒为奇数；已知“P”(50H)的编码为“101010000B”那么“M”的编码为(  )

使用Goldwave软件编辑某音频时的部分界面截图如下图所示，下列说法正确的是(  )

小红制作“元宵节”Flash动画，某按钮元件界面和相应属性如下图所示，下列描述正确的是(  )

某算法流程图如图所示，

执行该算法，输入n的值为13，下列说法正确的是(    )

下列VB表达式的值等于23的是（   ）

有如下VB程序段：

For i = 1 To 6

a(i) = Int(Rnd * 10) + 1

Next i

For i = 2 To 6

If i Mod 2 = 0 And a(i)>a(i-1) Then

t=a(i)：a(i)=a(i-1)：a(i-1)=t

Else

a(i)=a(i)-1

End If

Next i

执行程序后，数组元素a(1)到a(6)的值可能是(  )

有如下 VB 程序段：

i = 1: j = 63: n = 0

Do While i <= j

m = (i + j) \ 2

If key = a(m) Then Exit Do

ElseIf key < a(m) Then j = m - 1: n = n - 1

Else

i = m + 1: n = n + 1 End If

Loop

数组元素a(1)到a(63)存放着递增的数据。若执行该程序段后，n 的值为 6，则下列表达式成立的是（  ）

小赵对选择排序算法进行了修改改进，VB程序段如下：

i = n

Do While i >=2

k = i

For j =           To 1 Step -1

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

Next j

If i <> k Then

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

End If

                

Loop

则下列说法正确的是(  )

自定义函数delStr(S，m)的功能是删除字符串S中第m位上的字符，

Function delStr(S As String, m As Integer) As String

Dim n As Integer

n = Len(S)

If m < 1 Or m > n Then

delStr = ”输入位置有误！”

ElseIf m = 1 Then

delStr = Mid(S, 2, n - 1)

ElseIf m < n Then

                

ElseIf m = n Then

delStr = Mid(S, 1, n - 1)

End If

End Function

则横线处代码填写正确的是(  )

小张同学收集了某网店2018淘宝双十一购物狂欢节促销商品清单数据(共300条商品信息)，并使用Excel软件进行数据处理，如图所示。

请回答下列问题：

某同学创作了一个关于“鲲龙AG600”的多媒体作品，首先他用Photoshop软件处理图片，然后使用Flash软件制作动画，请回答下列问题：

某次考试的流程为先笔试再面试，笔试成绩达到面试资格线的可以入围参加面试。入围面试的资格线根据计划录取人数的200%划定，即如果考试最终录取x人，则第2*x名选手的笔试分数为面试资格分数线(该分若有同分者可一同参加面试)。现在编写VB程序功能如下：自动读取数据库中考生考号和笔试成绩，依次存储在数组kh(i)、cj (i)中，并显示在Listl列表框中。

用户从Text1中输入计划人数，单击“入围划线”按钮Command1，面试分数线显示在文本框Text2 中，入围面试最终人数显示在 Text3中，进入面试考生的考号和笔试成绩显示在List2列表框中，如果成绩相同，则按考号从小到大的顺序显示。程序界面如图所示。

Dim kh(1 To 500) As String, cj(1 To 500) As Integer

Dim n As Integer ′参加考试总人数

Private Sub Form_Load()

Dim conn As New ADODB.Conncction

Dim rs As New ADODB.Recordset

conn.ConnectionString = “Provider=Microsoft.ACE.OLEDB.12.0；datasource=”+App.Path + ”\BSCJ.accdb”

conn.Open

Set rs.ActiveConnection = conn

rs.Open “select * FROM scoreinfo”

′本过程其他代码略

End Sub

Private Sub Commandl_click()

Dim m As Integer, i As Integer, j As Integer

Dim t1 As Integer, t2 As String, flag As Boolean

For i = 1 To n - 1

  For j = 1 To

    If cj(i) < cj(j) Then

      t1 = cj(i): cj(i) = cj(j): cj(j) = t1

      t2 = kh(i): kh(i) = kh(j): kh(j) = t2

    EleIf      ①     Then

      t2 = kh(i): kh(i) = kh(j): kh(j) = t2

    End If

  Next j

Next i

m =     ②     

If m <= n Then

  i = m

  flag = Flase

  Do While i < n And Not flag
    If cj(i) = cj(i + 1) Then

      i = i + 1

 Else

            ③     

 End If
  Loop

  Text2.Text = Str(cj(m))

  Text3.Text = Str(i)

  For j = 1 To i

    List2.Addltem kh(j) + “ ” + Str(cj(j))

  Next j

Else

  Text2.Text = “面试人数超过了总人数”

End If

End Sub

维吉尼亚(Vigenere)密码。如下图所示，分别用行和列表示待加密的字符(明文)和当前字符的密钥，行和列的交叉点的字符即为加密后的结果(密文)。在加密时，密文与明文的字母大小写形式保持一致，如，明文字母为大写，则加密后的密文字母也为大写；当密钥长度不足时重复使用密钥。例如：当明文M=HelloWorld，密钥K=abc时，密文C=HfnlpYosnd。运算过程如下所示：

明文：HelloWorld

密钥：abcabcabca

密文：HfnlpYosnd

依据上述算法描述设计了如下VB程序。请回答下列问题：