1、2020学年第一学期 台州市书生中学 第三次月考高二信息试卷 命题人：李贝贝 （满分：50分 考试时间：45 分钟） 2020.12一、选择题（本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个符合题目要求）1.下列有关信息和信息编码的说法，正确的是（ ） A.虚假的美容广告，说明信息具有真伪性B.汉字在计算机内部按照GB2312标准进行编码、存储和表示C.信息一定采用二进制进行编码D.语言、文字、图像和微信等都是信息的常用表达方式2.下列关于网页和网络协议的说法，正确的是（ ） A.SMTP协议用于接收E-MailB.将网页添加到收藏夹时名称可以重命名C.IE 浏览器
2、可浏览和直接编辑网页文件D.在IE浏览器中清空历史纪录时需要使用HTTP协议3.下列应用中，均体现了人工智能技术的是（ ） 某手机依设定的时间自动开启夜览模式 通过扫描某商品的二维码获得价格用指纹锁功能打开手机 某主题餐馆使用机器人代替人工送餐使用手机拍照功能获取图像A.B.C.D.4.利用软件UltraEdit观察字符内码，界面如第4题图所示，下列说法正确的是（ ）第4题图A.上述字符共需要12B的存储空间B.字符“Z”的内码用十六进制表示为“60”C.字符“庆70”的内码用十六进制表示为“C7 EC 37 30”D.字符“！”的内码是“A1”5.用 Access 软件设计“图书”数据表，在
3、数据表中已录入如第 5 题图 a 所示的原始数据， 其设计视图如第 5 题图 b 所示。 第 5 题图 a 第 5 题图 b 下列描述正确的是（ ）A.Access 软件属于数据库应用系统 B.可以增加数据类型为自动编号的“序号”字段 C.设计视图中字段顺序必须要和原始数据的列顺序保持一致 D.向数据表中添加新的记录时，“图书编号”字段的有效输入值可以为“20182002”6.将下列数转换为十进制数，除以 4 后余数为 3 的是 （ ）A.A90H B.100110B C.FFFH D.101101B7.有一段未压缩的有声视频，时长3分钟，帧频25fps，16位增强色，分辨率是1024*768
4、，视频中的音频比特率为1441 kbps，则该视频的存储容量约是 （ ） A.0.8G B. 1.6G C. 3.3G D.6.6G8.下列VB表达式计算结果为True的是 A.Int(Sqr(10) 2 2 B.Mid(0123, 3, 2) 56C.Len(654321) Int(Rnd * 3) 2 D.Not (3 = 4 Or 5 3)9.某算法的部分流程图如第9题图所示：执行完该流程，数组a各元素的值可能为（ ）A.8，14，9，6，2，12 B.2，4，10，22，10，10 C.8，12，0，11，2，10 D.6，12，0，10，4，810. 有如下 VB 程序段： t =
5、abcd123456 : x = Int(Sqr(Len(t) : y=1 If x 3 Then y =2 ElseIf x 2 Then y=3 ElseIf x 1 Then y=4 End If 执行该程序段后，变量 y 的值为 A.4 B.3 C.2 D.111.下列VB程序段实现把文本框Text 和Text2中输入的升序字符串合并成一个升序字符串，并在文本框 Tex3 中显示。 s1=Text1.Text:s2=Text2.Text n=Len(s1):i=1:j= 1Do While in+j-1 And j=Len(s2) If Mid(s1,i,1)Mid(s2,j,1)Th
6、en Elses1= Mid(s1,1,i-1)+Mid(s2,j,1)+ Mid(s1,i,n+j-i) End If LoopIf Then s1=s1+Mid(s2,j,len(s2)-j+1)Text2.Text=s1横线处的代码为（ ）A.j=j+1 i=i+1 j=len(s1) B.i=i+1 j=j+1 j=len(s1)C.j=j+1 i=i+1 j=len(s2) D.i=i+1 j=j+1 j= a And c = z Then sum = sum + 1 Else If sum 0 Then cnt = cnt + 1: sum = 0 End If End If If
7、 c = ( Then flag = True If c = ) Then flag = False Next i 文本框 Text1 的内容为一串只包含小写字母、左右括号和空格的字符串“(we can) do (better) we (should (be )better)”，执行程序段后，变量 cnt 的值为（ ）A.3 B.4 C.5 D.6 二、非选择题（本大题共4小题，其中第13题8分，第14题6分，第15题6分，第16小题7分，共26分。）13.小明收集了“电子商务创新活力城十强榜单”数据，并使用Excel软件进行数据处理,如图a所示。图a请回答下列问题：（1）如图a所示，区域A3
8、:A12的数据是通过排名函数Rank计算得到的：在A3单元格中输入公式 ，再利用自动填充功能完成区域A4：A12的计算。（2）已知I3单元格中的内容是由公式“=SUM(C3:H3)”计算得到，若将C3:H3单元格的数值小数位数设置为0，则I3单元格中显示的值 。（单选，填字母：A变大/ B不变/ C变小）（3）根据图a中数据，制作一张“综合指数对比”图表，如图b所示。该图表的数据区域是_。（4）对数据区域A2:I12进行筛选操作，“电子商务交易指数”和“网上市场指引力指数”的筛选设置均如图c所示，则筛选出的城市是_ （填城市名称）。图b 图c（5）小明从书籍上拍照获取“电子商务”相关内容后，在
9、使用OCR软件进行字符识别，下列说法正确的是 （单选题） A.该文字识别技术属于联机手写体汉字识别B.文件“电子商务.tif”可能是识别的结果文件C.通过“倾斜校正”操作有助于提高识别率D.使用“识别”命令进行字符识别前应先进行文稿的校对（6）将Excel制作的图表应用到Word软件，编辑文档界面如图所示下列说法正确的是 （多选题，全部选对的得2分，选对但不全的得1分，不选或有选错的得0分）A.有两个用户“wz1”和“wz2”各添加了一条批注B.可以用替换方法将文中的“电子商务”全部更改为“E-Commerce”C.删除文中的批注对象“电子交易”，相关的批注内容也会消失D.拒绝所有修订后，倒数
10、第二行变为“电子商务通常是指在全世界全球各地广泛的商业贸”E.文章中图片环绕方式为“嵌入型”14.编写 VB 程序采用逢二进一的方法模拟“写二进制数”过程。程序功能如下： 在文本框 Text1 中输入一个不大于 100 的数字 n，点击“写二进制数”按钮，在列 表框 List1 中逐一显示 1 到 n 之间所有的二进制数。 第 14 题图 （1）在设计程序界面时，可用题 15 图中所示“控件工具箱”中的_ （填 写相应编号）添加用于显示二进制值的列表框。（1 分） （2）实现上诉功能的 VB 程序如下，请在划线处填入合适的代码。 Private Sub Command1_Click() Dim
11、 d(1 To 7) As Integer 数组 d 用于存储二进制数值的每一位的值 n = Val(Text1.Text) For i = 1 To 7 d(i) = 0 Next i For i = 1 To n 最低位加 1 后，“逢二进一”处理进位，从而产生下一个二进制数 _ d(k) = d(k) + 1 s = For k = 1 To 6 If d(k) = 2 Then d(k + 1) = d(k + 1) + 1 _ End If _ Next k List1.AddItem Str(i) + + str(d(k) + s Next i End Sub15. 已知数组 a
12、中的元素按非递减有序排列，在程序运行时显示在 Text1 中。编写程序实现如下 功能：删除数组的重复元素，并更新数组的长度，在 Text2 输出新的数组元素值。程序运行界面如图所示。 （1）要是程序运行时，窗体 Form1 标题立即立即显示为“删除重复数组元素”，可在_（单 选：A.Form_Load()/B.Form_click()/C.Command1_Click()）事件过程中添Form1.Caption=” 删除重复数组元素”语句来实现。 （2）为实现上述功能的 VB 程序如下，请在划线处补充缺失的代码。 Const n = 20 Dim a(1 To n) As Integer Di
13、m lena As Integer 数组 a 的实际长度 Dim s As String Private Sub Form_Load() 生成 lena 个长度的非递减序列，并输出到文本框 text1 中，代码略 End Sub Private Sub Command1_Click() Dim i As Integer, j As Integer i = 1 Do While i lena If a(i) a(i + 1) Then i = _ ElseFor j = i + 1 To lena a(j - 1) = _ Next j _ End If Loop s = For i = 1 T
14、o lena s = s + Str(a(i) Next i Text2.Text = s End Sub16.填写n阶（n为奇数）幻方的口诀：1居上行正中央，依次斜填切莫忘，上出框界往下写，右出框时左边放，重复便在下格填，出角重复一个样。（1）1居上行正中央数字1放在首行最中间的格子中；（2）依次斜填切莫忘向右上角斜行，依次填入数字；（3）上出框界往下写如果右上方向出了上边界，就以出框后的虚拟方格位置为基准，将数字竖直降落至底行对应的格子中；（4）右出框时左边放同上，向右出了边界，就以出框后的虚拟方格位置为基准，将数字平移至最左列对应的格子中；（5）重复便在下格填如果数字N右上的格子已被其它
15、数字占领，就将N1填写在N下面的格子中；（6）出角重复一个样如果朝右上角出界，和“重复”的情况做同样处理Dim a(1 To 1000) As IntegerDim k As Integer, i As Integer, s As StringDim n As Integer, j As IntegerFunction geshi(s1 As String, x As Integer) As String此函数用于输出时补足空格对齐Do While Len(s1) x s1 = + s1Loopgeshi = s1End FunctionPrivate Sub Command1_Click()
16、 生成幻方List1.Clear: Text1.Enabled = False: Command1.Enabled = FalseCommand2.Enabled = True: Command4.Enabled = Truen = Val(Text1.Text)k =_a(k) = 1num = 2Do While num = n * n If k n Then 当前位置是第1行，但不是最右边列 k = k + (n - 1) * n + 1 ElseIf k = n Then 当前位置是第1行最右边列 k = k + n ElseIf _ Then 非第1行的最右边列时 k = k - 2
17、 * n + 1 Else 一般情况 k = k - n + 1 End If If a(k) 0 Then k = k + 2 * n - 1 新位置处已有数字时 a(k) = _ num = num + 1Loops = For i = 1 To n * n s = s + geshi(Str(a(i), 5) 每项输出宽度为5个字符的位置 If i Mod n = 0 Then List1.AddItem s s = End IfNext iList1.AddItem -End Sub高二第三次月考答案一、选择题（2*12=24分）123456789101112ABCCBCDCDBDC二
18、、 非选择题（26分,第13题8分，第14题6分，第15题6分，第16题6分）13.（1）=RANK(I3,I$3:I$12,0) （1分） （2）B （1分）（3）B2:B6，I2:I6 （1分） （4）北京、上海（2分）（5）C （1分） （6）BC （2分）14.（1）_4_（1 分） （2） _k=1_（1 分） _d(k)=0_（2 分） _s=str(d(k)+s_或s=d(k) & s_（2 分） 15.（1）_A_（1 分） （2） _i=i+1_（1 分） _a(j)_（2 分） _lena=_lena-1_（2 分） 16._n2+1或(n+1)2或其他等价答案_（2 分） _k mod n = 0_（2 分） _a(k)=num_（2 分）