2011年春季江苏省二级VB考试真题与答案
2011年春季江苏省二级VB考试真题与答案
第一部分计算机基础知识
1．下列有关通信技术的叙述中，错误的是___(1)___ 。
A． 无论是模拟通信还是数字通信，目前都是通过载波技术实现远距离的信息传输
B． 多路复用技术可以降低信息传输的成本，常用的多路复用技术有TDM和FDM
C． 卫星通信属于微波通信，它是微波接力通信技术和空间技术相结合的产物
D． 目前3G移动通信有多种技术标准，我国三大电信运营商均采用同一标准
2．使用存储器存储二进位信息时，存储容量是一项很重要的性能指标。存储容量的单位
有多种，下面不是存储容量单位的是___(2)___ 。
A． TB
B． XB
C． GB
D． MB
3．设有补码表示的两个单字节带符号整数a=01001110和b=01001111。则a-b的结果用补码表示为___(3)___ 。
A． 11111111
B． 10011101
C． 00111111
D． 10111111
4． 下列有关PC机主板上BIOS和CMOS的叙述中，错误的是___(4)___ 。
A． BIOS芯片是一块闪烁存储器，其存储的信息关机后不会丢失
B． BIOS中包含加电自检程序、系统自举程序等
C． CMOS芯片属于易失性存储器，它使用电池供电
D． CMOS中存放着与硬件相关的一些配置信息，以及CMOS设置程序
5． 下列有关PC机中央处理器(CPU)和内存(内存条)的叙述中，错误的是___(5)___ 。
A． 目前PC机所使用的Pentium和Core 2微处理器的指令系统有数百条不同的指令
B． 所谓双核CPU或四核CPU，是指CPU由两个或四个芯片组成
C． DDR内存条、DDR2内存条在物理结构上有所不同，例如它们的引脚数目不同
D． 通常台式机中的内存条与笔记本电脑中的内存条不同，不能互换
6． 下列有关PC机I／O总线与I／O接口的叙述中，正确的是___(6)___ 。
A．PC机中串行总线的数据传输速率总是低于并行总线的数据传输速率
B． SATA接口主要用于连接光驱，不能连接硬盘
c． 通过USB集线器，一个USB接口理论上可以连接127个设备
D． IEEEl394接口的连接器与USB连接器完全相同，均有6根连接线
7． 蓝光光盘(BD)是全高清影片的理想存储介质，其单层盘片的存储容量大约为___(7)___ 。
A．4.7GB
B. 8.5GB
C．17GB
D．25GB
8． 下列有关PC机常用I／O设备(性能)的叙述中，错误的是___(8)___。
A． 通过扫描仪扫描得到的图像数据可以保存为多种不同的文件格式，例如JPEG、
TIF等
B． 目前数码相机的成像芯片均为CCD类型，存储卡均为SD卡
C． 刷新速率是显示器的主要性能参数之一，目前PC显示器的刷新速率一般在60Hz
以上
D． 从彩色图像输出来看，目前喷墨打印机比激光打印机有性价比优势
9． 下列有关计算机软件的叙述中，错误的是___(9)___ ·
A． 软件的主体是程序，单独的数据和文档资料不能称为软件
B． 软件受知识产权(版权)法的保护，用户购买软件后仅得到了使用权
C． 软件的版权所有者不一定是软件的作者(设计人员)
D． 共享软件允许用户对其进行修改，且可在修改后散发
10．PC机从硬盘启动Windows XP操作系统是一个比较复杂的过程·在这个过程中，它需
要经过以下这些步骤：
I．装入并执行引导程序
Ⅱ．读出主引导记录
Ⅲ．装入并执行操作系统
Ⅳ．加电自检
在上述步骤中，正确的工作顺序是___(10)___
A． I、Ⅱ、Ⅲ、Ⅳ
B． Ⅳ、I、lI、Ⅲ
C． Ⅳ、II、I、Ⅲ
D． Ⅳ、Ⅲ、II、I
11．下列有关算法和程序关系的叙述中，正确的是___(11)___
A． 算法必须使用程序设计语言进行描述
B． 算法与程序是一一对应的
C． 算法是程序的简化
D． 程序是算法的具体实现
12．采用ADSL方式接入因特网时，ADSLModem将电话线传输信道分为三个信息通道：
语音通道、上行数据通道、下行数据通道。下列有关这三个信息通道的叙述中，错误
的是 ___(12)___ ·
A． 语音通道的频带最宽、采用的频率最高，以保证电话通话的质量
B． 通常上行数据通道的数据传输速率低于下行数据通道的数据传输速率
C． ADSL的数据传输速率是根据线路情况自动调整的
D． 这三个信息通道可以同时工作，即可以同时传输信息(数据)
13．无线局域网是以太网与无线通信技术相结合的产物，其采用的网络协议主要是IEEE
制订的___(13)___ 。
A． IEEE 802．3
B． IEEE 802．11
C． IEEE 1394
D． IEEE 1394b
14.在因特网中目前主要采用IPv4协议，IP地址长度为32位，只有大约36亿个地址。新
的第6版IP协议(IPv6)已经将IP地址的长度扩展到___(14)___ 位，几乎可以不受限制地提供地址。
A． 48
B． 64
C． 128
D． 256 ．
15·因特网由大量的计算机和信息资源组成，它为网络用户提供了非常丰富的网络服务。
下列与www服务相关的叙述中，错误的是___(15)___ 。
A. WWW采
用客户机／服务器工作模式
B． 网页到网页的链接信息由URL指出
C． 浏览器是客户端应用程序
D． 所有的网页均是HTML文档
16·目前Windows操作系统支持多种不同语种的字符集，即使同一语种(例如汉语)也可
有多种字符集。下列字符集中，不包括“臺”、“灣”等繁体汉字的是___(16)___ 。
A． GBK
B． Big5
C． GB2312
D． GBl8030
17·下列与数字图恸图形相关的叙述中，错误的是___(17)___ 。
A· 彩色图像在数字化过程中需进行分色处理，然后对不同的基色进行取样和量化
B· 如果某RGB图像的像素深度为12，则可表示的颜色数目为2 C· 数码相机常用JPEG格式保存图像文件，该格式的图像大多采用有损压缩编码
D·’图形是计算机合成的图像，也称为矢量图形
18．文件的扩展名用于标记文件的类型，用户应该尽可能多地知晓各类文件的扩展名。下列文件中，属于数字视频的文件是___(18)___
A． ABC．RMVB
B． ABC．DLL
C． ABC．PDF
D． ABC．MIDI
19.下列几种类型的系统软件中，不属于计算机集成制造系统(CIMS)范畴(或者说,与CIMS无直接关系)的是___(19)___。
A． GIS
B． CAM
C． MRP
D． ERP
20．下列有关Microsoft PowerPoint 2003和Microsoft FrontPage 2003软件的叙述中，错误的是 20
。
A· 型用PowerPoint编辑演示文稿时，可以将每张幻灯片保存为JPEG图片
B· 利用PowerPoint编辑演示文稿时，可以录制声音 。
C· 利用FrontPage制作网页时，无法直接查看网页的HTML代码
D· 利用FrontPage制作网页时，背景图片可以设置为“水印”效果
第二部分 Visual Basic程序设计
一、选择题(用答题卡答题，答案依次填在21—30答题号内)
21．以下说法中，正确的是 21 。
A．属性是对象的特征，所有的对象都有相同的属性
B．属性值只能在属性窗口中设置
C．在程序中可以用赋值语句给对象的任何一个属性赋值
D．对象的运行时属性不出现在对象属性窗口中
22．下面4个语句中，错误的是___(22)___
A．N=InputBox(”输入N:”,,5)
B.InputBox(“输入N:”,,5)
C．MsgBox”请回答”
D．K=MsgBox(”请回答”)
23．若设X=1,Y=2，则不能在窗体上显示出”A=3”的语句是___(23)___
A．Print A=X+Y
B．Print ”A=”；X+Y
C．Print ”A=”+Str(X+Y)
D．Print ”A=”& X+Y
24．表达式InStr(4,”abcabca”，”c”)+Int(2.5)的值为___(24)___
A．7 B．8 C．5 D．9
25．以下有关数组的说
法中，错误的是___(25)___
A．用ReDim语句重新定义动态数组时，其下标的上下界可以使用赋了值的变量
B．用ReDim语句重新定义动态数组时，不能改变已经说明过的数组的数据类型
C．使用ReDim语句一定可以改变动态数组的上下界
D．定义数组时，数组维界值可以不是整数
26.以下有关过程的说法中，错误的是___(26)___ 。
A．不论在Function过程中是否给函数名赋过值，都会返回一个值
B．不能在Function与Sub过程内部，再定义Function或Sub过程
C．Function过程与Sub过程，都可以是无参过程
D．过程名可以和主调过程的局部变量同名
27.下列关于菜单的说法中，错误的是___(27)___。．
A．除了Click事件之外，菜单项不能响应其他事件
B．菜单的名称项(Name属性)不可缺省
C．只有当代码窗口为当前活动窗口时，才能打开菜单编辑器
D．菜单项的快捷键不能任意设置
28．设a=1，b=2，c=3，逻辑表达式ab Xor c的值是___(28)___
A．False B．-1 C．True D． 1
29.在窗体Form1中用“Public Sub Fun(x As Integer,Y As
Single)”定义过程Fun，在窗体Form2的某事件过程中定义了变量I和J均为Integer，若要在此过程中调用Form1中的Fun过程，则下列语句中正确的___(29)___
。
A．Call Fun(I，J)
B．Call Forml.Fun(I，J)
C．Fun I，(J)
D．Form1.Fun I，(J)
30．以下有关文件操作的说法中，正确的是 30 。
A．在某过程中用Open语句打开的文件，只能在这个过程中使用
B．不能用Output、Append方式打开一个不存在的顺序文件
C．在Input方式下，可以使用不同的文件号同时打开同一个文件
D．在不同的过程中，可以用同一个文件号同时打开不同的文件
二、填空题(请将答案填写在答题纸的相应答题号内，每个答案只占一行)
1·执行下列程序，单击按钮Command1，窗体上显示的第一行内容是___(1)___,第二行是___(2)___，第三行内容是___(3)___
。
Option Explicit
Private Sub Command1_Click()
Dim a As Integer,b As Integer
a=4
b=3
Do Until a>10
b=b／2
Do Until b>10
a=(a+b)\2+b
b=b+5
Print a,b
Loop
a=a-3
Loop
End Sub
2.执行下面程序，当单击Cmd1时，在窗体上显示的第一行内容是___(4)___第二行的内容是___(5)___，第四行的内容是___(6)___
。
Option Explicit
Private Sub Cmd1_Click()
Dim a As Integer,b As Integer
a=1
b=2
Print fun(2*b，fun(a,(b)))
Print a;b
End Sub
Private Function fu
n(x As Integer,y As Integer) As Integer
x=x+2
y=x-y+3
fun=x+y
Print fun
End Function
3．执行下面的程序，单击CmdRun后，数组元素a(1，2)的值是___(7)___,a(2,1)的值是
___(8)__，a(3，2)的值是___(9)___
Option Explicit
Option Base 1
Private Sub CmdRun_Click()
Dim A(3，3)As Integer,i As Integer,j As Integer,k As Integer,n As
Integer
n=3
i=1：j=n
A(i，j)=1
For k=2 To n*n
If i+1>n Then
i=n-j+2：j=1
ElseIf i+1<=n And j+1>n Then
j=j-i：i=1
Else
i=i+1：j=j+1
End If
A(i,j)=k
Next k
For i=1 To n
For j=1 To n
Print A(i，j);
Next J
Print
Next i
End Sub
4．运行程序，在文本框Text1中输入用空格分隔的4位二进制数1001、0101和0110。单击“处理”按钮，在多行文本框Text2中第一行显示___(10)___，第二行显示___(11)___
，第三行显示___(12)___
Option Explicit
Private Sub Cmd1_Click0
Dim S(3) As String，n As Integer
Dim i As Integer,k As Integer
k=1
For i=1 T0 3
S(i)=Mid(Text1，k，4)
k=k+5
Call Transform(n，S(i))
Text2=Text2 & n & vbCrLf
Next i
End Sub
Private Sub Transform(n As Integer,S As String)
Dim k As Integer,i As Integer,L As Integer
L=Len(S)
If Val(Mid(S，1，1))=1 Then
n=-(2^(L-1))
Else
n=0
End If
For i=2 To L
k=Mid(S，i，1)
n=n+k*2^(L-i)
Next i
End Sub
5．执行下列程序，单击CmdRun按钮，则窗体上显示的第一行是___(13)___
，第二行是___(14)___最后一行是___(15)___
Option Explicit
Private Sub Command1_Click()
Dim n As Integer
For n = 4 To 7
If Fun1(n, Sqr(n)) Then
Print n; "SS"
Else
Print n; "HS"
End If
Next n
End Sub
Private Function Fun1(n As Integer, i As Integer) As Boolean
If i = 1 Then
Fun1 = True
ElseIf n Mod i <> 0 Then
Fun1 = Fun1(n, i - 1)
Else
Fun1 = False
End If
End Function
6．下面程序的功能是求S的值。
计算到第k项的值小于等于1O 为止．请完善本程序。
Option Explicit
Private Sub CmdSum_Click()
Dim s As Single，x As Single，k As Integer,t As Single
x=CSng(Text1.Text)
___(16)___
DO
t=pt(x，k)
s=s+t
k=k+1
Loop Until t<=0.000001
Text2.Text=CStr(s)
End Sub
Private Function pt(x As Single，n As Integer)As Single
Dim iAs Integer
___(17)___
For i=1 To n
pt=___(18)___
Next i
pt=pt/x^n
End Function
7．下面程序的功能是，找出100---999之间具有以下特点的整数：其全部真因子(1和自身除外的因子)中，所有素数因子之和的2倍等于其余因子的和数．请完善本程序。
Option Explicit
Option Base 1
Private Sub Command1_Click()
Dim i As Long，J As Long，m As Integer,st As String
Dim a() As Integer
For i=100 To 999
___(19)___
For j=2 To i-1
If i Mod j=0 Then
m=m+1
___(20)___
a(m)=J
End If
Next j
If m>O Then
If yzh(a，st) Then List1.AddItem i & “：” & st
End If
Erase a
Next i
End Sub
Private Function yzh(a() As Integer,st As String)As Bocllean
Dim i As Integer,j As Integer
Dim suml As Long，sum2 As Long，stl As String，st2 As String
For i=1 To UBound(a)
For j=2 To Sqr(a(i))
If a(i) Mod j=0 Then Exit For
Next j
If ___(21)___ Then
sum1=sum1+a(i)
st1=st1 & a(i) & ”+”
EIse
sum2=sum2+a(i)
st2=st2 & a(i) & ”+”
End If
Next i
If sum1*2=sum2 Then
___(22)___
st=”(” & Left(st1，Len(st1)-1) & ”)*2=”& Left(st2,Len(st2)-1)
End If
End Function
8．本程序的功能是求-128～+127之间整数n的8位2进制补码。采用的算法是：若n≥O，则直接将其转换为相应的7位2进制数，前面的符号位设定为“O”；若n<0，则将n+128转换为相应的7位2进制数，前面的符号位设定为“1”。请完善本程序。
Option Explicit
Private Sub Command1_Click0
Dim dec As Integer
dec=Textl
If ___(23)___ Then
MsgBox ”无效数据，请重输!”，，”求补码”
Text1=””
Text1．SetFOCUS
Eise
Text2=bm(dec)
End If
End Sub
Private Function bm(n As Integer) As String
If Sgn(n)>=0 Then
bm=”0”& d2b(n)
Else
n=n+128
bm=___(24)___
End If
End Function
Private Function d2b(n As Integer)As String
Dim p As Integer
Do
p=n Mod 2
d2b=CStr(p) & d2b
n=n\2
Loop Until ___(25)___
d2b=Right(”000000”& d2b，7)
End Function
9．本程序的功能是，按从大到小的次序给一组正整数标记序次。程序的算法是：先找出原数组中所有的最大数，假如有n个最大数，它们序次均标记为1
，已处理的数据值改为-99：再找出所有的次大数，它们的序次标记为n+1……直到所有数据处理完毕。请完善本程序。(说明：数组sn用于存放数组a中相应的各个元素的序次，数组b用来保留原始数据)
Option Explicit
Option Base 1
Private Sub Cmd1_Click()
Dim a(10)As Integer,sn(10)As Integer,b(10)As Integer,i As Integer
For i=1 To lO
a(i)=Int(Rnd*61)+40
b(i)=___(26)___
Text1=Text1 & Str(a(i))
Next i
Call order(a，sn)
For i=1 To 10
List1.Addltem b(i) & “--“ & sn(i)
Next i
End Sub
Private Sub order(a() As Integer,sn() As Integer)
Dim i As Integer,j As Integer
Dim n As Integer,maxi As Integer
i=1
Do While i<=UBonnd(a)
n=___(27)___
maxi=a(1)
For J=2 To UBound(a)
If ___(28)___ Then
maxi=a(j)
End If
Nextj
For j=1 To UBound(a)
If ___(29)___ Then
sn(j)=i
a(j)=-99
n=n+1
End If
Nextj
i=___(30)___
Loop
End Sub
11140