浙江省温州新力量联盟2019-2020学年高二下学期信息技术期中联考试卷
试卷更新日期:2020-06-16 类型:期中考试
一、选择题(本大题共12小题,每小题2分,共24分。每小题列出的四个备选项中只有一个是符合题目要求的,不选、多选、错选均不得分)
-
1. 下列说法错误的是( )A、家用计算机只能用二进制存储数据 B、信息技术随着计算机的使用而快速发展 C、搜索引擎的两大核心技术是自动网页搜索技术和主题目录检索 D、讲话时,声音录到手机中,声音是从模拟信号转为数字信号2. 下列利用人工智能不能实现的是( )A、帮助法院判决案件 B、通过计算知晓过去所有发生的事 C、利用软件,语音远程控制家中电器的启动和关闭 D、大数据人脸识别,帮助警察锁定在逃的犯罪嫌疑人3. 某ACCESS文件的数据表视图如图a,设计视图图b,下列说法正确的是( )
图a
图b
A、当前状态下,数据表名称为“成绩.accdb” B、当前状态下,不能在设计视图中删除“ID”字段 C、要将“ID”字段数据类型改为“文本”,可以在数据表视图下完成 D、可以在“照片”字段输入“照片找不到”4. 下列关于编码和数据存储量的说法,正确的是( )A、“GB2312”编码中既有汉字也有数字和字母 B、数据在压缩时,压缩比越大的,压缩时间越短 C、对Wav格式文件,只降低采样频率而不改变量化位数和声道数,则文件每秒的存储量大小不变 D、某字符编码采用7位二进制,最大值是1111111B,转换为十进制表示是127,所以该编码最多可以编码127个字符5. 用Photoshop软件制作“开学小贴士”作品,效果如图所示。下列描述正确的是( )
A、当前状态下,可以删除“喇叭和树叶”图层 B、当前文件保存为BMP格式后,每个像素存储量大小为3个字节 C、可以对“小女孩”图层拷贝图层样式,粘贴图层样式到背景图层 D、当前状态下,用“图像大小”功能仅增大“开学小贴士”图层的内容6. 下列表达式,错误的是( )A、十进制运算:2^8=256 B、1111B+1B=16D C、11H>11D,11D>11B D、19H+11H=30D7. 下列选项中,与代码"Do while i <= j And Flag = False"功能相同的是( )A、Do while Int(j - i) >= 0 And Not Flag B、Do while i*a <= j*a And a > 1 And Flag = Not True C、Do while Int(i - j) <= 0 And Not Flag = True D、Do while j > Int(i) And (Not Flag) = True8. 某段VB代码对应的流程图如图所示,执行这部分流程后,下列说法正确的是( )A、该部分流程包含了If分支结构 B、该段VB代码包含了For循环结构 C、a=5,s=105 D、“s≤100?”执行了4次9. 采用选择排序算法对数据序列“5,3,1,4,0”完成升序排序,则需要交换的次数为( )A、1次 B、2次 C、3次 D、4次10. 在有序数组d(1 to 8)中执行对分查找,输出查找次数,不可能的次数是( )A、1次 B、2次 C、4次 D、5次11. 有如下VB程序段:s = "I never give up"
n = 0
Flag = True
For i = 1 to len(s)
ch = Mid(s,i,1)
If Asc(ch) >= 65 Then
If Flag = True Then
n = n + 1
Flag = False
End If
Else
Flag = True
End If
Next i
若空格的十进制ASCII码为32,执行该程序段后,变量n的值为( )
A、1 B、4 C、7 D、1312. 有两个以字母结尾的字符串s1和s2,在不区分大小写的前提下判断它们是否相同。该功能的VB程序段如下:Private Sub Command1_Click( )
Dim c1 As String, c2 As String, s1 As String, s2 As String
s1 = Text1.Text: s2 = Text2.Text
i = 1: j = 1
Do While i <= Len(s1) And j <= Len(s2)
c1 = Mid(s1, i, 1): c2 = Mid(s2, j, 1)
If Then
i = i + 1: j = j + 1
Else
Exit Do 'Exit Do表示退出循环
End If
Loop
If i > Len(s1) And j > Len(s2) Then T3.Text = "相同" Else T3.Text = "不相同"
End Sub
Function toLowerCase(x As String) As String '该函数把大写字母转成小写
If x >= "A" And x <= "Z" Then
toLowerCase = Chr(Asc(x) + 32)
Else
End If
End Function
划线处的代码从以下代码中选择,每条划线一句代码:
①toLowerCase = Chr(Asc(x) - 32) ②toLowerCase = x
③toLowerCase(c1) = toLowerCase(c2) ④c1 = c2
选择代码组合正确的是
A、④ ① B、① ④ C、③ ① D、③ ②二、非选择题(本大题共4小题,4+8+7+7,共26分。)
-
13. 小王获取了2016-2017年支付宝付款数据,并使用excel软件进行数据处理,如图a所示。
图a
图b
请回答下列问题:
(1)、区域C5:C13中的数据是从C4单元格利用自动填充功能得到的。则C4单元格输入的公式是。(2)、要以“年增长率(%)”为主要关键字进行排序,则选择的数据区域是。(3)、根据图a的数据,制作了图b的图表,创建该图表的数据区域是。(4)、将区域 A3:F14的数据值复制到新的工作表A1:F12并进行筛选,筛选条件为E列最大的三项,则在第4行A列看到的是。14. 用Flash软件打开“琴棋书画.fla”文件,时间轴如图所示。(1)、下列属于创作需求分析的是(多选,填字母:A .结构类型 /B .作品效益/C. 设施需求/ D .用户情况 / E .确定作品的发布方式)。(2)、为了使“画”图层的动画出现在“书”图层动画之后,并和“背景”图层一起结束,“画”图层中应进行的操作是。(3)、导出影片后,单击当前场景中的“链接”按钮,关闭动画,同时跳出“sc.chinaz.com”网页,则“链接”按钮的动作脚本为on( release) {}。(4)、若使该作品发布后按钮可用,下列格式中应选择(多选,填字母:A .GIF动画(*.gif) / B .Windows放映文件( *.exe) / C .Windows AVI(*.avi)/ D .Flash影片( *.swf)/ E. JPEG序列文件( *.jpg)。15. 小王编写了VB程序,功能如下:在窗体Form1的文本框Text1中输入要统计的人数,单击"统计"按钮运行程序,统计前n人的每科选课情况,数组a(1 to 300)中保存了每位同学的7选3科目(例如:a(1)="物化技"),数组b(1 to 7)用来保存“政史地物化生技”各科选课人数。(1)、窗体Form1的属性中没有的是(单选,填字母:A .Text /B .Caption/ C .Width)(2)、实现上述功能的VB程序如下,请在划线处填入合适的代码。Dim n As Integer, i As Integer, m As Integer, s As String, temp As String
Dim a(1 to 300) As String, b(1 to 7) As Integer
Private Sub Form_Load()
'读取每位同学的选课科目,保存到数组a(1 to 300)中,代码略
End Sub
Private Sub Command1_Click()
n = ①
s = "政史地物化生技" : temp=""
For i = 1 to n
temp = temp + a( i )
Next i
For i = 1 to len(temp)
m = ②
b(m) = b(m) + 1
Next i
For i = 1 to len(s)
list1.Additem Mid( s, i, 1 ) + ③ + "人"
Next i
End Sub
Function pos(j As Integer ) As Integer '该函数用于查找科目在s中的位置
Dim k as Integer
For k = 1 to len(s)
If Then pos = k : Exit For
Next k
End Function
① ② ③
(3)、程序中加框处代码有错,请改正。16. 小明编写了一个VB程序对数组a(1 to 20)进行处理:首先随机生成20个两位正整数,然后对所有“是3的倍数”的数字进行升序排序,其余的数原位不动。在列表框List1中显示整理前的数据,单击“排序”按钮,整理结果显示在列表框List2中,程序运行界面如图所示。
Dim a(20) As Integer
Private Sub Form_Load()
Randomize '对随机函数进行随机初始化
For i = 1 To 20
a(i) = ①
List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Cd1_Click()
Dim Done As Boolean
Dim i As Integer, j As Integer, k As Integer, t As Integer
For i = 20 To 1 Step -1
If a(i) Mod 3 = 0 Then Exit For 'Exit For表示跳出For循环
Next i
If i = 0 Then
Label1.Caption = "没有满足条件的数"
Else ‘对能被3整除的数进行排序
②
Do While Not Done
j = i
Done = True
k = j - 1
Do While k >= 1
If a(k) Mod 3 = 0 Then
If a(k) > a(j) Then t = a(k): a(k) = a(j): a(j) = t: Done = False
③
End If
k = k - 1
Loop
Loop
End If
For i = 1 To 20
List2.AddItem Str(a(i))
Next i
End Sub
(1)、“排序”按钮的对象名是(单选,填字母:A .Click/B .Cd1/ C .Command1)。(2)、请在划线处填入合适的代码。① ② ③