浙江省“七彩阳光”新高考研究联盟2019-2020学年高三上学期信息技术期中联考试题

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

下列关于网络和网络协议，说法正确的是（  ）

使用 Word 软件编辑某文档，部分界面如图所示。下列说法正确的是（  ）

​​

某ASCII 码字符加密方法描述如下：

⑴以1个字节为单位进行处理

⑵高位段（左边4位）左移一位，最低位用左移出的最位高填充，低位段（右边4位）右移一位，最高位用右移出的最低位填充

⑶分别将上述两段二进制转换为十六进制，所得两位十六进制依次连接即为密文则字符“H”的密文是（  ）

使用Access软件打开数据表，部分界面如图所示，当前状态下，下列说法不正确的是（  ）

将一幅1920×1080像素，颜色位深度为24位的BMP图像文件，另存为JPG图像文件后，存储容量为552KB，下列说法不正确的是（  ）

某算法部分流程图如图所示。执行这部分流程，依次输入：22、29、38、47、16、33、37、28、55、18、28。则输出值是（  ）

下列表达式的值不等于 6 的是（  ）

有下列VB程序段：

Dim strA As String, strB As String

strA = "hongda"：strB = ""

For i = 1 To Len(strA) * 2

If i / 2 = Int(i / 2) Then

strB = strB + Chr(Asc(Mid(strA, (i - 1) Mod Len(strA) + 1, 1)) + 2)

End If

Next i

该程序段运行后，变量strB的值是（  ）

有如下 VB 程序段：

Function fact(n As Integer) As String

If n = 1 Then

    fact = fact & 1

Else

    fact = fact(n \ 2) & n Mod 2

End If

End Function

Private Sub Command1_Click()

Dim x As String, i As Integer, r As Integer

x = Text1.Text

For i = 1 To Len(Text1.Text)

If Mid(x, i, 1) = "." Then Exit For Next i

r = Val(Mid(x, i + 1, Len(Text1.Text) - i)) Text2.Text = fact(r)

End Sub

在文本框Text1中输入2019.70，则执行程序段，在文本框Text2中显示的内容是（  ）

采用拉锯式排序法对无序数组元素实现降序排序，即前一遍把最大的元素从右到左送到最左的位置，后一遍把最小的元素是从左到右送到最右的位置，实现该功能的VB程序段如下：

c = 1: s = 10

Do While c <= s

    For i = s To c + 1 Step -1
        If      Then

            t = a(i - 1): a(i - 1) = a(i): a(i) = t
        End If

    Next i
    For i=

        If     Then

            t = a(i + 1): a(i + 1) = a(i): a(i) = t
        End If

    Next i

    c = c + 1
    s = s - 1

Loop

上述程序段三个方框处的语句分别为（  ）

下图是通过VB程序读取“GDP2018.accdb”文件中的GDP总量，显示在列表框中，部分代码实现如下：

Private Sub Command1_Click()     ‘列表框中输出 b(i)，代码略

End Sub

Private Sub Form_Load()

conn.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;DATASource="& App.Path & "\GDP2018.accdb" conn.Open：Set myrecord.ActiveConnection = conn：myrecord.Open "GDP"

n = 0

Do While Not myrecord.EOF n = n + 1

a(n) = myrecord.Fields("2018")

b(n) = Left(myrecord.Fields("Area"), 5) & "   " & myrecord.Fields("2018") myrecord.MoveNext

Loop

conn.Close: myrecord.Close: Set myrecord = Nothing: Set conn = Nothing End Sub

下列说法不正确的是（  ）

小林收集2018年度国内影院电影票房排行榜数据，并使用Excel软件进行数据处理，如图a

所示。

图 a

请回答下列问题：

小明制作主题为“我们的时代”的多媒体作品。

图 a

某学校要进行年级优秀生表彰，需要对n人的优秀生单独排位置，每行m人。排队方阵规则：第1行从左向右坐，第2行从右向左坐，第3行从左向右坐，第4行从右向左坐……不断重复。最后一行如果人数不满m人，一律从左往右坐。VB程序功能如下：Text1输入m的值，确定每行坐的人数，单击按钮后，在List2列表框中显每位同学的位置，在List3列表框中显示每位同学的4位数位置编号（行号+列号），如下图所示。实现上述功能的VB代码如下：

依据上述描述设计如下VB程序：

Dim xh(1 To 100) As Integer , xm(1 To 100) As String, cj(1 To 100) As Integer Dim n As Integer, m As Integer

Private Sub Form_Load()

'本过程从数据库依次读取n位同学的序号、姓名及成绩，然后按成绩降序排序，将学生序号、姓名成绩存储在数组xh、xm、cj中，结果显示在List1中，

End Sub

'显示每位同学的位置 Private Sub Command1_Click()   Dim wz As String   m=Val(Text1.Text)   For i = 1 To n \ m     For j = 1 To m       If   ①  Then         wz = wz + xm((i - 1) * m + j) + " "       Else         wz=xm((i-1) * m + j)+" "+wz       End If     Next j       List2.AddItem wz       wz =" "   Next i   If n Mod m <> 0 Then     For i= To n      ‘加框处改错     wz = wz + xm(i) + " "     Next i     List2.AddItem wz   End If End Sub

'显示每位同学的位置编号 Private Sub Command2_Click()   Dim zu As Integer   Dim ha As String, hb As String   List3.AddItem "序号" & vbTab & "姓名" & vbTab & "位置"   'vbTab 用于字符对齐   For i = 1 To n     zu =    ②       ha = Trim(str(zu))     If Len(ha) = 1 Then ha = "0" + ha     If zu Mod 2 = 0 And zu <= n \ m       Then hb =    ③       Else       hb = Str(i - m * (zu - 1))     End If     hb = Trim(str(hb))     'Trim 函数功能是去除字符空格     If Len(hb) = 1 Then hb = "0" + hb     List3.AddItem str(i) & vbTab & xm(i) & vbTab+ ha + hb   Next i End Sub

请回答下列问题：

由n行数字组成的数字三角形如图所示。设计一个算法，对于由n行数字组成的数字三角形（数字范围[1，50]，计算从三角形的顶至底的路径经过的数字和的最大值，每一步可以从当前点走到左下方的点也可以走到右下方的点。

寻求路径最大值的算法设计如下：

按三角形的行划分，若有n行，则有n-1个步骤

①从底层开始，本身数即为最大值

②倒数第二层的计算取决于底层的数据：

12+6=18,13+14=27,24+15=39,24+8=32；

③倒数第三层的计算取决于底二层的数据：

27+12=39,39+7=46,39+26=65；

④倒数第四层的计算取决于底三层的数据：

46+11=57,65+8=73；

④最后的路径：13—8—26—15—24其和为86。

根据上述算法描述，设计程序界面如下图所示，点击“生成金字塔”按钮，在列表框中生成数字金字塔，点击“寻求路径最大值”按钮，在文本框text1中输出最大值。

依据上述描述设计如下VB程序：

Const n = 5

Dim sx As String

Dim i, j, k, a(1 To 100) As Integer Private Sub Command1_Click() List1.Clear

For i = 1 To n For j = 1 To i

    ①  

sx = sx + Str(a((i - 1) * n + j)) Next j

For k = n To i Step -1 sx = " " + sx

Next k List1.AddItem sx sx = ""

Next i End Sub

Private Sub Command2_Click() For i = n To 1 Step -1

For j = 2 To i

If   ②  Then

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

Else

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

End If Next j

Next i

    ③  

End Sub

请回答下列问题：