1、2010 年秋季江苏省计算机等级考试 VB 及答案解析(总分：105.00，做题时间：120 分钟)一、说明：(总题数：1，分数：0.00)二、第一部分计算机基础知识(总题数：20，分数：40.00)1.微电子技术是信息技术领域中的关键技术,它以集成电路为核心.下列有关集成电路的叙述中,错误的是_(1)_（分数：2.00）A.现代集成电路使用的半导体材料只能是硅(Si),不能使用其它任何半导体材料B.集成度是指集成电路包含的电子元件数目,可分为 SSI、MSI、VLSI 等C.Moore 定律指出,单块集成电路的集成度平均 1824 个月翻一番D.我国第二代身份证中嵌入了集成电路芯片,可以实现
2、电子防伪和数字管理功能2.数据传输速率是数据通信中重要的性能指标。Gb/s 是数据传输速率的计量单位之一,其正确含义是_(2)_ 。（分数：2.00）A.每秒兆位B.每秒千兆位C.每秒百兆位D.每秒百万位3.所谓“变号操作“是指将一个整数变成绝对值相同但符号相反的另一个整数。假设使用补码表示的 8 位整数 x=10010101,则经过变号操作后结果为_(3)_.（分数：2.00）A.01101010B.00010101C.11101010D.011010114.下列有关 PC 机主板的叙述中,错误的是_(4)_ 。（分数：2.00）A.主板的物理尺寸没有标准,各厂家均可自行定义B.主板上包含芯
3、片组,它是 PC 机各组成部分相互连接和通信的枢纽C.主板上包含 BIOS 和 CMOS 芯片D.主板上包含 CPU 插座、内存条插槽及其它类型的插槽5.下列有关 PC 机中央处理器(CPU)和内存(内存条)的叙述中,正确的是_(5)_ .（分数：2.00）A.PC 机所采用的 CPU 都是 Intel 公司生产的 Pentium 系列芯片,其它厂商生产的 CPU 都与之不兼容B.目前已有双核的微处理器(例如 Core 2 Duo),但还没有四核的微处理器C.通常来说,DRAM 的速度比 SRAM 的存取速度慢D.一般来说,一个内存条上仅有一个 DRAM 或 SRAM 芯片6.下列有关 PC
4、机 I/O 总线与 I/O 接口的叙述中,错误的是_(6)_ .（分数：2.00）A.目前 PC 机中协调与管理总线操作的总线控制器包含在主板上的芯片组中B.总线最重要的性能是数据传输速率,其单位通常为 MB/s 或 GB/sC.SATA 接口的数据传输速率通常低于 USB 2.0 的数据传输速率D.USB 连接器有 4 个引脚,其中一个引脚连接+5V 电源7.下列有关 PC 机常用 I/O 设备的叙述中,错误的是_(7)_。（分数：2.00）A.目前台式机键盘通常有一百零几个按键,笔记本电脑的键盘有八十几个按键B.目前流行的鼠标是光电鼠标,其与主机的接口有 PS/2 与 USB 两种C.宽屏
5、 LCD 显示器的宽高比为 16：9 或 16：10D.打印速度是打印机的重要性能指标,速度单位通常为 dpi8.下列有关 PC 机外存储器的叙述中,错误的是_(8)_ 。（分数：2.00）A.目前硬盘的盘片大多为 3.5、2.5 或 1.8 英寸,一个硬盘中可有一个或多个盘片B.目前有些 u 盘可以模拟硬盘和光盘存储器启动操作系统C.目前光盘存储器主要分为 CD、DVD 和 BD 三种,它们均采用红外激光进行读写D.目前光驱的速率通常用多少倍速表示9.下列有关计算机软件的叙述中,错误的是_(9)_.（分数：2.00）A.软件一般是指程序及其相关的数据和文档资料B.从软件的用途考虑,软件可以分
6、为系统软件和应用软件,主要的系统软件有操作系统、语言处理系统和数据库管理系统等。C.从软件的权益来考虑,软件可以分为商品软件、共享软件和自由软件,共享软件和自由软件均为无版权的免费软件D.Linux 是一种系统软件、自由软件10.到目前以止,Windows 系列操作系统已推出多个版本。在下列版本中,最新的 Windows 版本是_(10)_（分数：2.00）A.Windows7B.Windows MeC.Windows XPD.Windows Vista11.下列有关 Windows XP 操作系统功能的叙述中,错误的是_(11)_.（分数：2.00）A.系统通过“时间片”轮转策略支持多任务处
7、理B.系统利用 SPOOLing 技术进行存储管理C.在设备管理中引入了缓冲技术,以减少 I/O 操作的等待时间D.系统支持 PnP 功能,并按 ACPI 标准进行电源管理12.在因特网中某台主机的 IP 地址为 20.25.30.8,子网掩码为 255.255.255.0,那么该主机的主机号为_(12)_ 。（分数：2.00）A.20B.25C.30D.813.局域网中需要传输的数据必须预先组织成若干数据帧,每一数据帧的格式如下图所示：上图中最末部分“?”表示的是_(13)_ 。（分数：2.00）A.协议信息B.校验信息C.冗余信息D.结束标志14.目前网络用户接入因特网有多种方式,例如 A
8、DSL、HFC 等。通过 HFC 接入因特网时采用的网络是_(14)_。（分数：2.00）A.有线电话网B.有线电视网C.无线局域网D.移动电话网15.下列网络协议中,直接与电子邮件传输相关的网络协议是_(15)_。（分数：2.00）A.FTPB.SMTPC.TELNETD.NNTP16.下列有关计算机中文本与文本处理的叙述中,错误的是_(16)_（分数：2.00）A.西文字符主要是采用 ASCII 字符集,基本 ASCII 字符集共有 256 个字符B.我国最早采用的汉字字符集是 GB2312,包含 6000 多个汉字和若干个非汉字字符C.无论采用何种方式输入汉字,在计算机中保存时均采用统一
9、的汉字内码D.简单文本和丰富格式文本中字符信息的表示相同,区别在于格式信息的表示17.彩色图像所使用的颜色描述方法称为颜色模型(即颜色空间)。下列四种颜色模型中,彩色喷墨打印机使用的是_(17)_.（分数：2.00）A.RGBB.HSBC.YUVD.CMYK18.文件的扩展名用于标记文件的类型,用户应该尽可能多地知晓各类文件的扩展名,下列文件中,属于数字声音的文件是_（分数：2.00）A.ABC.RMB.ABC.WMAC.ABC.MKVD.ABC.SWF19.信息系统软件开发瀑布模型包括系统规划、系统分析、系统设计、系统实施和系统维护等几个阶段。下面各项工作中,属于系统实施阶段的是_(19)_
10、（分数：2.00）A.问题定义B.可行性研究C.系统测试D.绘制 E-R 图20.下列有关 Micmsoft Word 2003 和 Microsoft Excel 2003 软件的叙述中,错误的是_(20)_（分数：2.00）A.利用 Word 软件编辑文档,可以将其保存为 TXT、DOC、RTF 和 HTM 格式文件B.利用 Word 软件编辑文档时,可以统计选定文本的字符数C.在 Excel 软件中,可以打开(导入)TXT、DBF、HTML 格式的文件(数据)D.Excel 文件可以设置打开权限密码,但不可以单独设置修改权限密码三、第二部分 Visual Basic 程序设计(总题数：1
11、0，分数：20.00)21.以下有关事件过程的说法中,正确的是_(21)_（分数：2.00）A.所有的事件过程都是 Sub 子过程B.所有的事件过程都没有参数C.所有的事件都是由用户的操作直接引发的D.事件过程不能使用 Call 语句调用执行22.以下语句中,正确的是_(22)_ 。（分数：2.00）A.List1.AddItem x,“=“,yB.Picture1.Print x,“=“,yC.Text1.Text=x,“=“,yD.Label1.Caption=x,“=“,y23.以下有关 VB 程序书写规则的说法中,错误的是_(23)_（分数：2.00）A.一行可以书写多条语句,语句间用
12、“:“分隔B.使用注释时,“可与注释语句定义符“Rem“互换使用C.过长的语句,可使用续行标志“ _“,分写在多行上D.代码输入时,可不用区分字母大小写,系统会将“保留字“首字母自动改为大写24.设变量 I 和 J 是整型变量,K 是长整型变量。I 已赋值 32763,J 和 K 分别赋值 5,若接着执行以下语句,可正确执行的是_(24)_。（分数：2.00）A.I=I+KB.J=I+KC.K=I+J+KD.K=K+I+J25.以下关系表达式中,运算结果为 False 的是_(25)_（分数：2.00）A.CInt(3.5)-Fix(3.5)=0B.CInt(3.5)-Int(3.5)=0C.
13、Int(3.5)+Int(-3.5)=0D.Int(3.5)+Fix(-3.5)=026.以下字符运算表达式中,其功能与函数 Mid(s,i,i)相同的是_(26)_（分数：2.00）A.Left(s,i) b 的值是 3(2) 4;i 的值是 5(3) 6 。 Option Explicit Private Sub CmdRun_Click7 Dim i As Integer,a As Integer,b As Integer a=1:b=10 For i=a To b Step a+1 a=a+1 b=b+1 i=i+1 Next i Print a,b,i End Sub （分数：5.0
14、0）填空项 1:_32.执行下面程序,单击 Command1,数组元素 a(3,2)的值是 1(4) 2,a(1,2)的值是 3(5) 4,a(2,3)的值是 5(6) 6 Option Explicit Option Base 1 Private Sub Commandl_Click7 Dim n As Integer,i As Integer,j As Integer Dim a(3,3)As Integer,k As Integer n=3:k=1 i=n:j=(n+1)/2 a(i,j)=k For k=2 To n*n i=i+1:j=j+1 If in And jn Then j=
15、1 ElseIf in And jn Then i=i-2:j=j-1 ElseIf i0 Then i=i-2:j=j-1 End If a(i,j)=k Next k For i=1 To n For j=1 To n Pic1.Print Right(“ “ Next j Pic1.Print Next i End Sub （分数：5.00）填空项 1:_33.运行下面的程序,单击 Cmd1,窗体上显示的第一行是 1(7) 2,第二行是 3(8) 4 ,最后一行是 5(9) 6。 Option Explicit Private Sub Cmd1_Click7 Dim A As Integ
16、er A=3 Call Sub1(A) Print A End Sub Private Sub Sub1(X As Integer) X=X*2+1 If X填空项 1:_34.执行下面程序,单击按钮 CmdRun,窗体上显示的第一行结果是 1(10) 2,UBound(a)的值是 3(11) 4,其中 a(1)的值为 5(12) 6. Option Explicit Private Sub CmdRun_Click7 Dim St As String,i As Integer Dim a8 As String,j As Integer,k As Integer St=“abcd“ Call
17、Sub1(St) Print St For i=1 To Len(St) For j=i+1 To Len(St) If Mid(St,i,1)=Mid(St,j,1) Then Exit For Next j If jLen(St) Then k=k+1 ReDim Preserve a(k) a(k)=Mid(St,i,1) Print “a(“;k;“)=“;a(k) End If Next i End Sub Private Sub Sub1(S As String) Dim i As Integer For i=1 To Len(S)/2 Mid(S,i,1)=Mid(S,Len(S
18、)-i+1,1) Next i End Sub （分数：5.00）填空项 1:_35.执行下面程序,在文本框 Text1 中输入“21 23 2 3 5 17 54#“后,单击命令按钮 Cmdl,数组元素 A(1)的值是 1(13) 2,A(3)的值是 3(14) 4,A(5)的值是 5(15) 6. Option Explicit Private Sub Cmd1_Click7 Dim A8 As Integer,K As Integer Dim L As Integer,S As String S=Text1 Do K=K+1 ReDim Preserve A(K) L=InStr(S,“
19、 “) If Ln And jn Then j=1 ElseIf in And jn Then i=i-2:j=j-1 ElseIf i0 Then i=i-2:j=j-1 End If a(i,j)=k Next k For i=1 To n For j=1 To n Pic1.Print Right(“ “ Next j Pic1.Print Next i End Sub （分数：5.00）填空项 1:_ （正确答案：(4) 1 (5) 9 (6) 7）解析：33.运行下面的程序,单击 Cmd1,窗体上显示的第一行是 1(7) 2,第二行是 3(8) 4 ,最后一行是 5(9) 6。 Op
20、tion Explicit Private Sub Cmd1_Click7 Dim A As Integer A=3 Call Sub1(A) Print A End Sub Private Sub Sub1(X As Integer) X=X*2+1 If X填空项 1:_ （正确答案：(7) 31 (8) 63 (9) 63）解析：34.执行下面程序,单击按钮 CmdRun,窗体上显示的第一行结果是 1(10) 2,UBound(a)的值是 3(11) 4,其中 a(1)的值为 5(12) 6. Option Explicit Private Sub CmdRun_Click7 Dim S
21、t As String,i As Integer Dim a8 As String,j As Integer,k As Integer St=“abcd“ Call Sub1(St) Print St For i=1 To Len(St) For j=i+1 To Len(St) If Mid(St,i,1)=Mid(St,j,1) Then Exit For Next j If jLen(St) Then k=k+1 ReDim Preserve a(k) a(k)=Mid(St,i,1) Print “a(“;k;“)=“;a(k) End If Next i End Sub Privat
22、e Sub Sub1(S As String) Dim i As Integer For i=1 To Len(S)/2 Mid(S,i,1)=Mid(S,Len(S)-i+1,1) Next i End Sub （分数：5.00）填空项 1:_ （正确答案：(10) dccd (11) 2 (12) c）解析：35.执行下面程序,在文本框 Text1 中输入“21 23 2 3 5 17 54#“后,单击命令按钮 Cmdl,数组元素 A(1)的值是 1(13) 2,A(3)的值是 3(14) 4,A(5)的值是 5(15) 6. Option Explicit Private Sub Cmd
23、1_Click7 Dim A8 As Integer,K As Integer Dim L As Integer,S As String S=Text1 Do K=K+1 ReDim Preserve A(K) L=InStr(S,“ “) If L0.000001）解析：37.本程序的功能是找出一组连续的整数,它们的和数等于给定的数。通常给定一个数,可能会找出多组符合要求的连续整数。查找的方法是穷举法。请完善本程序。 Option Explicit Private Sub CmdRun_Click1 Dim m As Integer,sum As Integer,st As String D
24、im i As Integer,j As Integer,k As Integer m=Text1 For i=1 To m-1 2(19) 3 For j=i To m sum= 4(20) 5 If sum=m Then st=“ st赋以空值 For k=i To j st= 6(21) 7 Next k List1.AddItem Left(st,Len(st)-1) End If Next j Next i End Sub （分数：5.00）填空项 1:_ （正确答案：(19) sum=0 (20) sum+j (21) st& k & “+“）解析：38.本程序的功能是将汉字的区位
25、码转换成以十六进制数形式表示的机内码。汉字的区位码由 4 位数字组成,前两位数字表示汉字在编码表中的区号,后两位数字表示位号,区号和位号均为十进制数。例如汉字“中“的区位码是 5448,即“中“的区号是 54,位号是 48。将区号与位号分别加上 160,再转换成十六进制数形式,就是“中“的机内码。请完善本程序。 Option Explicit Private Sub CmdChange_Click1 Dim qw As String,jn As String qw=Text1 Text2=qw2jn(qw) End Sub Private Function qw2jn(st As String
26、) As String Dim n1 As Integer,n2 As Integer n1=Val(Left(st,2)+160 n2= 2(22) 3 qw2jn=d2h(n1) & d2h(n2) End Function Private Function d2h(d As Integer) As String Dim p As Integer,q As String*1 Do p= 4(23) 5 If p9 Then q=Chr(55+p) Else q=CStr(p) EndIf 6(24) 7 d=d/16 Loop Until 8(25) 9 End Function （分数：
27、5.00）填空项 1:_ （正确答案：(22) Val(Right(st,2)+160 或 Val(Mid(st,3,2)+160 (23) d Mod 16 (24) d2h=q & d2h (25) d=0）解析：39.本程序的功能是查找一组数据中的众数。所谓众数,就是在这组数据中出现次数最多的数.注意:一组数据中的众数可能有多个.(即有多个数据的出现次数相同)。事件过程 Cmdfind 主要功能是生成 n 个随机整数存入数组,再调用 Freq 过程,求出数组中每个不相同的数据出现的次数:再求出其中最大的出现次数值,最后,将求出相应的众数输出。请完善本程序。 Option Explicit
28、 Option Base 1 Private Sub Cmdfind_Click1 Dim a2 As Integer,n As Integer,i As Integer Dim Shu3 As Integer,Cs4 As Integer,Max As Integer n=InputBox(“输入数据个数:“,“查找众数“,20) ReDima(n) Randomize For i=1 To n a(i)=Int(Rnd*5)+5 Text1=Text1 &Str(a(i) If i Mod 10=0 Then Text1=Text1 &vbCrLf Next i Call Freq(a,S
29、hu,Cs) Max=Cs(1) For i=2 To UBound(Cs) If Cs(i)Max Then 5(26) 6 End If Next i For i=1 To UBound(Cs) If 7(27) 8 Then Text2=Text2 &Shu(i) & “ “ Next i End Sub Private Sub Freq(a9 As Integer,Shu10 As Integer,Cs11 As Integer) shu 数组用于存放 A 数组中不相同数据的值 Cs 数组用于存放对应不相同数据出现的次数 Dim i As Integer,j As Integer,js
30、 As Integer,n As Integer For i=1 To UBound(a) js=1 For j=1 To n 搜索数组 a 中不相同的数据 If Shu(j)=a(i) Then Exit For Next j If 12(28) 13 Then n=n+1 ReDim 14(29) 15 Shu(n)=a(i) For j=i+1 To UBound(a) If a(j)=a(i) Then 16(30) 17 Next j Cs(n)=js List1.AddItem a(i) & “-“ &js End If Next i End Sub （分数：5.00）填空项 1:_ （正确答案：(26) max=cs(i) (27) cs(i)=max (28) jn (29) preserve shu(n),cs(n) (30) js=js+1）解析：
