相关试卷
-
1、使用Excel软件统计线上教学中各班学生出勤情况，如图a所示：
图a
请回答下列问题：
(1)、在N4单元格中使用COUNTIFS函数统计高二(1)班全勤的人数，自动填充至N21单元格，则N4单元格中的公式为。（提示：COUNTIFS函数用于统计符合多个条件的数据个数。例如K4单元格的公式为=COUNTIFS(A$4:A$830,I4,C$4:C$830,"=1")，表示统计数据区域A4:A830中与单元格I4数据相同，并且C4:C830中数值等于1的单元格个数。）
(2)、若区域C4:E4单元格中的数据被误删，则G4单元格将显示为。（单选，填字母：A . 100.0% / B . #DIV/0! / C . #REF!）(3)、根据图a中数据制作的图表如图b所示，创建该图表的数据区域是。
图b
(4)、将区域I2:N21中的数据复制到新工作表并进行筛选，对“缺勤1”、“全勤人数”分别设置了如图d和图c所示的筛选条件，则筛选结果有项。
-
2、某对分查找算法的VB程序段如下：
Key = Int(Rnd * 49) * 2 + 1
s = 0: i = 1: j = 10
Do While i <= j
m = (i + j) \ 2
If Key = a(m) Then Exit Do
If Key < a(m) Then
j = m - 1: s = s * 2
Else
i = m + 1: s = s * 2 + 1
End If
Loop
数组元素a(1)到a(10)的值依次为“3,13,15,20,28,35,45,52,63,97”，执行该程序段后，s的值不可能为（ ）
A、1 B、5 C、9 D、14 -
3、小李同学基于选择排序算法编写了如下程序，Text1中输入一个全部为数字的字符串，现重新排列该字符串各个位置上的数字，使其可以组成的数最小（若零在开头，则省略不写）。
m = Text1.Text: n = Len(m)
For i = 1 To n - 1
k = i
For j = i + 1 To n
If Then k = j
Next j
If i <> k Then
m = Mid(m, 1, i - 1) + Mid(m, k, 1) + + Mid(m, i, 1) +
End If
Next i
Text2.Text = Val(m)
上述程序中划线处应填入的语句为（ ）
A、Mid(m, j, 1) > Mid(m, k, 1)；Mid(m, i + 1, k - i - 1)；Mid(m, k + 1) B、Mid(m, k, 1) > Mid(m, j, 1)；Mid(m, i + 1, k - i + 1)；Mid(m, k + 1) C、Mid(m, j, 1) < Mid(m, k, 1)；Mid(m, i + 1, k - i - 1)；Mid(m, k + 1) D、Mid(m, j, 1) < Mid(m, k, 1)；Mid(m, i + 1, k - i + 1)；Mid(m, k + 1, n - k) -
4、下列VB程序段的功能是将数组元素a(1)到 a(n)进行排序：
For i = n To 2 Step -1
For j =
If a(j) > a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
上述程序中方框处可选语句如下，则应填入的语句为（ ）
①1 To i - 1 ②n - 1 To i Step -1 ③1 To n - i ④n - 1 To n - i + 1 Step -1
A、①或② B、①或④ C、③或④ D、②或③ -
5、有如下VB程序段，已知字符“A”的ASCII码值为65，则在文本框Text1中输入"abXY"，s1的值最终是（ ）
s = Text1.Text: n = Len(s)
For i = 1 To n
c = Mid(s, i, 1)
If c >= "a" And c <= "z" Then t = Asc(c) - 32 Else t = Asc(c)
s1 = s1 + Chr(65 + (t - 63) Mod 26)
Next i
A、CDZA B、cdZA C、ZACD D、ZAcd -
6、某算法的部分流程图如图所示。执行这部分流程，输入变量n的值为5，则下列说法正确的是（ ）
A、语句“c<=n?”共执行了4次 B、循环结束后，变量a的值为3 C、循环结束后，变量b的值为5 D、循环结束后，程序输出的值为6 -
7、下列VB表达式的值为True的是（ ）A、Not ("56" > "27") B、8 \ 4 * 4 + Int(-8.4 / 2) = 12 C、70 \ 6 / 2 + 3 = 26 D、-8 ^ 3 + 3 > 6 * 2
-
8、用GoldWave软件编辑音频文件“声音.wav”，部分界面如图所示，下列说法正确的是（ ）
A、执行“静音”操作后直接保存，文件容量将变小 B、执行“删除”命令后直接保存，音频容量约为10MB C、复制一段时长为1秒的音频粘贴至当前音频文件后直接保存，文件容量不变 D、执行“剪裁”命令后，再执行“插入静音”2秒后直接保存，左声道音频时长不变 -
9、用Photoshop软件制作防疫宣传海报，部分界面如下图所示，下列说法正确的是（ ）
A、复制“罩顾好自己”图层的图层样式粘贴至“勤洗手 戴口罩”图层，“勤洗手 戴口罩”图层将显示“描边”、“投影”两个效果 B、可用“仿制图章”工具将“病毒”图层的图像内容仿制到“背景”图层中 C、不可用文字工具修改“勤洗手 戴口罩”的文字大小 D、若将该文件另存为JPG格式，则其文件容量图层为878.9K -
10、使用UItraEdit软件查看字符内码，部分界面如图所示，下列说法正确的是（ ）
A、 图中共有4个ASCII字符 B、图中字符在计算机中存储时共占用14字节 C、字符“10”对应的内码是00111010B D、字符“油”对应的内码11010011 11001101B -
11、使用Access软件创建的“捐款信息”数据表，其设计视图的部分界面如图所示。下列说法正确的是（ ）
A、“姓名”字段可能存在重复的字段值 B、“200.00元”可以是“捐款金额”字段的有效输入值 C、修改字段的数据类型，字段值不会改变 D、在该视图下删除“年龄”字段，可以通过“撤销”命令恢复 -
12、使用OCR软件将报纸中的文字识别为文本后，在Word软件中进行排版编辑，部分界面如图所示，下列说法正确的是（ ）
A、实现图中的图文环绕效果可以采用“四周型”环绕方式 B、使用OCR软件识别前的文件格式可能为“.txt” C、删除图中批注后，批注对象和批注内容同时被删除 D、拒绝文档中的所有修订后，图中第二行中的文字“监”被保留 -
13、下列说法正确的是（ ）A、不联网的计算机没有信息安全隐患，故不需要对数据进行备份 B、网页文件可以存储文本、图像、声音、动画、视频等内容 C、电子邮件通过SMTP协议从发件人计算机发送到收件人计算机 D、信息自古就有，随着时间的迁移，价值可能发生变化
-
14、某二进制字符串的压缩算法描述如下：
①取字符串的首字符为压缩后的第一个字符。
②统计该字符连续的个数，两者间使用逗号分隔。
③按此方法进行后续字符的压缩，各段压缩结果用“/”分隔。
④重复上述过程，直到将所有字符压缩完成。
例如：字符串"1100000000000011110"压缩后的字符串为"1,2/0,12/1,4/0,1/"。依据上述描述编写VB程序，实现此算法的解压缩功能：在文本框Text1中输入待解压缩的字符串，单击“解压缩”按钮，在文本框2中输出解压缩的字符串。运行效果如下图所示。
(1)、若在文本框1中输入“1,2/0,3/1,2/”，单击“解压缩”按钮后，文本框2中输出的内容为。(2)、实现解压缩功能的程序代码如下，请在划线处填入合适的代码。Private Sub Command1_Click()
Dim i As Integer, x1 As Integer, x2 As Integer, s As String
Dim ch As String, result As String
s= Text1.Text
i= 1: result =”
Do While i<= Len(s)
①
If ch< "O" Or ch> "9" Then
If ch= "/" Then
x2 = tmp
For j=1 To x2
result = result & CSstr(x1) ‘Cstr函数的功能是将数字转为字符串
Next j
Else
②
End If
tmp= 0
Else
③
End If
i=i+ 1
Loop
Text2.Text = result
End Sub
① ② ③
-
15、用VB编写寻找自然数中第n个素数的程序，具体功能如下：在文本框Text1中输入正整数n，单击“寻找”Command1按钮后，在Label1中显示结果。程序运行界面如下图所示。
(1)、程序启动后，窗体的标题栏显示“寻找第n个素数”，Form_Load事件处理过程中应添加语句 (单选，填字母)A、Form1="寻找第n个素数" B、Form1.Name="寻找第n个素数" C、Form1.Caption="寻找第n个素数" D、Form1.Text="寻找第n个素数"(2)、请在下划线处填入合适的代码Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim s As Integer, x As Integer, f As Boolean
n= Val(Text1.Text)
f= False: s=0
i=2
Do While ①
For x=2 To i\2
If i Mod x=0 Then Exit For ‘Exit For用于退出For循环
Next x
If ② Then
s=s+1
If
Then ‘③Label1.Caption= "第"& Str(n) & "个素数为:"& Str()
f= True
End If
End If
i=i+1
Loop
End Sub
① ②
(3)、加框处代码有错误，请改正。 -
16、 利用Flash软件制作关于“良渚文化”的动画作品(1)、下列关于作品规划设计说法正确的是(多选，填字母：A . 调查良渚文化的历史，属于多媒体的创作需求分析/B . 把作品划分为片头、主交互界面、片尾等部分，属于结构设计/C . 在“良渚文化”板块中，合理安排界面布局，属于模块设计/D . 制定处理各种多媒体素材的方案，属于制作脚本设计)(2)、“main”场景的制作脚本如下表所示：
模块名：“Main”
类别序号：2
进入方式：单击“load”场景“播放”按钮进入
呈现方式：
⒈背景图片和音乐同时播放，一直持续到场景动画结束。
⒉玉琮1、玉琮2、玉琮3由小到大，淡入到舞台。
⒊文字内容发生变化
⒋重播按钮出现在舞台右下角，单击按钮，停止播放声音并转到Load场景第1帧继续播放
呈现顺序说明：
⒈一开始就出现背景图片，播放音乐
⒉约0.5秒后，依次出现玉琮1、玉琮2、玉琮3动画。
⒊约1秒后，依次出现两段文字动画。
⒋最后出现“重播”按钮，动画停止
根据制作脚本要求，“main”场景的时间轴如下图所示
请回答下列问题：
①根据脚本要求，“玉琮1”图层的第20帧上实例的Alpha值为(单选填字母：A . 0% B . 100%)
②场景动画结束时音乐仍在继续播放，则表明声音的同步方式为
③测试影片，发现“重播”按钮一开始就出现在舞台，为让其符合制作脚本要求，该如何进行修改？
④根据制作脚本要求，“重播”按钮上应添加的动作脚本为
-
17、小刘收集了2018年上半年国内各品牌智能手机的销售量数据，利用Excel制作成表格并进行处理：
(1)、单元格J4:J18区域的数据是对J4单元格进行自动填充后得到的，根据题意，J4单元格中的公式为。(计算规则：销售占比(%)=各品牌总销售量/所有品牌总销售量×100)
(2)、为更直观的比较数据，制作了如下图所示的图表，该图表的数据区域是。
(3)、想将所有的手机品牌按“总销售量”从高到低进行排序，可以选择区域作为排序范围。(4)、将区域B3:J18的数据复制到新工作表，在新工作表中对2月和3月数据进行筛选操作，筛选设置如下图所示，则按此设置筛选出的品牌有个。
-
18、有如下VB程序段，运行后，文本框Text1中输出的内容为（ ）
Dim a As Long, k As Integer, s As String
a=1234567 : k=0
Do while a>0
r=a mod 10
If r Mod 2 =0 Then k=k+1
s= s+ Str(r)
a=a\10
Loop
Text1.Text= Str(k) +s
A、 2 4 6 3 B、3 6 4 2 C、3 1 2 3 4 5 6 7 D、3 7 6 5 4 3 2 1 -
19、有如下VB程序段，在文本框Text1中输入3，单击命令按钮Command1后，一定会出现的提示信息是（ ）
Private Sub Command1_Click()
Dim a As Integer, b As Single
a = Val(Text1.Text)
b=3.14*a^2
Text2.Text = "圆面积为:"+ b
End Sub
A、类型不匹配 B、溢出 C、无效的过程调用或参数 D、未找到方法或数据成员 -
20、下列VB表达式中，计算结果与其他三项不相同的是（ ）A、int(-1.1)+Sqr(625) B、Val(Str(2)+“3”) C、Mid(“1234”, Len(“ab”, 2)) D、123 Mod 1000\10