1.选择题- (共14题)
1.
“优先点菜”是一款集点菜、支付、分享于一体的手机应用软件,我们可以通过优先手机客户端查看到当地优质品牌餐饮门店及图文菜单,并预先点菜、支付,避免了餐前点菜、餐后结账时等候的麻烦.小利使用该APP事先点好菜的过程属于( )
A.信息的采集 | B.信息的发布 | C.信息的加工 | D.信息的存储 |
2.
小丽用UltraEdit软件观察"新高考‘7选3’"这几个字,显示的十六进制内码如图所示。则"7选4"这几个字对应得内码用十六进制表示是( )


A.37 D1 A1 34 | B.D1 A1 33 A1 AF |
C.37 D1 A1 33 | D.D1 A1 33 A1 B0 |
3.
小洁在进行网络购物时,看到某商家商品的评价得分(评价甲)如图所示,她购买了该商品,交易成功后又对该商品进行了打分(评价乙)。有关这两种评价,下列说法正确的是( )


A.评价甲为专家评价,评价乙为统计评价 |
B.评价甲为个人推荐,评价乙为统计评价 |
C.评价甲为专家评价,评价乙为个人推荐 |
D.评价甲为统计评价,评价乙为个人推荐 |
4.
某高校学籍管理系统软件有2万个学生的电子档案(已按学籍号排序),假设从中取出一条记录并与待查项进行比较所花时间为8毫秒,则用对分法在该系统中查找任意一位学生档案最多花费的时间约为( )
A.16万毫秒 | B.8万毫秒 | C.10毫秒 | D.120毫秒 |
5.
用选择排序将七个数“2022,2017,2018,2014,2021,2012,2015”从小到大进行排序,则第二轮交换数据后的顺序是( )
A.2022,2021,2018,2017,2014,2012,2015 | B.2012,2014,2018,2017,2021,2022,2015 |
C.2012,2017,2018,2014,2021,2022,2015 | D.2022,2021,2018,2014,2017,2012,2015 |
7.
已知t=55.8,s=64,m=-81,则下列Visual Basic表达式的值为False的是( )
A.t < abs(m)and int(t)+8 >= s | B.int(m)> s or t < abs(m) |
C.sqr(s)+ t < abs(m) | D.t > s + m |
8.
下列VB程序模块可以计算正整数n阶乘的值。
Function f(n As Integer) As Integer
If n < =" 1" Then
f = 1
Else
f =" n" * f(n - 1)
End If
End Function
该模块采用的算法是( )
Function f(n As Integer) As Integer
If n < =" 1" Then
f = 1
Else
f =" n" * f(n - 1)
End If
End Function
该模块采用的算法是( )
A.枚举 | B.查找 | C.排序 | D.递归 |
9.
小莹制作了将文字“全”变成文字“品” 的Flash变形动画。他在第1帧利用“文本工具”输入“全”,在第30帧插入空白关键帧,并利用“文本工具”输入“品”,在设置补间动画时选择“形状”,结果出现错误,如图所示。错误的原因是( )


A.在第1到25帧之间缺少一个空白关键帧 |
B.没有对输入的“全”和“品”进行分离(打散)操作 |
C.没有对输入的“全”和“品”进行组合操作 |
D.没有执行“测试影片”命令 |
10.
下表是一份多媒体作品系统结构的设计报告:
日期:2015年3月12日 报告人:小夏
下列Flash动画合成的时间轴结构中,与设计要求最相符合的是( )
日期:2015年3月12日 报告人:小夏
规划 | 情景描述 |
背景 | 使用蓝天白云作为背景 |
风筝 | 开始时风筝慢慢淡入直至完全出现 |
小鸟 | 风筝出现的同时,小鸟飞入,小鸟在树上停留一段时间后飞走 |
下列Flash动画合成的时间轴结构中,与设计要求最相符合的是( )
A.![]() |
B.![]() |
C.![]() |
D.![]() |
11.
小峰用ACDSee软件对如下4幅图进行处理,图像如下图所示:

关于这4幅图像,下列说法不正确的是( )

关于这4幅图像,下列说法不正确的是( )
A.把1图图像进行裁剪可以得到2图 |
B.把2图图像进行一次水平翻转可以得到3图 |
C.把2图图像进行一次垂直翻转可以得到4图 |
D.把3图图像进行一次垂直翻转可以得到4图 |
12.
在Access软件中,删除“三项考试成绩”数据表中的“学号”值为“30120”记录时的界面如图所示:

单击“是(Y)”按钮删除指定记录后,下列操作能恢复被删除记录数据的是( )
①立即执行“撤销”命令
②重新输入被删除的记录的内容
③关闭当前数据库,重新打开
④关闭该数据表,重新打开

单击“是(Y)”按钮删除指定记录后,下列操作能恢复被删除记录数据的是( )
①立即执行“撤销”命令
②重新输入被删除的记录的内容
③关闭当前数据库,重新打开
④关闭该数据表,重新打开
A.① | B.② | C.①② | D.③④ |
13.
小李使用Word修订功能对某文档做了几处修订,部分截图如1图所示,修订选项对话框如2图所示。若全部拒绝图中所示的修订内容,则第一句话的文字将变为( )




A.聚餐时,任何人都不看手机,所有放在餐桌上的手机屏幕朝下 |
B.聚餐时,任何人都不能看手机,所有放在餐桌上的手机必须屏幕朝下 |
C.聚餐时,任何人吃饭时都不看手机,所有放在餐桌上的手机屏幕朝下 |
D.聚餐时,任何人吃饭时都不能看手机,所有放在餐桌上的手机必须屏幕朝下 |
2.填空题- (共3题)
15.
下列VB程序运行时,单击命令按钮Command1后,在文本框Text1中输入“1024”,语句“a(i)=a(i+1)/2”共被执行了________次。
Private Sub Command1_C1ick ( )
Dim a(9) As Integer
a(9)=Val(Text1.text)
For i="8" to 1 step -2
a(i)=a(i+1)/2
Next i
Text2.text=str(a(i))
End Sub
Private Sub Command1_C1ick ( )
Dim a(9) As Integer
a(9)=Val(Text1.text)
For i="8" to 1 step -2
a(i)=a(i+1)/2
Next i
Text2.text=str(a(i))
End Sub
16.
杭州市民卡是由杭州市人民政府授权发放给市民用于办理个人相关事务和享受公共服务的集成电路卡(IC卡),具有信息储存、身份识别、电子支付等功能。每位市民卡的卡号是唯一的,卡内会记录每位市民的姓名、住址、金额等信息。
假设共有1000个市民,市民的相关信息都存储在“information.accdb”的data表中,查询程序界面如图所示。工作人员在文本框Text1中输入卡号,单击“开始查询”按钮,如果找到,就在Label1中显示卡内市民姓名和卡内余额;否则显示“查无此人”。请按要求将下列程序补充完整。

Private Sub command1_click()
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
Dim strSQL As String
Dim a,b as string ‘分别定义姓名、余额
Dim n as integer
conn.ConnectionString = "Provider="Microsoft.ACE.OLEDB.12.0;Data" Source=" + App.Path + "\information.accdb" '打开到数据库的链接
conn.Open
strSQL ="select xh,xm from data where '卡号=&(Text1.Text) & '" '设置查询的SQL语句
Set rs.ActiveConnection = conn '设置rs的ActiveConnection属性,指定与其关联的数据库链接
rs.Open strSQL '打开记录集,将从表information中读取的结果保存到记录集rs中
Label1.Caption = ""
n=0
Do while not rs.EOF
①
a=rs.Fields("姓名")
b=rs.Fields("余额")
rs.movenext
loop
rs.Close
conn.close
set rs=nothing
set conn=nothing
②
if n="0" then Label1.caption="查无此人"
End Sub
(1)程序中①划线处应填入___________________。
(2)程序中②划线处应填入___________________。
假设共有1000个市民,市民的相关信息都存储在“information.accdb”的data表中,查询程序界面如图所示。工作人员在文本框Text1中输入卡号,单击“开始查询”按钮,如果找到,就在Label1中显示卡内市民姓名和卡内余额;否则显示“查无此人”。请按要求将下列程序补充完整。

Private Sub command1_click()
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
Dim strSQL As String
Dim a,b as string ‘分别定义姓名、余额
Dim n as integer
conn.ConnectionString = "Provider="Microsoft.ACE.OLEDB.12.0;Data" Source=" + App.Path + "\information.accdb" '打开到数据库的链接
conn.Open
strSQL ="select xh,xm from data where '卡号=&(Text1.Text) & '" '设置查询的SQL语句
Set rs.ActiveConnection = conn '设置rs的ActiveConnection属性,指定与其关联的数据库链接
rs.Open strSQL '打开记录集,将从表information中读取的结果保存到记录集rs中
Label1.Caption = ""
n=0
Do while not rs.EOF
①
a=rs.Fields("姓名")
b=rs.Fields("余额")
rs.movenext
loop
rs.Close
conn.close
set rs=nothing
set conn=nothing
②
if n="0" then Label1.caption="查无此人"
End Sub
(1)程序中①划线处应填入___________________。
(2)程序中②划线处应填入___________________。
17.
设计VB程序,该程序将输入的字符串中小写字母转换成大写字母后输出。在文本框Text1中输入一串字符(数字、字母均可),单击“转换”按钮Command1,在标签Label2中输出结果。(提示:Asc(x):将字符x转换为ASCII码值;Chr(x):将ASCII代码x转换为所对应的字符)该程序的设计界面如图所示,请根据算法将下列程序补充完整。

Private Sub Command1_Click()
Dim ch As String, s As String
Dim i As Integer, j As Integer
ch = Text1.Text
For i =" 1" To (1)
j =" Asc(Mid(ch," i, 1))
If j > 96 And j < 123 Then
s =" s" + Chr(j - 32)
Else
s =" s" + Chr(j)
End If
Next
(2)
End Sub

Private Sub Command1_Click()
Dim ch As String, s As String
Dim i As Integer, j As Integer
ch = Text1.Text
For i =" 1" To (1)
j =" Asc(Mid(ch," i, 1))
If j > 96 And j < 123 Then
s =" s" + Chr(j - 32)
Else
s =" s" + Chr(j)
End If
Next
(2)
End Sub
试卷分析
-
【1】题量占比
选择题:(14道)
填空题:(3道)
-
【2】:难度分析
1星难题:0
2星难题:0
3星难题:0
4星难题:0
5星难题:0
6星难题:0
7星难题:0
8星难题:0
9星难题:17