2018-2019学年诸暨中学高二下学期期中考试信息技术试题

诸暨中学2018学年高二期中考试技术试卷第一部分信息技术一、选择题（本大题共12小题，每小题2分，共24分）1、下列说法正确的是A.语言和文字是我们常用的信息表达技术B.微信、QQ是当前流行的信息表达方式C.HTTPS协议是由SSL+HTTP协议构建的，可以提高网络信息的安全性D.POP3协议出错，则无法将电子邮件发送到收件人邮件服务器中2.使用IE浏览器浏览某网页时，部分界面如下图所示。

下列说法正确的是A.该网页的URL为/down/winrar-x64-561sc. exeB.将网页添加到收藏夹，实质上是将5.htm保存到本地磁盘C.该网页内容是用HTML描述的，可以使用记事本、IE浏览器等软件进行编辑D.单击当前超链接，可将目标文件下载到指定位置3、使用Access软件编辑数据表，其设计视图的部分界面如图所示。

下列说法正确的是A.数据表名称为“books.accdb”B.“ID”字段值可以手工输入C.“作者”字段值允许有重复D.“单价”字段值可输入“28元”4、用word软件编辑某文档，如图所示，下列说法正确的是A.文中的图文混排效果属于“四周型”环绕方式B.文中批注的对象为“西湖十景之一”C.第3行部分文字下方的波浪线是拼写或语法检查的结果D.当前状态下选择“拒绝修订”，第一句变为“雷峰塔建造于997年”5、将时长40秒的某视频素材进行保存，保存设置如图所示。

保存后的文件大小约为A. 1186GBB. 9.27GBC. 1.16GBD. 29.7MB6、使用GoldWave软件打开某音频文件，选中一段音频后的部分界面如图所示。

下列说法正确的是A.该音频文件是4声道的WA V格式文件B.单击“删除”按钮后，该音频的时长变为7秒C.执行“静音”操作后按原格式保存文件，声音文件存储容量不变D.该音频的采样频率是每秒采样1411k次，釆样频率越高，音质越好7、产生一个在[-10，99]中随机整数的VB表达式是A. int (rnd*100) -10B. int(rnd*99)-10C. int(rnd*109)-10D. int(rnd*110)-108、如图所示的窗体中，共出现了几类对象A. 1B. 2C. 3D. 49、某算法流程图如图所示：若要用VB语言实现该部分算法，下列代码符合流程图的是A. s=1:i=0For i=1 to 8s=s*2Next iB.s=1:i=0Do While i<=8s=s*2Next iC.s=1:i=0Do While i<=8s=s*2LoopD.s=1:i=0Do While i<=8s=s*2i=i+1Loop10、有如下程序段，若在text1中输入"abcd + BC + cdef + DE"，请问程序执行后list1中第3行中出现的值为Dim a(1 To 26) As Integers = Text1.Text : n = Len(s)For i = 1 To nc = Mid(s, i, 1)If c >= "a" And c <= "z" Thena(Asc(c) - 96) = a(Asc(c) - 96) + 1ElseIf c >= "A" And c <= "Z" Thena(Asc(c) - 64) = a(Asc(c) - 64) + 1End IfNext iFor i = 1 To 26List1.AddItem Str(a(i))Next iA.1B.2C.3D.411、数组元素a(1)到a(7)中的数据依次为“3，6，1，6，2，9，6”，执行下面这段VB代码后变量i的值是flag = False：i = 0LuckNumber = 6Do While i < 7 And flag = Falsei = i + 1If a(i) = LuckNumber Then flag = TrueLoopIf flag = False Then i = 0A. 0B. 2C. 4D.712、某程序代码如下：Dim a(1 To 13) As Strings = "where are you"：count= 0For i = 1 To Len(s)a(i) = Mid(s, i, 1)Next iFor i = 1 To Len(s) - 1k = iFor j = i + 1 To Len(s)If a(k) < a(j) Then k = jNext jIf i < > k Thent = a(i): a(i) = a(k): a(k) = tEnd IfNext iFor i = 1 To Len(s) - 1If a(i) = a(i + 1) Then count = count + 1Next i程序运行结束后，变量count的值是A.1B.2C.3D.4二、非选择题（本大题共4小题，其中第13小题4分，第14小题8分，第15小题6分，第16 小题8分，共26分）13、新高考形势下，每位同学都可以根据自己的特长自主选课，现高一进行了摸底统计，情况如下表所示。

请回答下列问题：图-1(1)区域N2:T15的公式是从N2单元格通过自动填充功能得出，由上图可知T10单元格公式为：_________________.(提示：SUMPRODUCT函数返回相应的数组或区域乘积的和。

例如：=SUMPR0DUCT((A4:A500=〃101班〃)*(D4:D500))=〃物理〃)）表示在数据区域D4:D500中统计〃101班〃选“物理”的人数）(2)根据图-1制作的图表如图-2所示，可知制作该图表的区域为：_______________。

(3)对图-1中的数据做如下操作，会引起图表变化的是：_______________。

（单选：A、以技术为关键字，对所有班级的数据进行降序排序；B、将P10单元格中的数据修改为20；C、选定数据区域M17:T17设置单元格格式，保留1位小数）(4)把图1中的L1: T15复制到新工作表中，要对生物和物理按13题图-3所示进行筛选，则最后筛选结果是_______________ (写出班级名）14、某同学创作了一个关于“鲲龙AG600”的多媒体作品，首先他用Photoshop软件处理图片，然后使用Flash软件制作动画，请回答下列问题：图a(1)如图a所示，要获得透明背景的鲲龙图像，下列操作可以实现的是____________(多选，填字母：A.选中“背景”图层并删除，然后存储为png格式/ B.选中“背景”图层，设置不透明度为0%，然后存储为png 格式/ C.选中背景”图层，用橡皮擦擦除其中的图像，然后存储为png格式/ D. 选中“背景”图层，设置为不可见，然后存储为png格式图b(2)“文字”图层第1帧至第20帧实现了由文字“鲲龙首飞”逐渐变为文字“国之重器”的动画效果，则动画类型为_____________。

（单选，填字母：A.动画补间/B. 形状补间/ C.逐帧动画）(3)若要在“飞机”图层第1帧至第40帧实现飞机在空中飞行到当前位置的过程中逐渐消失的动画效果，应进行的操作是______________。

(4)“声音”图层的同步方式如图c所示，若在第20帧处执行“清除关键帧”操作，则声音播放时长为____________秒。

(5)要想通过单击“更多”按钮，打开同一目录下的“kunlong.docx”文件了解更多详情。

则在该按钮上添加的动作脚本是_____________________。

15、【加试题】幸运数。

一组1幵始的奇数数列为：1，3，5，7，9，11，13，15，17，19，21，23，25，……此数列的第二项为3，将此数列的第3n 个数删除，留下的数为： 1，3，7，9，13，15，19，21，25，……新数列的第三项为7，将新数列的第7n 个数删除，留下的数为： 1，3，7，9，13，15，21，25，……若一直重复上述步骤，最后剩下的数就是幸运数：1，3，7，9，13，15，21，25，31，33，37，43，49，51，……下列程序的功能是找出1000以内的幸运数，但加框处代码有错，请改正。

Private Sub Command1_Click()Dim a(500) As Integer, b(500) As Integer Dim i As Integer, m As Integer, k As Integer Dim top As Integer, bott As Integer’产生由1开始的奇数数列，依次存储在数组a 中，代码略 top = 2: bott = 500 Do While top < bott③For i = 1 To bottIf i Mod a(top) < > 0 Thenb(k) = a(i)___________________ ②End If Next i①top = top + 1 For i = 1 To bott A(1) = b(1) Next i LoopFor i = 1 To bottList1.Addltem Str(a(i)) Next i End Sub(1)Private Sub Command1_Click()中的click 是____________(A.对象名 B.属性名 C.事件名） (2)改正加框处的代码，并在横线处填写合适的代码 16、【加试题】编写一个成绩查询程序，输入要查找的分数，输出该分数的名次及同分人数，其算法是：用数组a 存放不同的分值，数组m 存储相同分数的人数，数组mc 存储不同分数的名次。

例如，数据库中有程序界面如下图所示，在文本框Text1中输入查询成绩，点击“查找”按钮，若找到，则输出该分数的名次和同分数的人数，若找不到，则输出“查无此分”程序代码如下，请在划线处填入合适的代码。

Dim n As IntegerDim a(l To 1000) As Integer ’存放不同的分数值Dim m(0 To 1000) As Integer ’存放相同分数的人数Dim mc (0 To 1000) As Integer ’存放此分数的名次Private Sub Form_Load()Dim conn As New ADODB. ConnectionDim rs As New ADODB. RecordsetDim tmp As IntegerDim s As Integertmp = -1: n = 0conn. Connectionstring = 〃provider=Microsoft. ACE. OLEDB. 12. 0; data source=〃& App. Path & 〃\mydb. accdb〃conn. OpenSet rs. ActiveConnection = connrs.Open "Select * from score"mc(0) = 1: m(0) = 0Do While Not rs. EOFs = rs. Fields (〃成绩〃)If s = tmp Then ’当前读入分数与上一个分数相同m(n) = (1)Elsen = n + 1a(n) = sm(n) = 1mc(n) = (2)End If_____(3)_____rs. MoveNextLoopEnd SubPrivate Sub Command1_Click0Dim key As Integer, i As Integer, j As Integer, mid As Integerkey = Val (Text1.Text)i = 1: j = nmid = (i + j) \ 2Do While i <= j And (4)mid = (i + j) \ 2If a(mid) < key Thenj = mid – 1Elsei = mid + 1End IfLoopIf a(mid) = key ThenLabel2. Caption = 〃名次: 〃+ Str(mc (mid)) + 〃同分人数: 〃+ Str(m(mid)) ElseLabel2. Caption = 〃查无此分〃End IfEnd Sub参考答案1-12、C D C C C C D C D C B D13、(1) =SUMPRODUCT(($A$2:$A$600=$L10)*(J$2:J$600=T$1))(2) L1, L17, N1:T1, N17:T17 (3) B (4) 10714、(1) AD (2) B(3) 把飞机图层的第50帧移动到40帧，并把40帧中飞机实例的ALPHA值设为0(4) 4.6s (5) on(press){geturl(“kunlong.docx”);}15、(1) C(2) K=1 K=K+1 BOTT=K-116、(1) m(n)+1 (2) m(n-1) + mc(n-1) (3)tmp=s (4) a(mid)< >key。