1.选择题- (共14题)
1.
李明同学发现他的QQ农场内有很多蚊子，于是他拿起“蚊子拍”工具去“拍”蚊子，蚊子马上消失，同时人物经验值立即增加了2点，这主要体现多媒体技术的（ ）
| A．集成性 | B．交互性 | C．实时性 | D．共享性 |
2.
第1题图所示，有一幅8×8像素的黑白图像，如果该图像的每一行按照从左到右编码，且第一行编码为10010010，那么第三行的编码的16进制表示为（ ）
| A．51H | B．D5 H | C．AE H | D．52 H |
5.
小金编写了一个统计随机数分布的VB程序，部分程序如下所示，在调试程序的时候出现如右图所示的错误信息：
n =0 : m = 0
For i =1 To 100
If Rnd > 0.5 Then
n = n + 1
Else
m = m + 1
Next i
……
小金仔细分析该程序段后，发现其中缺少了（ ）
n =0 : m = 0
For i =1 To 100
If Rnd > 0.5 Then
n = n + 1
Else
m = m + 1
Next i
……
小金仔细分析该程序段后，发现其中缺少了（ ）
| A．For | B．End If | C．Next | D．If |
6.
有6位学生的身高分别为165，170，172，175，176，180。其中，小民的身高为175，若老师采用对分查找法想要找到小民，则需要找多少次才能够找到（ ）
| A．2 | B．3 | C．4 | D．5 |
7.
实现计算器上xy运算处理的算法部分流程图如图所示：
下列说法正确的是（ ）
下列说法正确的是（ ）
| A．框图①中该填入的是f←x*j |
| B．框图①中该填入的是f←f*j |
| C．j←j+1被执行了x次 |
| D．j←j+1被执行了y次 |
9.
某素材库中4个未经压缩的图像文件相关信息如图所示：
关于这4幅图像，下列说法正确的是（ ）
 |  |  |  |
| 270×185×16 | 540×370×16 | 540×370×16 | 540×370×16 |
| 1.bmp | 2.bmp | 3.bmp | 4.bmp |
关于这4幅图像，下列说法正确的是（ ）
| A．将2.bmp图像进行一次垂直翻转即得到3.bmp图像 |
| B．将2.bmp图像进行一次水平翻转即得到4.bmp图像 |
| C．2.bmp文件的存储容量约为1.bmp文件的4倍 |
| D．4个图像文件的存储容量一样大 |
10.
某用户使用Word软件编辑文档，部分界面如图所示：
下列说法正确的是（）
下列说法正确的是（）
| A．共有3处批注 |
| B．有2个用户添加了批注 |
| C．用户微软用户1添加批注的对象是“来源‘浙江在线’” |
| D．用户微软用户2添加批注的内容为“不限选考科目占54%” |
11.
校讯通中某班学生信息用Access打开“学生数据”数据表后如图所示，下列描述中正确的是（ ）
| A．“家长号码”字段的类型应改为数值型 |
| B．该数据表共有52条记录，至少6个字段 |
| C．在如图状态添加一条记录后，当前记录号为2 |
| D．删除“班级名称”字段后，记录数也会减少一条 |
12.
用UltraEdit软件观察字符内码，结果如图所示：
由图可知，“2015，高考加油！”所占字节数及“高”的内码分别是（ ）
由图可知，“2015，高考加油！”所占字节数及“高”的内码分别是（ ）
| A．14，B8DF | B．15，ACB8 | C．16，B8DF | D．16，ACB8 |
13.
小张用GoldWave软件打开了一个声音文件，其状态栏界面如图所示，下列说法正确的是（ ）
| A．该声音文件采样频率为44100kHz | B．这是一个MP3格式音频 |
| C．这是一个单声道的音频 | D．这是一个WAVE格式音频 |
14.
某同学要制作一段社会实践活动的影片，用会声会影软件编辑采集到的视频，在两段活动视频中间插入一个“百叶窗”过渡效果，制作时包括以下操作步骤：
①将素材库中的两个视频文件拖进故事板
②启动会声会影软件并新建一个项目
③创建视频文件，保存为VCD格式
④选择效果的“百叶窗”，将效果拖入到两个视频中间
⑤切换到“效果步骤”
正确的排序是（ ）
①将素材库中的两个视频文件拖进故事板
②启动会声会影软件并新建一个项目
③创建视频文件，保存为VCD格式
④选择效果的“百叶窗”，将效果拖入到两个视频中间
⑤切换到“效果步骤”
正确的排序是（ ）
| A．②①⑤④③ | B．②①④③⑤ | C．⑤②①③④ | D．①⑤④③② |
2.填空题- (共4题)
15.
素数：只能被1和它本身整除的自然数。要求编写VB程序找出任意两个整数之间中所有的素数及个数，程序运行界面如下图所示。
请根据算法将下列程序补充完整。
Function prime（a As Integer） As Boolean
Dim j As Integer
prime = True
j = 2
Do While prime And j <=" a" \ 2
If a Mod j =" 0" Then
prime = False
Exit Do
End If
①
Loop
End Function
Private Sub Command1_Click（ ）
Dim i As Integer, a As Integer, b As Integer
Dim count As Integer
a = Val（Text1.Text）
b = Val（Text2.Text）
For i =" a" To b
If ② =" True" Then
List1.AddItem Str（i）
count =" count" + 1
End If
Next i
Label1.Caption = "素数共有" + Str（count） + "个!"
End Sub
请根据算法将下列程序补充完整。
Function prime（a As Integer） As Boolean
Dim j As Integer
prime = True
j = 2
Do While prime And j <=" a" \ 2
If a Mod j =" 0" Then
prime = False
Exit Do
End If
①
Loop
End Function
Private Sub Command1_Click（ ）
Dim i As Integer, a As Integer, b As Integer
Dim count As Integer
a = Val（Text1.Text）
b = Val（Text2.Text）
For i =" a" To b
If ② =" True" Then
List1.AddItem Str（i）
count =" count" + 1
End If
Next i
Label1.Caption = "素数共有" + Str（count） + "个!"
End Sub
16.
某商场元月举行VIP客户积分换购活动，VIP客户根据卡内积分多少可换取不同额度的代金券。假设VIP客户共有n名，VIP卡内积分存放在数据库“customer.accdb”的Integral表中，换购活动的VB程序代码如下，程序运行时界面如图所示。工作人员在文本框Text1中输入VIP卡号后，单击“换购”按钮Command1，在文本框Text2中输出VIP客户的积分数，在标签Label3中显示可以换购的代金券额度,积分清零。按此要求编写程序如下, 但加框处代码有错,请改正。
Dim ID（ ） As String '用于存放客户卡号
Dim total（ ） As Long '用于存放积分数
Dim sc As Long 'VIP客户人数
Dim jf As Long '积分数
Private Sub Command1_Click（ ）
Dim k As String '客户卡号
Dim q As Long '代金券额度
Dim i As Long
k = Text1.Text
For i =" 1" To sc ’顺序查找
If ID（i） =" k" Then
jf = total（i）
cash（jf） = q ’①
Exit For
End If
Text2.Text = Str（jf）
Label3.Caption = “您可换购的代金券总额为：”+ Str（q） + “元”
Next i
End If
End Sub
' cash函数用于计算VIP客户可换购的代金券额度
Function cash（jf As Long） As Long
If jf >=" 2000" And jf <=" 20000" Then
Cash = jf\2000*10
ElseIf jf > 20000 And jf <=" 50000" Then
Cash = jf\2000*11
ElseIf jf > 50000 And jf <=" 100000" Then
Cash = jf\2000*12
ElseIf jf > 100000 And jf <=" 150000" Then
Cash = jf\2000*13
Else jf > 150000 Then ’ ②
Cash = jf\2000*14
End If
End Function
Private Sub Form_Load（）
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
Dim intSQL As Long
conn.ConnectionString = "Provider="Microsoft.ACE.OLEDB.12.0;Data" Source=" + App.Path + "\ customer.accdb"
conn.Open
intSQL = "SELECT score FROM Integral"
Set rs.ActiveConnection = conn
rs.CursorType = adOpenStatic
rs.Open intSQL
sc = 0
Do While Not rs.EOF
sc =" sc" + 1
total（sc） = rs.Fields（"score"）
rs.MoveNext
Loop
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub
（1）加框处①有错，应改为_____________________。
（2）加框处②有错，应改为_____________________。
Dim ID（ ） As String '用于存放客户卡号
Dim total（ ） As Long '用于存放积分数
Dim sc As Long 'VIP客户人数
Dim jf As Long '积分数
Private Sub Command1_Click（ ）
Dim k As String '客户卡号
Dim q As Long '代金券额度
Dim i As Long
k = Text1.Text
For i =" 1" To sc ’顺序查找
If ID（i） =" k" Then
jf = total（i）
cash（jf） = q ’①
Exit For
End If
Text2.Text = Str（jf）
Label3.Caption = “您可换购的代金券总额为：”+ Str（q） + “元”
Next i
End If
End Sub
' cash函数用于计算VIP客户可换购的代金券额度
Function cash（jf As Long） As Long
If jf >=" 2000" And jf <=" 20000" Then
Cash = jf\2000*10
ElseIf jf > 20000 And jf <=" 50000" Then
Cash = jf\2000*11
ElseIf jf > 50000 And jf <=" 100000" Then
Cash = jf\2000*12
ElseIf jf > 100000 And jf <=" 150000" Then
Cash = jf\2000*13
Else jf > 150000 Then ’ ②
Cash = jf\2000*14
End If
End Function
Private Sub Form_Load（）
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
Dim intSQL As Long
conn.ConnectionString = "Provider="Microsoft.ACE.OLEDB.12.0;Data" Source=" + App.Path + "\ customer.accdb"
conn.Open
intSQL = "SELECT score FROM Integral"
Set rs.ActiveConnection = conn
rs.CursorType = adOpenStatic
rs.Open intSQL
sc = 0
Do While Not rs.EOF
sc =" sc" + 1
total（sc） = rs.Fields（"score"）
rs.MoveNext
Loop
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub
（1）加框处①有错，应改为_____________________。
（2）加框处②有错，应改为_____________________。
17.
下列VB程序运行时，在文本框Text1中输入“h”后，单击命令按钮Command1后，标签框Label1中显示的内容是____ ____。
Private Sub Command1_Click（）
Dim a As String
a = Text1.Text
a = Chr（Asc（a） - 32）
Label1.Caption = a
End Sub
Private Sub Command1_Click（）
Dim a As String
a = Text1.Text
a = Chr（Asc（a） - 32）
Label1.Caption = a
End Sub
试卷分析
-
【1】题量占比
选择题:(14道)
填空题:(4道)
-
【2】：难度分析
1星难题：0
2星难题：0
3星难题：0
4星难题：0
5星难题：0
6星难题：0
7星难题：0
8星难题：0
9星难题：18