1.选择题- (共14题)
1.
某中央处理器参数如下表所示:
以下说法错误的是:( )
基本参数 | 适用类型:台式机 CPU系列:酷睿i5 4570 包装形式:盒装 |
CPU频率 | CPU主频:3.2GHz 动态超频最高频率:3.6GHz 外频:100MHz |
CPU插槽 | 插槽类型:LGA 1150 针脚数目:1150pin |
CPU内核 | 核心代号:haswell 核心数量:四核心 线程数:四线程 制作工艺:22纳米 热设计功耗(TDP):84W |
CPU缓存 | 三级缓存:6MB |
技术参数 | 内存控制器:双通道DDR3 1333/1600 64位处理器:是 Turbo Boost技术:支持 |
以下说法错误的是:( )
A.CPU频率为3.2GHz体现了计算机运算速度快这一基本特征 |
B.“制作工艺22纳米”说明CPU的制造技术属于微电子技术 |
C.“四核心”表示这款CPU可以拆分为四个后分别使用 |
D.“酷睿i5 4570”指的是这款CPU的型号 |
2.
某网站对用户搜索的笔记本型号进行分析,被搜索的次数越多表明这款笔记本被关注越多,被搜索的次数决定了其排行榜中的位置,如图所示,这种排名采用的因特网信息资源评价方式是:( )


A.专家推荐 | B.统计评价 | C.核心刊物评价 | D.个人推荐 |
3.
2015年春节,全国观众在喜迎春节看春晚的同时,通过“微信”及时参与到春晚活动中,与春晚直播现场互动,这说明“微信”主要是一种:( )
A.信息的存储方式 | B.信息的表达技术 |
C.信息的编码标准 | D.信息的转换技术 |
5.
小陈申请了一个网银账号,登录网银账号时,要输入密码,一般情况下,如果密码输入的错误次数超过3次,那么当日网银账号将被锁定,次日自动解锁。下图是登陆网银的流程图,小陈不小心输入密码错误了2次,第3次才正确,那么她的操作流程应该是:( )


A.①![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
B.①![]() ![]() ![]() ![]() ![]() ![]() ![]() |
C.①![]() ![]() ![]() ![]() |
D.①![]() ![]() ![]() ![]() ![]() |
6.
有100个大小形状一样的透明玻璃球,其中有1个玻璃球的重量轻于其他99个玻璃球,小明想利用一台无砝码的天平,运用合理的算法保证一定能找出这颗轻玻璃球的最少的次数为:()
A.100 | B.10 | C.8 | D.6 |
7.
下列VB程序中,f是一个递归函数:
Private Sub Command1_Click()
Dim y As Integer
y = Val(Text1.Text)
Label1.Caption = Str(f(y))
End Sub
Function f(n As Integer) As Integer
If (n =" 1)" Or (n =" 2)" Then
f = 1
Else
f =" f(n" - 1) + f(n - 2)
End If
End Function
程序运行时,在文本框中输入8,单击命令按钮Command1后,Label1中显示的内容是:()
Private Sub Command1_Click()
Dim y As Integer
y = Val(Text1.Text)
Label1.Caption = Str(f(y))
End Sub
Function f(n As Integer) As Integer
If (n =" 1)" Or (n =" 2)" Then
f = 1
Else
f =" f(n" - 1) + f(n - 2)
End If
End Function
程序运行时,在文本框中输入8,单击命令按钮Command1后,Label1中显示的内容是:()
A.5 | B.8 | C.13 | D.21 |
9.
如图所示的VB程序中,输入以下程序代码,运行后单击命令按钮Command1,出现错误的提示图是:()

Private Sub Command1_Click()
Dim a(1 To 4) As Integer
Dim i As Integer
a(1) = 1
For i =" 2" To 4
a(i) =" 2" * a(i - 1) + 1
Next i
List1.AddItem Str(a(i))
End Sub

Private Sub Command1_Click()
Dim a(1 To 4) As Integer
Dim i As Integer
a(1) = 1
For i =" 2" To 4
a(i) =" 2" * a(i - 1) + 1
Next i
List1.AddItem Str(a(i))
End Sub
A.![]() |
B.![]() |
C.![]() |
D.![]() |
10.
“Parkour”一词翻译成中文为“跑酷”,《地铁冲浪》就是一款流行的移动设备跑酷游戏,其软件开发团队在制作前先调查研究了用户对该产品的需求情况,这属于多媒体作品制作过程:( )
A.应用需求分析 | B.系统结构设计 |
C.创作需求分析 | D.功能模块设计 |
11.
周敏同学利用音频处理软件对一段20秒的音频文件“伴奏.wav”进行如下操作:
①增加前10秒音频音量2dB
②将右声道设置为静音
③删除声音后5秒的音频
④保存处理后的音频文件
则处理后的音频文件与原文件的存储容量之比约为:( )
①增加前10秒音频音量2dB
②将右声道设置为静音
③删除声音后5秒的音频
④保存处理后的音频文件
则处理后的音频文件与原文件的存储容量之比约为:( )
A.1:1 | B.1:2 | C.2:3 | D.3:4 |
12.
将图像a.bmp、b.bmp加工处理后得到c.bmp,如图所示:
则下列说法正确的是:( )
![]() | ![]() | ![]() |
1024*768*24b a.bmp | 800*600*24b b.bmp | 1024*768*24b c.bmp |
则下列说法正确的是:( )
A.图像c.bmp的像素个数为a.bmp与b.bmp的像素个数之和 |
B.文件c.bmp的存储容量为a.bmp与b.bmp的存储容量之和 |
C.图像b.bmp与c.bmp的像素个数相等 |
D.文件a.bmp与c.bmp的存储容量一样大 |
13.
下表中能用软件打开对应文件并进行编辑的是:()
软件 | ![]() | ![]() | ![]() | ![]() | ![]() |
PhotoShop CS5 | Word2010 | Access2010 | 会声会影 | FlashCS3 | |
对应文件 | ![]() | ![]() | ![]() | ![]() | ![]() |
① | ② | ③ | ④ | ⑤ |
A.②③④ | B.①③④ | C.②③⑤ | D.①④⑤ |
14.
小乐在使用Word2010软件的修订状态下编辑文档,部分界面如下图所示:

对于带框部分的文字,下列说法正确的是:( )

对于带框部分的文字,下列说法正确的是:( )
A.修订前的原文为:江山如画,望中烟树历历 |
B.修订前的原文为:江山如画,望中烟树 |
C.接受该处所有修订后,内容为:江山如画,望中烟树历历 |
D.接受该处所有修订后,内容为:江山如画,望中烟树沥沥 |
2.填空题- (共3题)
15.
辗转相除法,又名欧几里德算法(Euclidean algorithm),是求两个正整数最大公约数的算法。它是已知最古老的算法之一,其可追溯至3000年前。用辗转相除法来得一个分数的约分后的最简形式的算法如下:

第一步:设两数为a、b,且令a>b;
第二步:a÷b,令r为所得余数,若r=0,算法结束,b 即为最大公约数;若r>0则a←b,b←r,并返回第二步;
第三步:
即为
约分后的最简形式。
编写VB程序,程序运行界面如第6题图1所示,请根据算法将下列程序补充完整。
Private Sub Command1_Click()
Dim a As Integer, b As Integer, r As Integer 'a、b为分子和分母,r为最大公约数
a = Val(Text1.Text)
b = Val(Text2.Text)
If b =" 0" Then c = MsgBox("分母不能为0"): Exit Sub
'如果分母为0,则提示“分母不能为0”并退出该过程
r = ① (3分)
Text3.Text =" Str(a" / r)
Text4.Text =" Str(b" / r)
End Sub
Function gys(ByVal m As Integer, ByVal n As Integer) As Integer
'gys函数用于求最大公约数
Dim s As Integer
If m < n Then
t =" m:" m =" n:" n = t
End If
Do While n <> 0
s =" m" Mod n
m = n
n = s
Loop
② (3分)
End Function

第一步:设两数为a、b,且令a>b;
第二步:a÷b,令r为所得余数,若r=0,算法结束,b 即为最大公约数;若r>0则a←b,b←r,并返回第二步;
第三步:


编写VB程序,程序运行界面如第6题图1所示,请根据算法将下列程序补充完整。
Private Sub Command1_Click()
Dim a As Integer, b As Integer, r As Integer 'a、b为分子和分母,r为最大公约数
a = Val(Text1.Text)
b = Val(Text2.Text)
If b =" 0" Then c = MsgBox("分母不能为0"): Exit Sub
'如果分母为0,则提示“分母不能为0”并退出该过程
r = ① (3分)
Text3.Text =" Str(a" / r)
Text4.Text =" Str(b" / r)
End Sub
Function gys(ByVal m As Integer, ByVal n As Integer) As Integer
'gys函数用于求最大公约数
Dim s As Integer
If m < n Then
t =" m:" m =" n:" n = t
End If
Do While n <> 0
s =" m" Mod n
m = n
n = s
Loop
② (3分)
End Function
16.
下列VB程序运行时,单击命令按钮Command1后,文本框Text1中显示的内容是____________________。(2分)
Private Sub Command1_Click()
Dim i As Integer, c As Integer, n As Integer
c =" 0:" n = 10
For i =" 1" To 10 Step 2
If n Mod i =" 0" Then
c =" c" * i
Else
c =" c" + i
End If
Next i
Text1.Text = Str(c)
End Sub
Private Sub Command1_Click()
Dim i As Integer, c As Integer, n As Integer
c =" 0:" n = 10
For i =" 1" To 10 Step 2
If n Mod i =" 0" Then
c =" c" * i
Else
c =" c" + i
End If
Next i
Text1.Text = Str(c)
End Sub
17.
小明利用所学的知识帮助语文老师设计一个语文学考等级查询系统,要求如下:输入某个等级,就能查出该等级的所有学生学号和姓名,并统计出该等级学生的人数,以便语文老师方便了解学生的学考情况。语文学考成绩分A、B、C、D、E五个等级,学生信息存储在数据库文件“stugrade.accdb”的数据表“Chinese”中,数据表“Chinese”的结构如图1所示。

VB程序运行界面如图2所示,在文本框Text1中输入查询的等级,单击“查询”按钮Command1,在列表框List1中显示所有该等级的学生学号和姓名,并按照学号从小到大排序,并在标签Label2处显示学生的人数,如果人数为0,则在列表框中显示“没有该等级的学生”。按此要求编写程序如下,但加框处代码有错误,请改正。

Private Sub Command1_Click()
Dim stuna(1 To 100) As String '存放学生姓名的数组定义为stuna
Dim stunum(1 To 100) As String '存放学生学号的数组定义为stunum
Dim i As Integer, j As Integer, n As Integer
Dim t As String
'连接数据库
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String
cn.ConnectionString = "Provider="Microsoft.ACE.OLEDB.12.0;Data" Source=" + App.Path + "\stugrade.accdb"
cn.Open
strSQL = "select * from Chinese where 语文等级='" + Text1.Text + "'"
Set rs.ActiveConnection = cn
rs.Open strSQL
n = 0
Do While Not rs.EOF
n =" n" + 1
stuna(n) = rs.Fields("姓名").Value
stunum(n) = rs.Fields("学号").Value
rs.NextMove '①
Loop
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
List1.Clear '清除列表框
If n =" 0" Then
List1.AddItem "没有该等级的学生"
Else
For i =" 1" To n - 1 '按姓名排序
For j =" n" To i + 1 Step -1
If stuna(j) < stuna(j - 1) Then '②
t =" stunum(j):" stunum(j) =" stunum(j" - 1): stunum(j - 1) = t
t =" stuna(j):" stuna(j) =" stuna(j" - 1): stuna(j - 1) = t
End If
Next j
Next i
For i =" 1" To n
List1.AddItem stunum(i) + " " + stuna(i)
Next i
Label2.Caption = "该等级的学生共有" + Str(n) + "名"
End If
End Sub
(1)加框处①有错,应改为____________________________。(3分)
(2)加框处②有错,应改为____________________________。(3分)

VB程序运行界面如图2所示,在文本框Text1中输入查询的等级,单击“查询”按钮Command1,在列表框List1中显示所有该等级的学生学号和姓名,并按照学号从小到大排序,并在标签Label2处显示学生的人数,如果人数为0,则在列表框中显示“没有该等级的学生”。按此要求编写程序如下,但加框处代码有错误,请改正。

Private Sub Command1_Click()
Dim stuna(1 To 100) As String '存放学生姓名的数组定义为stuna
Dim stunum(1 To 100) As String '存放学生学号的数组定义为stunum
Dim i As Integer, j As Integer, n As Integer
Dim t As String
'连接数据库
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String
cn.ConnectionString = "Provider="Microsoft.ACE.OLEDB.12.0;Data" Source=" + App.Path + "\stugrade.accdb"
cn.Open
strSQL = "select * from Chinese where 语文等级='" + Text1.Text + "'"
Set rs.ActiveConnection = cn
rs.Open strSQL
n = 0
Do While Not rs.EOF
n =" n" + 1
stuna(n) = rs.Fields("姓名").Value
stunum(n) = rs.Fields("学号").Value
rs.NextMove '①
Loop
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
List1.Clear '清除列表框
If n =" 0" Then
List1.AddItem "没有该等级的学生"
Else
For i =" 1" To n - 1 '按姓名排序
For j =" n" To i + 1 Step -1
If stuna(j) < stuna(j - 1) Then '②
t =" stunum(j):" stunum(j) =" stunum(j" - 1): stunum(j - 1) = t
t =" stuna(j):" stuna(j) =" stuna(j" - 1): stuna(j - 1) = t
End If
Next j
Next i
For i =" 1" To n
List1.AddItem stunum(i) + " " + stuna(i)
Next i
Label2.Caption = "该等级的学生共有" + Str(n) + "名"
End If
End Sub
(1)加框处①有错,应改为____________________________。(3分)
(2)加框处②有错,应改为____________________________。(3分)
试卷分析
-
【1】题量占比
选择题:(14道)
填空题:(3道)
-
【2】:难度分析
1星难题:0
2星难题:0
3星难题:0
4星难题:0
5星难题:0
6星难题:0
7星难题:0
8星难题:0
9星难题:17