1.选择题- (共13题)
2.
小曹准备制作主题为"班主任的传奇人生"多媒体作品,在创作需求分析阶段涉及分析创作作品所需的软件配置、最低运行硬件配置。这一环节内容属于()
A.主题思想分析 |
B.结构内容分析 |
C.设施需求分析 |
D.发布方式分析 |
4.
有如下VB程序段:
bianliang_a =" 3:bianliang_b" = 4
Label1.caption = “bianliang_a*bianliang_b”
该程序段运行之后,标签Label1将显示( )
bianliang_a =" 3:bianliang_b" = 4
Label1.caption = “bianliang_a*bianliang_b”
该程序段运行之后,标签Label1将显示( )
A.3*4 | B.12 |
C.bianliang_a*bianliang_b | D.3*4=12 |
5.
某查找算法的部分VB代码如下:
shifouzhaodao = False ‘shifouzhaodao:是否找到
szysxh = 0 ‘szysxh:数组元素序号
Do While szysxh < 5 And not shifouzhaodao
szysxh =" szysxh" + 1
if dczsz(szysxh) =" Key" then shifouzhaodao = true
Loop
if not shifouzhaodao then szysxh = 0
数组元素dczsz (1)到dczsz (5)的数据依次为“-1,3,7,10,7”,当变量key值为7时,运用该算法处理后,变量i的值是( )
shifouzhaodao = False ‘shifouzhaodao:是否找到
szysxh = 0 ‘szysxh:数组元素序号
Do While szysxh < 5 And not shifouzhaodao
szysxh =" szysxh" + 1
if dczsz(szysxh) =" Key" then shifouzhaodao = true
Loop
if not shifouzhaodao then szysxh = 0
数组元素dczsz (1)到dczsz (5)的数据依次为“-1,3,7,10,7”,当变量key值为7时,运用该算法处理后,变量i的值是( )
A.0 | B.-1 | C.3 | D.5 |
7.
已知Asc(“A”)的值为65,下列Visual Basic表达式的值等于数值131的是( )
A.ASC(“A+B”) |
B.CHR(65)+CHR(66) |
C."13"+"1" |
D.Abs(69-200) |
8.
某超市面食区共有5种面食品种,其价格依次为6.20、4.5、5.5、2、3,若采用冒泡排序算法对其进行从小到大排序,则第二趟的排序结果是( )
A.2 5.5 3 6.2 4.5 |
B.2 3 6.2 4.5 5.5 |
C.2 4.5 6.2 3 5.5 |
D.2 3 5.5 4.5 6.2 |
9.
未经压缩的BMP图片,如左图所示。若用图像编辑软件进行处理,并按原参数、式和文件类型保存为右图所示,则下列描述正确的是()


A.右图占用存储空间比左图占用存储空间要更大 |
B.右图所用的像素比左图所用的像素要多 |
C.右图位深度比左图位深度要更大 |
D.右图与左图占用存储空间一样大 |
10.
用UltraEdit软件观察“Yellow黄色”这几个字符的内码,如图所示:

则“Zoo”这几个字符的内码是()

则“Zoo”这几个字符的内码是()
A.60 4F 4F | B.60 6F 6F | C.5A 6F 6F | D.5A 6F 4F |
11.
某access数据库打开后如图所示,下列描述正确的是()


A.该数据库文件名为“log:数据库” |
B.该数据库里共有5张表 |
C.表“connectionlog”是一张空表 |
D.表“user_syfwrzb”只有2条记录 |
12.
使用Word编辑某文档,部分界面如图所示:

如果全部接受图中所示的修订内容,则第一句中的文字将变为()

如果全部接受图中所示的修订内容,则第一句中的文字将变为()
A.红外简称为IR,它是一种电磁波,波长范围为760nm~1mm之间 |
B.红外线英文简称为IR,它是一种电磁波,波长范围为760nm~1mm之间 |
C.红外简称是红外线,它是一种电磁波,波长范围为760nm~1mm之间 |
D.红外简称为IR,它是一种电磁波,红外编码的波长范围为760nm~1mm之间 |
2.填空题- (共5题)
14.
某校学生会选举需要从学校数据库中随机抽取若干名学生作为监票人。该数据库文件名为school.mdb,其中数据表student存储有关学生学号(xuehao)、姓名(xingming)相关信息,括号内的内容为对应字段名。该程序编辑界面如图所示,相关对象名可参考标识图。

当主持人点击按钮“生成抽号”后,下方的标签会显示可抽取的学号姓名,一定时间后显示被抽取作为监票人的学号姓名。
'xxxss:学校学生数,kcq:可抽取
'xhxm:学号姓名,kcq:可抽取
Dim xxxss As Integer
Dim xhxm(3000) As String
Dim kcq(3000) As Boolean
'cq_Click:启用两个定时器
Private Sub cq_Click()
cqxhxm.Enabled = True
xskcqxhxm.Enabled = True
End Sub
Private Sub cz_Click() '初始化数组kcq,使每个元素数据都处于可显示状态
For i =" 0" To xxxss - 1
kcq(i) = True '①
Next i
End Sub
Private Sub xskcqxhxm_Timer() '若数组kcq第x个元素处于可抽取状态,则显示数组xhxm第x个元素
x =" Int(Rnd" * xxxss)
If kcq(x) Then xhxmbq.text = kcq(x) '②
End Sub
Private Sub Form_Load() '从数据库中提取需要的学号姓名相关数据并初始化数组kcq
Randomize
xxxss = 0
Dim conn As New ADODB.Connection,rs As New ADODB.Recordset
Dim str_conn as String,str_sql As String
str_conn = "driver="Microsoft" access driver(*.mdb);DBQ="&app.path&"\school.mdb";
conn.open str_conn
str_sql = "select * from students"
rs.open str_sql
Do While Not rs.eof
xxxss =" xxxss" + 1
xhxm(xxxss) = rs.fields("xuehao")&rs.fields("xingming")
rs.movenext
Loop
For i =" 0" To xxxss - 1
kcq(i) = True
Next i
End Sub
Private Sub cqxhxm_Timer() '决定抽取的学号姓名作为监票人
xskcqxhxm.Enabled = False
For i =" 0" To xxxss - 1
If xhxmbq.Caption =" xhxm(i)" Then kcq(i) = False
Next i
cqxhxm.Enabled = False
End Sub

当主持人点击按钮“生成抽号”后,下方的标签会显示可抽取的学号姓名,一定时间后显示被抽取作为监票人的学号姓名。
'xxxss:学校学生数,kcq:可抽取
'xhxm:学号姓名,kcq:可抽取
Dim xxxss As Integer
Dim xhxm(3000) As String
Dim kcq(3000) As Boolean
'cq_Click:启用两个定时器
Private Sub cq_Click()
cqxhxm.Enabled = True
xskcqxhxm.Enabled = True
End Sub
Private Sub cz_Click() '初始化数组kcq,使每个元素数据都处于可显示状态
For i =" 0" To xxxss - 1
kcq(i) = True '①
Next i
End Sub
Private Sub xskcqxhxm_Timer() '若数组kcq第x个元素处于可抽取状态,则显示数组xhxm第x个元素
x =" Int(Rnd" * xxxss)
If kcq(x) Then xhxmbq.text = kcq(x) '②
End Sub
Private Sub Form_Load() '从数据库中提取需要的学号姓名相关数据并初始化数组kcq
Randomize
xxxss = 0
Dim conn As New ADODB.Connection,rs As New ADODB.Recordset
Dim str_conn as String,str_sql As String
str_conn = "driver="Microsoft" access driver(*.mdb);DBQ="&app.path&"\school.mdb";
conn.open str_conn
str_sql = "select * from students"
rs.open str_sql
Do While Not rs.eof
xxxss =" xxxss" + 1
xhxm(xxxss) = rs.fields("xuehao")&rs.fields("xingming")
rs.movenext
Loop
For i =" 0" To xxxss - 1
kcq(i) = True
Next i
End Sub
Private Sub cqxhxm_Timer() '决定抽取的学号姓名作为监票人
xskcqxhxm.Enabled = False
For i =" 0" To xxxss - 1
If xhxmbq.Caption =" xhxm(i)" Then kcq(i) = False
Next i
cqxhxm.Enabled = False
End Sub
15.
下列VB程序运行时,单击命令按钮Command1后,若在文本框中输入10,则标签Label1显示的内容是______
Private Sub Command1_Click()
Dim sjzs As Integer
Dim rjzs As String
sjzs = Val(Text1.Text)
rjzs = ""
Do While Int(sjzs / 2) > 0
rjzs =" Str(sjzs" Mod 2) + rjzs
sjzs =" Int(sjzs" / 2)
Loop
Label1.Caption = rjzs
End Sub
Private Sub Command1_Click()
Dim sjzs As Integer
Dim rjzs As String
sjzs = Val(Text1.Text)
rjzs = ""
Do While Int(sjzs / 2) > 0
rjzs =" Str(sjzs" Mod 2) + rjzs
sjzs =" Int(sjzs" / 2)
Loop
Label1.Caption = rjzs
End Sub
16.
自幂数是指一个 n 位数,它的每个位上的数字的 n 次幂之和等于它本身。使用枚举法寻找5位数以内的自幂数算法如下:
(1)使用循环列出1到99999中的每一个数zmsknz
(2)通过自定义函数ddknzms拆解得到每个数中的每位数上的数码及它们对应的n次幂之和
(3)将zmsknz与ddknzms进行比较,若相等则说明是自幂数,可将其加入列表。
编写VB程序,使用枚举法得到5位数以内的自幂数,程序设计界面如图所示:

请根据算法及相应注释将下面的程序补充完整:
Function ddknzms(zmsknz As Long) As Long '得到可能的自幂数
Dim zmsknz_str As String '字符串类型自幂数可能值
Dim zmsknz_length As Integer, zmswsxh As Integer '字符串类型自幂数可能值字符个数
zmsknz_str = Trim(Str(zmsknz))
zmsknz_length = Len(zmsknz_str)
For zmswsxh =" 1" To zmsknz_length
ddknzms =" ddknzms" + Val(Mid(zmsknz_str, zmswsxh, 1)) ^ ①
Next zmswsxh
End Function
Private Sub Command1_Click()
Const ZMSWS = 5
Dim zmsknz As Long, zmsknz_zz As Long
zmsknz_zz =" 10" ^ ZMSWS - 1
For zmsknz =" 1" To zmsknz_zz
If ② Then List1.AddItem (Str(zmsknz))
Next zmsknz
End Sub
(1)使用循环列出1到99999中的每一个数zmsknz
(2)通过自定义函数ddknzms拆解得到每个数中的每位数上的数码及它们对应的n次幂之和
(3)将zmsknz与ddknzms进行比较,若相等则说明是自幂数,可将其加入列表。
编写VB程序,使用枚举法得到5位数以内的自幂数,程序设计界面如图所示:

请根据算法及相应注释将下面的程序补充完整:
Function ddknzms(zmsknz As Long) As Long '得到可能的自幂数
Dim zmsknz_str As String '字符串类型自幂数可能值
Dim zmsknz_length As Integer, zmswsxh As Integer '字符串类型自幂数可能值字符个数
zmsknz_str = Trim(Str(zmsknz))
zmsknz_length = Len(zmsknz_str)
For zmswsxh =" 1" To zmsknz_length
ddknzms =" ddknzms" + Val(Mid(zmsknz_str, zmswsxh, 1)) ^ ①
Next zmswsxh
End Function
Private Sub Command1_Click()
Const ZMSWS = 5
Dim zmsknz As Long, zmsknz_zz As Long
zmsknz_zz =" 10" ^ ZMSWS - 1
For zmsknz =" 1" To zmsknz_zz
If ② Then List1.AddItem (Str(zmsknz))
Next zmsknz
End Sub
17.
某地区公共自行车收费信息如下:“60分钟内免费;60分钟以上至120分钟(含),收费1元;120分钟以上至180分钟(含),收费2元;租用超过180分钟(含)以上的时间,按每小时3元计费(不足一小时的按一小时计)”。现按要求编写VB程序,界面如1图所示,程序功能如下:在文本框Text1中输入租车时间,单击“计费”按钮Command1,在标签Label5中输出对应的租车费用。

(1)在应用程序界面设计时,为添加“计费”按钮,应使用2图所示的“控件工具箱”中的__________(请填写相应编号),并在3图所示的“属性窗口”中,将____________属性值设置为“计费”。

(2)请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim zysj As Single, zyfy As Single ‘zysj:租用时间,zyfy:租用费用
zysj = Val(Text1.Text)
If zysj <=" 60" Then
zyfy = 0
ElseIf zysj <=" 120" Then
zyfy = 1
ElseIf zysj <=" 180" Then
_______
ElseIf zysj Mod 60 =" 0" Then
zyfy =" (zysj" - 180) / 60 * 3 + 3
Else
zyfy =" (Int((zysj" - 180) / 60) + 1) * 3 + 3
End If
Label5.Caption = Str(zyfy)
End Sub

(1)在应用程序界面设计时,为添加“计费”按钮,应使用2图所示的“控件工具箱”中的__________(请填写相应编号),并在3图所示的“属性窗口”中,将____________属性值设置为“计费”。

(2)请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim zysj As Single, zyfy As Single ‘zysj:租用时间,zyfy:租用费用
zysj = Val(Text1.Text)
If zysj <=" 60" Then
zyfy = 0
ElseIf zysj <=" 120" Then
zyfy = 1
ElseIf zysj <=" 180" Then
_______
ElseIf zysj Mod 60 =" 0" Then
zyfy =" (zysj" - 180) / 60 * 3 + 3
Else
zyfy =" (Int((zysj" - 180) / 60) + 1) * 3 + 3
End If
Label5.Caption = Str(zyfy)
End Sub
18.
小高一家准备出行远游,由小高负责对打算出游城市查询天气状况并决定是否出行。请根据图示回答问题。

(1)若要使表格标题合并居中并设置相应的字号,则应使用单元格格式对话窗口中的_________功能达到相应目的。
(2)表格中的日期可以使用excel提供的______________功能完成输入。
(3)选中G3单元格,输入Max(B3:B12),按回车后,G4单元格将显示___________。
小高选中A2单元格后,按住Ctrl键不放,鼠标依次拖曳选中A2:A12,C2:C12单元格,然(4)后开始建立图表,在选择择线图类型之后出现3图所示情况,请分析该问题出现_____________阶段(填:选择图表类型/选择图表源数据/设置图表选项)。


(1)若要使表格标题合并居中并设置相应的字号,则应使用单元格格式对话窗口中的_________功能达到相应目的。
(2)表格中的日期可以使用excel提供的______________功能完成输入。
(3)选中G3单元格,输入Max(B3:B12),按回车后,G4单元格将显示___________。
小高选中A2单元格后,按住Ctrl键不放,鼠标依次拖曳选中A2:A12,C2:C12单元格,然(4)后开始建立图表,在选择择线图类型之后出现3图所示情况,请分析该问题出现_____________阶段(填:选择图表类型/选择图表源数据/设置图表选项)。

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