1.选择题- (共12题)
A.①②③④⑤ | B.①⑤②④③ | C.①②⑤④③ | D.①④⑤②③ |
A.信息技术是对文字信息进行加工和处理时使用的技术 |
B.随着信息技术的发展,只需要计算机就能完成信息的处理 |
C.扫描二维码属于信息的编码 |
D.任何一种信息都有相对应的载体 |
A.Access数据库管理系统可以管理海量数据,能为大数据提供存储服务 |
B.数据库中可以存储图片或视频 |
C.在Access数据表视图中,误删了某条记录,可以马上通过“撤销”操作来恢复 |
D.在Access数据表输入数据后,则不能再将任何字段设置为主键 |

对于图中信息,下列说法正确的是( )
A.图片的环绕方式为“嵌入型” |
B.文中共有2位用户添加了批注 |
C.文中共有3处修订:2处插入修订和1处删除修订 |
D.输入文字“54运动”会马上变为“五四运动”,这是使用了人工智能技术 |


已知大写字母“A”的ASCII码为41H,下列选项中最有可能是字符“IT信息技术”的内码的是( )
A.49 54 D0 C5 CF A2 BC BC CA F5 | B.49 54 7E C5 CF A2 BC BC CA F5 |
C.48 54 D0 C5 CF A2 BC BC CA F5 | D.48 54 7E C5 CF A2 BC BC CA F5 |

若该程序段执行后,在文本框Text1中输入的字符串长度不超过10,文本框Text2中输入的值在0到8范围内(输入输出都不包括双引号本身),下列说法不正确的是( )
A.若在文本框Text1中输入“ZGBG”,Text2中输入“0”,则Text3中显示“ZG,GB,BG” |
B.若在文本框Text1中输入“CCAA”,Text2中输入“1”,则程序运行结束时变量c的值为2 |
C.将数组a的定义语句改为“Dim a(1 To 9) As String”,程序依然能够正确运行 |
D.若a(1)到a(4)的值为“AB”,“AC” ,“BC” ,“AC”,则调用函数check(4)的结果为False |
A.Int(rnd*50)-20 | B.Int(rnd*30)+20 |
C.Int(rnd*31)+20 | D.Int(rnd*30)+1 |

执行该程序段后,数组a(1)到a(6)的数据依次是( )
A.Delphi Java Pascal Python VB Swift |
B.VB Swift Python Pascal Java Delphi |
C.VB Swift Python Java Pascal Delphi |
D.Java Pascal Delphi Python Swift VB |

下列说法不正确的是( )
A.该音频文件的存储容量约为1.1MB |
B.执行“插入静音”命令,当前状态下插入17秒静音,文件播放时有一段静音 |
C.该音频文件采用无损压格式,采样频率为44.1KHz |
D.当前状态下执行“删除”命令,此音频文件的总长度保持不变 |
2.填空题- (共4题)
“中国好声音”节目组要小杰用VB编写一个程序:现场将有900个观众,要在900个观众中产生10个中奖号码的程序,每位观众用三位数字进行编号,要求产生的10个号码不能重复,并且升序排列输出。
①检查产生号码是否重复:把产生的中奖号码放在数组a中,新产生的号码与已经产生的号码进行一一对比,如果找到相等的数,则重新产生新号码。
②找到新产生号码存放的数组下标:从下标为1的数组元素开始,新号码(第i个号码)分别与他们进行一一比较,找到第一个比新号码大的数,该数所在的下标就是新号码应存放的下标。如果在已经产生的数中没有找到比新号码大的数,则新号码应存放在下标为i的数组元素中。下表以产生第5个号码为例,如果产生的号码是130,第一个比他大的数是a(2),下标为2的数组元素应存放新号码;如果产生的号码是300,则新号码应存放在下标为5的数组元素中。

③移动数组元素到新的位置:如果在已经产生的号码中找到比新号码大的数,从上一个产生的号码开始,到新号码应存放的数组元素,依次把他们向后面移动。以②中产生130为例,从a(4)开始,让a(5)的值等于a(4),a(4)的值等于a(3),依次类推,直到新号码应存放的数组元素a(2)为止。
④将新产生的号码放在相应的数组元素中。
程序运行的界面如下图所示,实现上述功能的VB程序代码如下:

Dim a(10) As Single
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim temp As Single, k As Integer 'temp产生随机数,k随机数存放数组元素的下标
Randomize
a(1) = Int(Rnd() * 900 + 100)
For i = 2 To 10
temp = Int(Rnd() * 900 + 100)
If seach(temp, i - 1) = True Then
i = i - 1
Else
k = i
For j = 1 To i - 1
If ①temp < a(i) Then k = j: Exit For
Next j
For j = i - 1 To k Step -1
a(j + 1) = a(j)
Next j
②
End If
Next i
List1.Clear
For i = 1 To 10
List1.AddItem Str(a(i))
Next i
End Sub
'函数实现在数组a中,从下标为1的数组元素到下标为t数组元素,查找有无s的数值
Function seach(s As Single, t As Integer) As Boolean
Dim i As Integer
seach = False
For i = 1 To t
If ③ Then seach = True: Exit For
Next i
End Function
(1)程序代码中①划线处有错,应改为:___________________
(2)程序代码中划线处②应填入_________________________
(3)程序代码中划线处③应填入_________________________
小杰为学校教务处编写了一个排考场座位的VB程序,考场采用“6排5列”共30人的模式,程序执行后,考生的考号与姓名显示在列表框List1中,单击“考场座位”按钮,考场号与座位显示在Text1中,程序运行界面如图所示,数据表如图


实现上述功能的VB程序如下,请回答下列问题:
(1)程序中读取的数据库文件是____________
(2)当“Form_load() 事件处理过程运行结束后,变量x的值为___________
(3)请在划线处填入合适的代码
Dim sName(100) As String
Dim kh(100) as string
Private Sub Command1_Click()
Dim y As Integer
Dim start As Integer '考场第1位数据元素的下标
Dim pa As Integer '数据库导入VB时学生数据下标
Dim pb As Integer '考场座位数据下标
Dim i As Integer,j As Integer,k As Integer,m As Integer
Dim kcsName(100) As String
start = 1
pa = start
recCount = x-1
If recCount Mod 30 <> 0 Then

For i = 1 To y '将当前考生人数添加到30的整数倍
recCount = recCount +1
sName(recCount) = " "
Next i
End If
For j = 1 To recCount / 30
pa = start
pb = start
For i = 1 To 30
kcsName(pb) = sName(pa)
pb = pb +1
If i Mod 5 = 0 Then
pa = start +i \5
Else

End If
Next i
start = start +30
Next j
Text1.Text = " "
start = 1
For k = 1 To recCount /30
m = start
Text1.Text = Text1.Text + "第" + Str(k) + "考场" + vbCrLf
'vbCrLf为换行标志符,实现Text1中内容换行显示
For i = 1 To 6
For j = 1 To 5
Text1.Text = Text1.Text +" " +kcsName(m)
m = m +1
Next j
Text1.Text = Text1.Text +vbCrLf
Next i
Text1.Text = Text1.Text +vbCrLf +vbCrLf

Next k
End Sub
Private Sub form_load()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source=" & App.Path & "/kaochang.accdb"
conn.Open
Set rs.ActiveConnection = conn
rs.Open "select * from banji"
x = 1
List1.AddItem " 考号 姓名"
Do While Not rs.EOF '
kh(x) = rs.fields("kh")
sName(x) = rs.fields("xm")
List1.AddItem kh(x) + " " + sName(x)
x = x + 1
rs.MoveNext
Loop
rs.Close
End Sub
小杰收集了某高校2019年“三位一体”综合评价招生计划的相关信息,使用Excel软件进行数据处理,如图a所示:

请回答下列问题:
(1)区域C17的数据是通过公式计算得到的,则C17单元格中的公式是________________。
(2)如图a所示,如果要对“师范类”的所有招生专业以“招生计划”为主要关键字进行降序排序,则排序时应选择的数据区域是___________________________。
(3)根据图a数据制作的图表如图b所示,创建该图表的数据区域是_____________________。

(4)根据图a中的数据,如果对其中两列数据进行筛选操作,筛选设置如图c所示,则按此设置筛选出的专业个数有_________个。

小杰利用Photoshop和Flash软件制作某多媒体作品,部分界面如图1和图2所示:

(1)如图1所示,右上角的“放飞青春”文字位于“放飞青春”图层内,若小杰想把文字设置为暂时不可见,下列操作方法中可行的是_________(多选,填字母:A.点击“放飞青春”图层前面的


(2)测试影片时,若要使图2中的“进入”按钮在鼠标点击时就能播放“音效”声音,应在该按钮的_______(单选,填字母:A.弹起帧/ B.指针经过帧/ C.按下帧/ D.点击帧)上添加“音效”声音,并将声音的“同步”属性设置为_______(选填:数据流/事件)。
(3)测试影片时,弹出如图3所示的错误提示,则该错误出现在________(填场景名),要纠正该错误,则按钮正确的动作命令应该是__________________________。

(4)测试影片时,发现“标题”图层上的动画忽有忽无,请观察图4所示时间轴,提供一种可行的解决方案_______________________。

-
【1】题量占比
选择题:(12道)
填空题:(4道)
-
【2】:难度分析
1星难题:0
2星难题:0
3星难题:0
4星难题:0
5星难题:0
6星难题:0
7星难题:0
8星难题:0
9星难题:16