计算机二级vb秋笔试.doc

计算机二级vb秋笔试

资料仅供参考
（春）笔试试卷
第一部分 基础知识
1. 下列关于信息系统的叙述错误的是_________。
A. 电话是一种双向的、点对点的、以信息交互为主要目的的系统
B. 网络聊天是一种双向的、以信息交互为主要目的的系统
C. 广播是一种双向的、点到多点的信息交互系统
D. Internet 是一种跨越全球的多功能信息系统
2. 微电子技术是以集成电路为核心的电子技术。在下列有关集成电路（IC）的叙述中，错误的是___________。
A. 现代集成电路使用的半导体材料大多数是（Si）
B. Pentium4微处理器芯片是一种超大规模集成电路，其集成度在1000万以上
C. 当前PC机中所用的的电子元器件均为大规模或超大规模集成电路
D. Moore 定律指出（预言），集成电路的集成度平均 18~24 个月翻一番
3. 多路复用技术和交换技术的发展极大地提高了通信线路的利用率。下列叙述错误的是___。
A. 数字传输技术采用的多路复用技术是时分多路复用技术
B. 当前有线电视采用频分多路复用技术在同一电缆上传输多套电视节目
C. 交换技术主要有两种类型，即电路交换和分组交换
D. 采用分组交换技术传递信息的速度比采用电路交换技术快
4. 下列有关计算机中数值信息表示的叙述错误的是___________。
A. 正整数无论是采用原码表示还是补码表示，其编码都是相同的
B. 相同位数的二进制补码和原码，她们能表示的数的个数也是相同的
C. 在实数的浮点表示中，阶码是一个整数
D. 从精度上看， Pentium 处理器支持多种类型的浮点数
5. 根据存储器芯片的功能及物理特性，当前一般见作高速缓冲存储器(Cache)的是________。
A. SRAM B. DRAM C. SDRAM D. Flash ROM
6. I/O接口指的是计算机中用于连接 I/O 设备的各种插头/插座，以及相应的通信规程和电器特性。在当前的 PC 机中， IDE 接口主要用于_________与主机的连接。
A. 键盘 B. 显示器 C. 硬盘 D. 打印机
7. 成像芯片的像素数目是数码相机的重要性能指标，它与可拍摄的图象分辨率直接相关。 SONY DSC-P71 数码相机的像素约为320万，它所拍摄的图像的最高分辨率为________。
A. 1280*960 B. 1600*1200 C. 2048*1536 D. 2560*1920
8. 当前广泛使用的打印机主要有针式打印机、激光打印机和喷墨打印机。在下列有关这些打印机的叙述错误的是__________。
A. 9针的针式打印机是指打印头由9根钢针组成
B. 激光打印机的主要消耗材料之一是碳粉/硒鼓
C. 喷墨打印机与激光打印机的打印速度均用每分钟打印的页数来衡量
D. 当前激光打印机均为黑白打印机，而喷墨打印机均为彩色打印机
9. 光盘存储器具有记录密度较高、存储容量较大、信息保存长久等优点。在下列有关光盘存储器的叙述中，错误的是________。
A. CD-RW光盘刻录机能够刻录CD-R和CD-RW盘片
B. DVD的英文全名是Digital Video Disc，即数字视频光盘，它仅能存储视频信息
C. DVD光盘的容量一般为数千兆字节
D. 当前 DVD光盘存储器所采用的激光大多为红色激光
10. 在下列 PC 机软件中，不属于文字处理软件的是_________。
A. Word B. Adobe Acrobat C. WPS D. CorelDraw
11. Windows 操作系统具有较强的存储管理功能，当主存容量不够时系统能够自动地“扩充”，为应用程序提供一个容量比实际物理主存大得多的存储空间。这种存储管理技术称为 ________。
A. 缓冲区技术 B. 虚拟存储器技术 C. SPOOLing 技术 D. 进程调度技术
12. 操作系统是现代计算机必不可少的系统软件之一。在下列有关操作系统的叙述中，错误的是_________。
A. UNIX 操作系统是一种多用户分时操作系统，可用于 PC 机
B. Linux 操作系统是由美国 Linux 公司开发的操作系统
C. 当前 Windows XP 操作系统有多个不同版本
D. 至当前为止， Windows98 及其以后的版本均支持 FAT32 文件系统
13. 理论上已经证明，构成求解计算问题的程序控制结构只需_______即可。
A. 重复、处理、返回 B. 顺序、选择、重复
C. 输入、处理、输出 D. 顺序、循环、转移
14. 将一个部门中的多台计算机组建成局域网能够实现资源共享。在下列有关局域网的叙述中，错误的是__________。
A. 局域网必须采用 TCP/IP 协议进行通信
B. 局域网一般采用专用的通信线路
C. 局域网能够采用的工作模式主要有对等模式和客户 / 服务器模式
D. 构建以太（局域）网时，需使用集线器或交换机等网络设备，一般不需要路由器
15. 接入 Internet 的方式不同，则所需设备和上网性能也有所不同。在下列几种 Internet 接入方式中，从现有技术来看，上网速度最快的是___________。
A. ISDN B.ADSL C. FTTx+ETTH D. Cable MODEM 技术

16. WWW与E-mail是当前Internet上是使用最为广泛的服务。在下列有关WWW与E-mail服务的叙述中，错误的是________。
A. WWW有遍布Internet上的Web服务器和安装WWW浏览器的客户机组成，它采用客户/服务器的工作模式
B. 当前网页（Web页）描述语言主要采用HTML，HTML文档均包含头部、正文和尾部三个部分
C. 每个电子邮箱都对应唯一的邮箱地址，且该地址有固定的格式，例如任何电子邮件地址均包含字符 “@”
D. 使用MIME协议后，邮件正文能够含有ASCII字符、汉字和图象等多种类型的数据
17. 在下列字符编码标准中，包含汉字数量最多的是_________。
A. GB2312 B. GBK C. GB18030. D.UCS-2
18. 下列有关数字图象与图形的叙述错误的是________。
A. 取样图象的数字化过程一般分为扫描、分色、取样和量化等处理步骤
B. 为了使网页传输的图像数据尽可能少，常见的GIF格式图像文件采用了有损压缩
C. 矢量图形（简称图形）是指使用计算机技术合成的图象
D. 计算机辅助设计和计算机动画是计算机合成图像的典型应用
19. 计算机信息系统（简称“信息系统”）是一类以提供信息服务为主要目的的数据密集型、人机交互的计算机应用系统。在下列有关信息系统的叙述中，错误的是_________。
A. 在信息系统中，绝大多数数据是持久的，不随程序运行的结束而失效
B. 信息系统开发方法有多种，例如生命周期法、原型法等
C. 专家系统属于信息处理系统
D. MRP 和 ERP 是面向电子商务的信息系统
20. Microsoft Excel 是 Office 软件的重要组件之一。在下列有关 Microsoft Excel（97及其以后的版本）功能及使用的叙述错误的是________。
A. 每个 Excel 文件均为一个工作簿，在默认情况下包含 3 张工作表
B. 每个工作表能够包含的行和列的数量是没有限制的
C. 系统提供了对数据的排序、筛选和分类汇总等功能
D. 能够将Excel工作簿（表）保存为网页文件或文本文件

第二部分　 Visual Basic 程序设计
一、 选择题
21．以下所列的8个控件中，具有Caption属性的有 个。
CheckBox（复选框）、ComboBox（组合框）、HscrollBar（水平滚动条）、DirListBox（文件夹列表框）、Image（图像框）、Frame（框架）、Label（标签）、Line（线条）
A．5 B．4 C．3 D．2
22．执行下面语句后，Len函数值最大的是 。
Dim IA As Integer, B As Single, S As String *5, Ch As String
IA=32767 : B=23.5 : S="A" :Ch="abcd"
A．Len(IA) B．Len(B) C．Len(S) D．Len(Ch)
23．假设变量Lng为长整形变量，下面不能正常执行的语句是 。
A．Lng=16384*2 B．Lng=4*0.5*16384
C．Lng=190^2 D．32768*2
24．数学表示式对应的正确Visual Basic表示式为 。
A．-b+Sqr(b*b-4*a*c)/2*a B．-b+Sqr(b*b-4*a*c)/(2*a)
C．(-b+Sqr(b*b-4*a*c))/(2*a) D．(-b+Sqr(b*b-4*a*c))/ 2*a
25．设Mys1,Mys2均为字符串型变量，Mys1="Visual Basic",Mys2="b",则下面关系表示式中结果为True的是 。
A．Len(Mys1)<>2*InStr(Mys1,"1") B．Mid(Mys1,8,1)>Mys2
C．Chr(98)&Right(Mys1,4)="Basic" D．InStr(Left(Mys1,6),"a")+60
A．①② B．②③ C．③④ D．①④
27．设A=7,B=4,C=6,，则表示式A Mod 3+B^3/C\5的值为 。
A．1 B．2 C．3 D．出错
28．下列说法错误的是 。
A． 当程序正常结束时，所有没用Close语句关闭的文件都会自动关闭
B． 在关闭文件或程序结束之前，能够不用Unlock语句对已锁定的记录解锁
C． 能够用不同的文件号同时打开一个随机文件
D． 用Output模式打开一个顺序文件，即使不对它进行写操作，原来内容也被清除
29．程序中有两个过程Private Sub Fun1(S As String)和Private Sub Fun2(a() As String * 6)，在调用过程中用Dim St(6) As String * 6定义了一个字符串数组。下面调用语句中正确的是 。
① Call Fun1(St(3)) ② Call Fun2(St) ③ Call Fun1(St) ④ Call Fun2(St(6) )
A．①② B．①③ C．②③ D．②④
30．DrawStyle属性用于设置图形方法输出的线型，它受____________属性的限制。
A．FillStyle B．FillColor C．BorderStyle D．DrawWidth
二、填空题
1．若窗体有列表框List1，则List1.List(List1.ListIndex)的值等于List1的 属性值。
2．执行下面的程序，当单击Command1时，列表框List1的第二列表项内容是 ，第四列表项内容是_ _，第五列表项内容是 。
Private Sub Command1＿Click（）
Dim i As Integer，j As Integer
For i =1 To 10
j=i+j
List1.AddItem j
Next i
For i =1 To 4
List1.RemoveItem List1.ListCount – i
Next i
End Sub
3．执行下面程序，当单击Command1时，窗体上显示的第一行内容是 ，第三行内容是 ，第四行内容是 。
Private Sub Command1_Click（ ）
Print Test（3）
End Sub
Private Function Text（t As Integer）As Integer
Dim i As Integer
If t＞=1 Then
Call Test（t-1）
For i = 3 To t Step - 1
Print Chr（Asc（"A"）+ i）；
Next i
Print
End if
Test = t

End Function
4．执行下面程序，当单击窗体时，窗体上显示的第一行内容是 ，第三行内容是 ，第四行内容是 。
Dim x As Integer，y As Integer
Private Sub Form＿Click（）
Dim a As Integer，b As Integer
A=5：b=3
Call sub1（a，b）
Print a，b
Print x，y
End sub
Private Sub sub1（ByVal m As Integer，n As Integer）
Dim y As Integer
X=m+n：y=m-n
M=fun1（x，y）
n=fun1（y，x）
End sub
Private Function fun1（a As Integer，b As Integer）As Integer
X=a+b：y=a-b
Print x，y
Fun1=x+y
End function
5． 执行下面的程序，当单击Command1时，Picture1中显示内容的第二行与第四行分别是_______与 ，Picture2中显示内容的第一行和第三行分别是 _ 与 。
Private Sub Command1＿Click（）
Dim a（4，4）As Integer，i As Integer，j As Integer
Dim b（4，4）As Integer
For i=1 To 4
s=""
For j =1 to 4
a（i，j）=（（i-1）*4+j）
s=s & Right（" " & Str（a（i，j）），3）
Next j
Picture1.Print s
Next i
For i=1 To 4
For j=1 To 4
B（5-j，i）=a（i，j）
Next j
Next i
For i=1 to 4
s=""
For j = 1 To 4
If Len（（CStr（b（i，j）））＜2 Then
s=s & " " & CStr（b（i，j））& " "
Else
s=s & CStr（b（i，j））& " "
End If
Next j
Picture2.Print s
Next i
End Sub
6．下面程序的功能时，输入x的值，利用递推法分别求出级数前n项（n=0，1，2，3…）之和。
S=a0+a1+…+an+… 其中，
a0 =1 n=1,2,3……
计算级数，直到第n项的绝对值小于等于0.001时停止，完善程序，实现以上功能。程序界面参见右图。
Option Explicit
Private Sub Command1＿Click（）
Dim x As Single， i As Integer， s As Single
Dim a As Single， a1 As Single
X = Text1
a=1：s = a
List1.AddItem "s（" & "0）=" & Str（s）
Do
i=i+1
__ __

S=s+a1
List1.AddItem "s（" & CStr（i）& "）=" & Str（s）
If Abs（a1）<= 0.001 Then
Text2=i

Else
a=a1
End if
Loop
End Sub
7．下面程序的功能是：验证任意一个大于5的奇数可表示为3个素数之和。完善程序，实现以上功能。程序界面参见右下图。
Option Base 1
Private Sub Command1＿Click（ ）
Dim P（ ）As Integer，N As Integer，L As Integer
Dim I As Integer，J As Integer，k As Integer
Dim ch As String
N=InputBox（"输入一个大于5的奇数！"）
Label1.Caption=
Call Prime（P，N）
L=Ubound（P）
For I=1 to L
For J=1 to L
For k =1 to L
If then
Ch=CStr（P（I）&"+" & CStr（P（J））& "+" & CStr（P（k））
Text1.text = ch

End if
Next k
Next J
Next I
End sub
Private Sub Prime（A（）As Integer，N As Integer）
Dim I As Integer，Idx As Integer
Dim J As Integer
For I=2 to N
For J = 2 To Sqr（I）
If I Mod J =0 Then Exit For
Next J
If J>Sqr(I) then
_ _
ReDim Preserve A(Idx)
A(Idx)=I
End if
Next I
End Sub
8．将20个棋子围成一圈，按顺时针方向从1～20给棋子编号，从中取出棋子的规则是：从某编号棋子开始取出第1个棋子，然后按顺时针方向围绕圆周数棋子，从1数到2取第2个，再从1数到3取第3个，再从1数到4取第4个……直到取完。本程序的功能就是找出依照上述规则取棋子的编号序列，使得最后一个被取棋子的编号为指定的编号。例如：若指定最后取棋子的编号为9，则必须从编号为17的棋子开始取第一个棋子，取棋子的顺序是：17，19，2，6，11，18……。完善程序，实现以上功能。
Option Base 1
Private Sub Command1_Click()
Dim A(20) As Integer, I As Integer, K As Integer
Dim N As Integer, Number As Integer, S As String
Number = Val(text2)
For K=1 to 20
For I=1 to 20
A(I) = 1
Next I
S=
Call Sub1(A,K,N,S)
If N = Number then
Text1 = S
Exit for
End If
Next K
End Sub
Private Sub Sub1A( ) As Integer, ByVal Idx As Integer, N As Integer, S As String)
Dim I As Integer, Js As Integer, Sum As Integer
Dim Ub as Integer, Step As Integer
__ ___
Js=1 : Step=1
A(Idx)=0
Do While Js<20
Step=Step+1
__ _
Do While Sum < Step
Idx = Idx+1
If Idx > Ub Then _ __
Sum = Sum + A(Idx)
Loop
A(Idx)=0
S = S & Left(Cstr(Idx) & " ",3)
__ _
if Js mod 10 = 0 then S = S & vbCrlf
Loop
N = Idx
End Sub

9．C盘根目录下的数据文件data.txt中有两组数据，第一组数据未排序，并以-1表示该组数据结束；第二组数据按从小到大顺序排列。下面程序的功能是，单击"读入数据"按钮，将文件中的两组数据，分别读入到A、B数组中，单击“插入排序”按钮，则把A数组的元素按其大小依次插入到B数组的适当位置，使得B数组中元素仍为从小到大排列。完善程序，实现以上功能。程序界面参见下图。
Dim a() As Integer, b() As Integer
Private Sub Command1_Click()
Dim i as Integer, j as Integer, n as Integer s as String

Do
Input #11,n
If n = -1 Then Exit Do
i = i+1
ReDim Preserve a(i)
a(i) = n
s = s & Str(a(i))
Loop
Text1 = s
s=""
__ _
j=j+1
ReDim Preserve b(j)
Input #11,b(j)
s=s & str(b(j))
Loop
Text2 = s
Close 11
End sub
Private Sub Command2_Click()
Dim i as Integer, j as Integer, s as String
For i = 1 to UBound(a)
If a(i)b(UBound(b)) then
_
b(UBound(b))=a(i)
Else
For j=2 to UBound(b)
If(a(i)>b(j-1)) And a(i)<=b(j) Then Call change(a(i),j)
Next j
End If
Next I
For i = 1 to UBound(b)
s = s & Str(b(i))
Next i
Text3=s
End sub
Private Sub change( n as Integer, k as Integer)
Dim i As Integer
ReDim Preserve b(UBound(b)+1)
For I=UBound(b) To k+1 Step –1
__
Next i
__
End Sub