相关试卷
-
1、通过浏览器登录某购物网站进行购物，如图所示，下列说法正确的是（ ）。
A、打开该网站需要用到HTML协议 B、该购物网站属于数据库管理系统 C、登录该网站的过程，需要查询数据库中的用户名和密码 D、存储商品信息的数据表中，“商品名称”列的数据称为记录 -
2、下列应用中，使用了人工智能技术的是（ ）。A、某程序通过设置“记住密码”自动登录 B、通过语音控制打开某手机 app C、通过某社交软件与朋友进行视频聊天 D、word 中的“自动更正”功能
-
3、下列说法正确的是（ ）。A、信息不可以脱离它所反映的事物被存储和传播 B、表达同一种信息只能使用一种表达方式 C、计算机安装了杀毒软件就不会感染计算机病毒 D、微电子技术、光电子技术都属于现代信息技术
-
4、某地区进行了4三个年级技术联考，现要求按学校分类对高三年级技术成绩降序排序后输出。小王编写了一个VB程序实现上述要求。先单击“统计”按钮Command1，读取数据库中每位学生的学校、年级、姓名和成绩等信息，进行统计分析后，并在列表框List2中分学校按成绩降序输出。程序运行时界面如图所示。
(1)、根据图中示例数据，采用选择排序算法分别对学校B的数据进行排序，整个排序过程中，数组元素之间的比较次数是（单选，填字母: A ．37×19 次 / B ．37×18 次/ C ．36次）。(2)、请在划线处填入合适的代码。Const rs = 480 '联考参加学生总人数rs
Const no = 3 '联考参加学校数no
Dim school(1 To rs) As String '存储学生的学校
Dim nj(1 To rs) As String '存储学生的年级
Dim xm(1 To rs) As String '存储学生的姓名
Dim cj(1 To rs) As Integer '存储学生的成绩
Dim p(1 To rs) As Integer '索引数组
Dim num(1 To no) As Integer
Dim n As Integer
Function id(s As String) As Integer
'根据学校名称转换为对应的数字ID号，代码略
End Function
Private Sub form_load()
'本过程读取每位学生的学校、年级、姓名和成绩的数据分别存储在数组school，nj、xm 和 cj 中，并在 List1 中显示学生成绩数据和每个学校的高三人数，代码略；
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, t As Integer, pos As Integer
Dim b(1 To no) As Integer, c(1 To rs) As Integer, q(1 To rs) As Integer
k = 0
For i = 1 To n
If nj(i) = "高三" Then
k = k + 1
p(k) =
num(id(school(i))) = num(id(school(i))) + 1
End If
Next i
'在 List1 中显示各学校的高三人数，代码略；
c(1) = 1
For i = 2 To no
c(i) = c(i - 1) + num(i - 1)
Next i
For i = 1 To k
t = id(school(p(i)))
c(t) = c(t) + 1
Next i
'----按学校分类，从高分到低分排序后输出-----
pos = 1
For i = 1 To no
For j = pos To c(i) - 2
For m = c(i) - 1 To j + 1 Step -1
If Then
temp = q(m): q(m) = q(m - 1):
End If
Next m
Next j
pos = c(i)
Next i
For i = 1 To k
List2.AddItem school(q(i)) & " " & xm(q(i)) & " " & nj(q(i)) & " " & cj(q(i))
Next i
End Sub
-
5、某校运动会跳远比赛，共m位(m≤20)选手参加该比赛，第一轮初赛每位选手跳3次，然后按每位选手的最好成绩，按高到低取前k名（若最好成绩相同，则名次相同）进入第二轮复赛。
每位选手的成绩数据记录规则如下：成绩数据以“;”(分号)结尾，中间用“/”(斜杠)分隔，例如：“王一超/4.10/-/3.78;李雨歆/3.87/3.85/4.20;”，表示第一位选手王一超，第一次成绩4.10米，第二次成绩无效(用“-”表示），第三次成绩3.78米，最好成绩为4.10米。第二位选手李雨歆，3次成绩分别是3.87米、3.85和4.20米，最好成绩为4.20米。
小强编写VB程序实现上述功能：程序运行时，读取所有选手数据保存在变量cj中，并显示在列表框List1中。在文本框Text1中输入进入第二轮的名次，单击“第二轮复赛名单”按钮 Command1,对数据进行统计分析，并在列表框 List2 中显示进入复赛的选手名单和最好成绩，程序运行界面如图所示，请回答下列问题。
(1)、代码“List2.AddItem”中的AddItem是（单选，填字母：A ．事件名 / B ．方法名 / C ．属性名）。(2)、实现上述功能的 VB 程序如下，请在划线处填入合适的代码。Private Sub Command1_Click()
Dim cj As String, xm(1 To 20) As String, maxcj(0 To 20) As Single
Dim s As String, c As String, t As Single, z As Integer
Dim i As Integer, j As Integer, n As Integer, k As Integer, m As Integer
'读取所有选手数据保存在变量cj中，并显示在列表框 List1中，代码略
n = Len(cj)
i = 1 : m = 1 : z = 1
Do While i <= n
c = Mid(cj, i, 1)
j = i
Do While
‘⑶i = i + 1
c = Mid(cj, i, 1)
Loop
If z = 1 Then
Else
t = Val(Mid(cj, j, i - j))
If t > maxcj(m) Then maxcj(m) = t
End If
z = z + 1 : i = i + 1
If c = ";" Then m = m + 1: z = 1
Loop
m = m - 1
k = Val(Text1.Text)
For i = 1 To m - 1
For j =
If maxcj(j) > maxcj(j - 1) Then
c = xm(j): xm(j) = xm(j - 1): xm(j - 1) = c
t = maxcj(j): maxcj(j) = maxcj(j - 1): maxcj(j - 1) = t
End If
Next j
If Then
List2.AddItem xm(i) + Str(maxcj(i))
Else
Exit For
End If
Next i
End Sub
(3)、程序中加框处代码有错，请改正。 -
6、用Flash软件打开“致敬逆行者.fla”文件，编辑界面如图a所示。
图 a
请回答下列问题：
(1)、关于多媒体作品设计，以下说法正确的是（多选，填字母：A ．Flash是以时间轴为基础的多媒体集成软件 / B ．在需求分析阶段需要逐一分类列出作品所需的各种素材的软硬件加工方式 / C ．规划设计阶段需要描述整个作品组成部分、工作流程、主要界面 / D ．文字脚本是制作动画的直接依据）(2)、“英雄”图层中的人物动画效果是从完全透明到完全显示，并顺时针旋转3圈，则其动画类型是（选填：动画补间动画/形状补间动画）(3)、将按钮应用到场景1左下角（按钮编辑界面如图b所示），测试影片时，当鼠标移到舞台左下角按钮区域时，按钮将（单选，填字母： A ．可见并显示小手形 / B ．可见并无小手形显示 / C ．不可见并显示小手形 / D ．不可见并无小手形显示）
(4)、下列不改变动画效果的操作是： （多选题）A、在“英雄”图层第15帧插入关键帧 B、在“音乐”图层第30帧插入空白关键帧 C、在“英雄”图层第50帧插入帧 D、删除“按钮”图层第1帧至第49帧(5)、动画播放到最后，音乐停止，并自动跳转到“Hero”场景的第20帧停止播放，则需要在按钮图层的最后一帧添加动作脚本为。 -
7、某中学高一进行了一次学科能力测试，并将学生成绩用Excel软件进行数据处理，部分界面如图a所示。
请回答下列问题：
(1)、表中每位学生的每门学科均差值=该同学该科成绩-该科平均成绩，因此需在E3单元格中输入公式 ， 然后自动填充到E4:E22，并复制粘贴到G3：G22，H3:H22各区域，完成每位学生的每门学科均差值的计算。(2)、由于操作失误，将区域J3:J22的数据误删除，则J23 单元格中显示的结果是。（单选，填字母 A ．0.0 / B ．#DIV/0! / C ．#REF! / D ．234.1）(3)、根据图a所示的数据制作了图表如图b所示，下列描述正确的是 （多选题，填字母）A、该图表的数据区域为D2,F2,H2,C23:D23,F23,H23 B、将A2：J22区域的数据按总分进行降序排序，则图表不会发生变化 C、以“班级”为高一（2）班、“总分”为最大1项进行筛选，则可以筛选出高一（2）班总分最高的学生 D、先以“班级”为高一（2）班进行筛选，然后再按照总分进行降序排序，则最前面一条记录为高一（2）班总分最高的学生 -
8、某对分查找算法的VB程序段如下：
Key = Val(Text1.Text): s = ""
i = 1: j = 10
Do While i <= j
m = (i + j) \ 2
If a(m) <= Key Then
i = m + 1
s = s + "R"
Else
j = m - 1
s = s + "L"
End If
Loop
Text2.Text = s
数组元素 a(1)到 a(10)的值依次为“1，4，6，10，16，16，16，18，21，33”。在文本框 Text1中输入 16 后，该程序段的输出结果与输入下列值的输出结果相同的是（ ）。
A、10 B、12 C、17 D、18 -
9、生成10个不重复的随机整数，保存在数组a中，并升序排列，实现算法的VB程序如下。
Dim a(1 To 10) As Integer, f(1 To 10) As Boolean
'f 数组各元素的初值设为 False，代码略
For i = 1 To 10
t = Int(Rnd() * 20 + 1)
If Not f(t) Then
a(i) = t
⑴
Else
⑵
End If
Next i
For i = 1 To 20
If flag(i) Then List2.AddItem ⑶
Next i
上述程序中 3 处下划线应填入的程序代码是
A、⑴ f(i) = True ⑵i=i-1 ⑶Str(a(i)) B、⑴ f(a(i)) = True ⑵i=i-1 ⑶Str(i) C、⑴ f(a(i)) = True ⑵t =int(Rnd()*20+1) ⑶Str(i) D、⑴ f(i) = False ⑵t =int(Rnd()*20+1) ⑶Str(a(i)) -
10、采用冒泡排序算法对字符串序列“v，i，c，t，o，r，y”进行排序，第一遍排序后的序列不可能的是( )。A、y，v，i，c，t，o，r B、c，v，i，o，t，r，y C、c，i，v，t，o，r，y D、v，i，t，o，r，y，c
-
11、某 VB 段程序如下：
s = Text1.Text
For i = 1 To Len(s)
c = Mid(s, i, 1)
s1 = c + s1
Next i
Text2.Text = s1
程序运行时，文本框Text1中输入“ABC123xyz”，文本框Text2中输出“baz321edc”，则下划线处的代码是( )。
A、
B、
C、
D、
-
12、下列VB表达式中，可取到最大值中最大的是( )。A、Fix((Rnd*45))*2+10 B、Int(Rnd*45)*2+10 C、Int(-Rnd*45)*(-2)+10 D、(Rnd-Rnd)*100
-
13、某算法的流程图如图所示。执行这部分流程，则输出的n的值是( )。
A、3 B、4 C、5 D、6 -
14、有一段PAL制的无声视频，每帧画面为1024*768像素、24位彩色，视频时间为 4分钟，将其转换成 MP4 后其存储容量为225MB，则压缩比约为( )。A、60:1 B、72:1 C、100:1 D、480:1
-
15、使用Photoshop软件对“元宵节1.psd”进行处理，编辑界面如下图所示，下列说法正确的是( )。
A、“诗句”图层能直接用添加滤镜 B、该图像采用RGB颜色模式，每个像素所占位数是24位 C、“灯”的图层样式未展开显示，说明都已经隐藏 D、“纹理”图层被锁定后不能调整图层的上下顺序 -
16、某Access数据表编辑界面如下图所示，以下说法错误的是( )。
A、该数据表的表名为“普通用户”，共有11条记录 B、该数据表有5个字段，字段的数据类型可以在“设计视图”中修改 C、在数据表视图中，不能在已有记录之前插入新的记录 D、在数据表视图中，可以把第8条记录“ID”字段的值改为“8” -
17、小悦使用Word软件处理信息的部分界面如图所示，下列说法正确的是( )。
A、当前一共有3处修订 B、文中为“缘何”添加了批注，批注的内容是“为什么” C、“zhejiang”等字母下方出现波浪线是因为启用了“拼写和语法检查”功能 D、拒绝对文档所有的修订后，第二段第一句为：千年古镇，缘何为什么吸引世界互联网大会永久“落户”? -
18、下列有关浏览器与收藏夹的说法，正确的是( )。A、通过搜索引擎检索到的信息，排在前面的可信度必定较高 B、可以在收藏夹中建立子文件夹对所保存的网址进行分类 C、在IE浏览器中清空历史记录，收藏夹中的网址被同时清空 D、IE浏览器中以“仅HTML”格式另存网页，网页中的图片同时被保存
-
19、下列有关信息的说法，正确的是( )。A、信息在重复使用中会产生损耗 B、信息一旦产生，其价值就不会改变 C、信息的传播与存储可以脱离载体而存在 D、同一种信息内容可以采用不同的表达方式和表达技术
-
20、为促进学生学习中互帮互助，每次考后章老师都会按成绩重新编排机房上课位置，编排要求如下：
①按分数从高到低排序。若分数相同，则按学号进行升序排序。
②以班级为单位，排出从1号开始的机房座位表。章老师编写了一个位置编排功能的VB程序，在文本框Text1中输入班级名称，单击“读数据库”按钮Command1后，从数据库读取数据并显示在列表框List1中；单击“编排”按钮Command2，在列表框List2中输出学号、姓名、成绩和位置信息。运行界面如下图所示。
实现以上功能的 VB 程序如下，请回答下列问题：
(1)、分析程序，可知数据库的文件名为。(2)、请在划线处填入合适的代码。Dim n As Integer
Dim xh(1 To 40) As Integer, xm(1 To 40) As String, cj(1 To 40) As Integer
Private Sub Command1_Click()
'本过程在文本框 Text1 中输入班级名称，从数据库中读取指定班级的学号、姓名和成绩的'数据分别存储在数组 xh,xm 和 cj 中
Dim conn As New ADODB.Connection
conn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source="
+ App.Path + "\js.accdb"
conn.Open
Dim rs As New ADODB.Recordset rs.ActiveConnection = conn
rs.Open "select * from 技术"
'本过程的其他语句略
End Sub
Private Sub Command2_Click()
Dim wz(1 To 40) As Integer
Dim i As Integer, j As Integer
List2.AddItem "学号" & " " & "姓名" & " " & "成绩" & " " & "位置"
For i = 1 To n
①
Next i
For i = 1 To n
For j = 1 To n
If ② Then wz(i) = wz(i) + 1
End If
Next j
List2.AddItem adj(Str(xh(i))) + adj(xm(i)) + adj(Str(cj(i))) + adj(Str(wz(i)))
Next i
End Sub
Function adj(c As String) As String '固定输出5个字符长度
Dim i As Integer
③
For i = 1 To 5 - Len(c)
adj = adj + " "
Next i
End Function
① ② ③