浙江省东阳市2020届高三信息技术6月模拟考试卷

试卷更新日期：2020-06-28 类型：高考模拟

进入出卷网下载

一、选择题(本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个符合题目要求，不选、多选、错选均不得分)

1. 关于信息和多媒体，下列说法正确的是（）

A、对位图图像的修改实质上就是修改图像中的像素 B、Flash是一款以帧为基础的多媒体创作与集成软件 C、文字脚本包括作品的屏幕设计、链接关系的描述等内容，是多媒体作品制作的直接依据 D、现代信息技术以计算机和通信技术为基础，以微电子和光电子技术为支撑

查看试题解析
2. 下列有关说法，不正确的是（）

A、因特网上存储着海量信息，不同搜索引擎的检索结果可能不同 B、声音信息进行“采样”和“量化”的加工过程，属于“模数转换” C、静态网页可根据情况的变化、用户的需要生成不同的页面 D、POP 3协议将邮件从邮件服务器端送到个人终端机器上

查看试题解析
3. 对于数据库和数据表，下列说法不正确的是（）

A、数据库可以存储和管理文字、图形、视频等数据 B、Access数据表视图中，可以修改记录的字段值，也可设置某个字段为主键 C、Access同一张数据表中，常常用来存储同一类型或同一主题的相关数据 D、Access数据表视图中，表中的记录和字段删除后不可以使用撤销命令来恢复，但在设计视图中删除字段后可以使用该命令来恢复

查看试题解析
4. 使用Word软件编辑文档，部分界面如下图所示

下列说法正确的是（）

A、实现图中的图文环绕效果只能采用“四周型”环绕方式 B、文中有2处批注，若在第三行增加1处批注，则该批注序号为3 C、删除批注内容“前行的动力”，前面的“批注：[stu 2] ”不会被一起删除 D、文中共有4处修订，执行“接受所有修订”命令，最后一句话是“觉得竟是如此的不可思议。”

查看试题解析
5. 使用UltraEdit软件观察字符“众志成城，抗击疫情”的内码部分界面如图所示。下列说法正确的是（）

A、字符“疫”的十六进制内码为“F7 D2” B、字符“城”的二进制编码是10110011 11000111 C、存储“众志成城，抗击疫情”共需要16字节的存储空间 D、图中共有9个GB2312码字符

查看试题解析
6. 使用Goldwave软件处理音频，部分操作界面如图所示

在当前状态下，下列说法正确的是（）

A、执行“插入静音”操作，右声道音频时长不变 B、执行“剪裁”操作，再“粘贴”，左声道音频时长不变 C、该音频的播放速率为每秒播放128千个字节 D、按照原参数另存为WAV格式，音频存储容量增大

查看试题解析
7. 下列VB表达式的值为False的是（）

A、50 Mod 100＼50= 1 B、Int(2*Rnd-Rnd) ＼2= 0 C、Int(Rnd*10) /5< 2 D、”22”>”112”

查看试题解析
8. 某算法的流程图如图所示。执行这部分流程，输入41，则输出的值是（）

A、0 B、19 C、22 D、32

查看试题解析
9. 有如下VB程序段
Dim conn As New ADODB.Connection

Di mrs As New ADODB.Recordset

conn.ConnectionString=“Provider=Microsoft.ACE.OLEDB.12.0；DataSource=” & App.Path & “＼词库.accdb”

conn.Open

Set rs.Active Connection=conn

rs.Open “SELECT*FROM words”

n=0

Do While Not rs.EOF

   n=n+1

   en(n) =rs.Fields(1)

  ch(n) =rs.Fields(2)

rs.MoveNext

Loop

rs.Close

conn.Close

下列说法中正确的是（）

①连接的数据库文件名是“＼词库．accdb”

②程序运行后，变量n的值表示该数据表中记录的总数

③数组en(n)所存储的是数据表第2个字段的字段值

④“ConnectionString”是conn对象的属性值

⑤查询的数据表名称是“words”

⑥省略语句“rs．MoveNext”，程序也可以正常运行

A、①④⑤ B、③④⑥ C、②③⑤ D、②③④

查看试题解析
10. 字符串旋转。若整型变量s、t、c的值分别为3、9、4，则下列程序执行后str 1的值为（）
str 1=“go it for！”

str 2=Mid(str 1， s， t-s+1)

len 1=Len(str 1) ：len 2=Len(str 2)

c=c Mod len 2

For i=1To c

str 2=Mid(str 2， len 2， 1) +Mid(str 2， 1， len 2-1)

Next i

str 1=Mid(str 1，1，s-1) +str 2+Mid(str 1，t+1，len 1-t)

A、go for it！ B、for！go it C、for it go！ D、it for go！

查看试题解析
11. 有如下VB程序段：
Dim d(1 to 5) As Integer， i As Integer

For i= 1 To 8

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

Next i

For i=1 To 5 Step 2

k=i

For j=i+2 To 7 Step 2

    If a(j) <a(k) Or a(j) =a(k) And a(j+1) <a(k+1)

Next j

Then k=j

If i<>k Then

    t=a(i)：a(i)=a(k)：a(k)=t

    t=a(i+1)：a(i+1)=a(k+1)：a(k+1)=t

EndIf

Next i

运行该程序段后，数组a各元素的值可能为（）

A、1，2，1，1，4，3，6，5 B、1，1，1，2，3，4，5，6 C、0，1，5，2，7，4，5，6 D、3，4，5，2，6，4，7，11

查看试题解析
12. 有如下VB程序段：
Private Sub Command1_Click()

Dim a( 1 To 6) As Integer， i As Integer

For i= 1 To 6

a(i) =Int(Rnd*5) *2+ 1

Next i

For i=2 To 6 Step 2

    a(i) =cha(a(i-1) ， a(i) )

Next i

End Sub

Function cha(x As Integer， y As Integer) As Integer

Dim t As Integer

If x<y Then

    t=x：x=y：y=t

    cha=y

Else

cha=x-1

End If

EndFunction

执行该程序段后，在下列选项中，a(1)~a(6)各元素值可能的是（）

A、8，9，3，2，5，1 B、7，6，5，5，3，1 C、9，3，5，4，4，3 D、7，3，1，0，5，4

查看试题解析

二、非选择题(本大题共4小题，4+8+7+7，共26分)

13. 小赵对公司某一食品仓库的库存进行整理统计，数据情况如图a所示。请回答下列问题：

(1)、图a中J3：J6单元格计算同类产品的销售额之和，J4：J6的公式是从J3单元格通过自动填充功能得出，可知J3单元格公式为 (提示：SUM IF函数返回满足条件的单元格之和。例如： =SUM IF(F2：F10， H 3，D2：D10) =，F2：F10为条件范围，H3为条件，D2：D10为求和范围)

(2)、根据图a中的数据制作的图表如图b所示，则创建该图表的数据区域是。

(3)、小赵想找出调味品库存量最多的两个产品，下列方法可行的是 (多选，填字母)

A、以“产品”为调味品进行筛选，以“库存量”为关键字降序排序，选取排在最前面两个产品 B、以“库存量”为主要关键字降序排序，以“产品”为次要关键字降序排序，选取排在最前面两个产品 C、以“产品”为主要关键字降序排序，以“库存量”为次要关键字降序排序，选取排在最前面两个产品 D、以“产品”为调味品进行筛选，“库存量”为最大2项进行筛选，然后选取筛选出的产品

查看试题解析
14. 小王制作主题为“共战疫情”的多媒体作品，首先使用Photoshop软件处理图片，然后使用Flash软件制作动画。请回答下列问题：

(1)、使用Photoshop软件处理“共战疫情．psd”，如图a所示。为使“加油！加油！”在“存储为”JPG格式后的图片中不可见，下列操作可行的有(多选，填字母：A ．将当前图层设为不可见/B ．将当前图层移到“背景”图层下方/C ．使用“移动工具”将“加油！加油！”移到画布外/D ．使用“橡皮擦工具”擦除“加油！加油！”/E ．将当前图层栅格化)。

(2)、如图b所示，“标题”图层中第1帧到第20帧实现了由“齐心协力”逐渐变成“众志成城”的动画效果，则该图层第20帧上对象的类型为 (填文字：位图/影片剪辑/形状/静态文本)。

(3)、“文字”图层的补间动画属性设置如图c所示，若将“缓动”的值由0改为100，则该图层这段补间动画播放一次所需的时间将(填文字：不变/变长/变短)。

(4)、“音效”图层中的声音属性如图d所示，若要在不改变其他动画效果的前提下，使“携手”图层补间动画停止时声音也同时停止播放，可进行的调整是(多选，填字母：A ．在“携手”图层第20帧添加动作命令Stop All Sounds()； /B ．在“携手”图层第20帧添加动作命令Stop() ； /C ．将“音效”图层声音的同步方式修改为“数据流”，并在该图层第21帧插入关键帧/D ．将图d中的重复次数更改为1/E ．删除“音效”图层第21帧到第60帧)。

(5)、测试影片时，单击该场景中“抗疫”按钮时，跳转到“抗疫”场景的第1帧开始播放，则“抗疫”按钮的动作脚本为。

查看试题解析
15. (郊游活动)有n名同学参加学校组织的郊游活动，已知学校提供给这n名同学的郊游总经费为cnt元，与此同时每位同学都自带了部分钱。为了方便郊游，活动地点提供m(n<=m<=100)辆自行车供人租用，租用每辆自行车也需要花费钱，每位同学可以使用自己携带的钱或者学校的郊游经费，为了方便账务管理，每位同学只能为自己租用自行车，且不会借钱给他人，他们想知道最多有多少位同学能够租用到自行车。
租车原则是首先考虑自带经费多的部分同学优先租相对花费少的自行车，尽量少花学校经费以达到最多同学租车的结果。比如学生带的钱为9，3，6，7，5，租车的钱分别需要15，8，12，6，9，11，如果5个人都能租车，至少需要学校提供经费为(6-3)+(8-5)+(9-6)+(11-7)+(12-9)=16，如果学校经费只有10元，则自带钱最少的同学不租车，这时所需学校经费为(6-5)+(8-6)+(9-7)+(11-9)=7。计算过程中采用二分查找法来判断租用自行车的人数能否达到最大值。

(1)、若7位同学自带经费分别为5，17，15，12，10，9，14，自行车租车费用分别为27，14，27，25，17，18，23，21，学校提供经费为25元，则最多有位同学能够租用到自行车。

(2)、VB程序代码如下，请在划线处填入合适的代码。
Dim a( 1 To 100) As Integer， b( 1 To 100) As Integer

Dim n As Integer， m As Integer

Private Sub Command1_Click()

Dim left As Integer， right As Integer， mid As Integer， an s As Integer

n=Val(Text 1.Text) ：m=Val(Text 2.Text)

‘从数据库读取n位同学带的钱存储在数组a，m辆自行车租用的钱存储在数组b，代码略。

Call px(a()，n)

Call px(b()，m)

left =1：right=n：ans= 0

Do While left<=right

mid=(left+right) ＼ 2

If check(mid) =True Then

  ①

    right =mid-1

Else

    left =mid+ 1

End If

Loop

Label 1.Caption=“能租车的最大人数为”+Str(ans)

End Sub

Sub px(d() As Integer， s As Integer)

Dimi as integer， j as integer， k as integer

For i=2Tos

    k=d(i)

    j=i-1

   Do While k<d(j)

     d(j+1)=d(j)

     j=j-1

     If j=0ThenExitDo

Loop

  ②

Next i

End Sub

Function check(mid As Integer) As Boolean

Dim cnt As Integer， jf As Integer， t As Integer

cnt=Val(Text 3．Text)

For t=1Ton-mid+ 1

    If b(t) >a(mid+t-1) Then jf=b(t) -a(mid+t-1) Else jf= 0

      ③

Next t

If cnt>= 0 Then check=True

End Function

① ② ③

查看试题解析
16. 求最大连续子矩阵和。给出一个矩阵，序列元素有正整数、0、负整数，在矩阵中限定一块区域，并要求找到该限定区域内的一个子矩阵，使得这个子矩阵与限定区域同宽但可能不同高，且包含的所有元素之和为限定区域矩阵中最大值，在和最大的前提下还要求该子矩阵包含的元素个数最多。

算法描述如下：

1)从第一行开始向下进行累加，累加和若大于之前的最大和，则记录此时的最大和及结束位置；

2)若累加和等于之前的最大和，但元素个数大于之前的最大和的元素个数，则记录此连续子矩阵的结束位置；

3)若累加和小于0，则重新开始记录；

4)若有符合条件的多个连续子矩阵，则输出最先找到的子矩阵。

    小俞编写了一个实现该功能的VB程序，窗体加载时生成m*n个序列数据，依次存放在数组a，并显示在列表框List1中，在文本框Text1中输入该矩阵限定区域的左上角位置，在文本框Text2中输入右下角位置，单击“计算”按钮Command1后，找出连续和最大的子矩阵，在标签Label3上显示最大连续子矩阵和，在Label 4上显示该连续子矩阵的元素个数，在Label 5上显示该连续子矩阵开始与结束位置。程序运行界面如图所示。

(1)、在设计程序界面时，要清空文本框中的显示内容，应修改文本框的属性

(2)、VB程序代码如下，请在划线处填入合适的代码。
Const m=12：Const n= 6

Dim a(1 Tom*n) As Integer

Private SubForm_Load()

‘生成m*n个数据，并显示在列表框List 1，代码略

End Sub

Private Sub Command1_Click()

   Dim i As Integer， j As Integer， k As Integer， temp As Integer

   Dim length As integer， begin As Integer， sum As Integer

   Dim ks As String， js As String

   Dim xy( 1 to 4) As Integer， h sum(1tom*n) As Integer

   ‘读取文本框Text 1的数值分别存储到数组xy(1)、xy(2)，读取文本框Text 2的数值分别存储到数组xy(3)、xy(4)，xy(1)、xy(3)表示所在行，xy(2)、xy(4)表示所在列，代码略

     For i=1 To xy(3) -xy(1) + 1

       h sum(i) = 0

   Next i

   ‘求限定区域内每行数据之和

   For i=1 To xy(3) -xy(1) + 1

   For j= 1 To   ①

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

   Next j

   Next i

   ‘找出最大连续之矩阵和

   temp =0：sum=0：length=0：begin= 0

   For i=1 To xy(3)-xy(1) + 1

      If temp+h sum(i) >sum Then

        sum=temp+h sum(i)

       length=i-begin

       k=i

     ElseIf temp+h sum(i) =sum And   ② Then

       length=i-begin

    k=i

End If

If temp+h sum(i) < 0 Then

    begin=i

    temp= 0

Else

    temp=temp+h sum(i)

    End If

Next i

    ks=“(“ ③ ”+Str(xy(2) ) +) ”    ‘开始位置

    js=“(“+Str(k+xy(1) -1) +” “+Str(xy(4) ) +”) ”    ‘结束位置

Label 3.Caption=“最大子矩阵和为：”+Str(Sum)

Label 4.Caption=“子矩阵中的元素个数为：”+Str(length*(xy(4) -xy(2) +1) )

Label 5.Caption=“子矩阵位置为：”+ks+“，”+js

End Sub

① ② ③

查看试题解析