word文档可编辑，欢迎下载支持！
2008年春江苏省计算机等级考试VB试题
第一部分计算机基础知识
1． 在下列有关微电子技术与集成电路的叙述中，错误的是( 1 ) 。 A．微电子技术是以集成电路为核心的技术
B．集成度是指单个集成电路所含电子元件的数目
C．Moore定律指出，单个集成电路的集成度平均每18—24个月翻一番 D．IC卡仅有存储器和处理器，卡中不可能存储有软件 2． 在下列有关通信技术的叙述中，错误的是( 2 ) 。 A．目前无线电广播主要还是采用模拟通信技术 B．数字传输技术最早是被长途电话系统采用的
C．数字通信系统的信道带宽就是指数据的实际传输速率(简称“数据速率”) D．局域网中广泛使用的双绞线既可以传输数字信号，也可以传输模拟信号
3． CPU的运算速度与许多因素有关，下面哪些是提高CPU速度的有效措施? ( 3 ) ①增加CPU中寄存器的数目 ②提高CPU的主频
③增加CPU中高速缓存(cache)的容量 ④优化BIOS的设计
A．①、③和④ B．①、②和③ C．①和④ D．②、③和④
4． 下面是PC机常用的4种外设接口，其中键盘、鼠标、数码相机和移动硬盘等均能连接的接口是( 4 )
A． RS-232 B． IEEE-1394 C． USB D． IDE
5． 下列有关PC机外部设备的叙述中，错误的是 （ 5 ） 。
A．扫描仪的工作过程主要基于光电转换原理，分辨率是其重要性能指标之一 B．制作3—5英寸的照片(图片)，数码相机的CCD像素必须在600万以上 C．集成显卡(指集成在主板上的显卡)的显示控制器主要集成在芯片组中 D．存折和票据的打印，目前主要是采用针式打印机
6． 下列有关PC机辅助存储器的叙述中，错误的是( 6 ) 。 A．硬盘的盘片转动速度特别快，目前一般为每秒数千转
B. 近年来使用的串行ATA(SATA)接口硬盘，其传输速率比采用IDE接口的要快 C．目前移动硬盘大多采用USB 2．0接口，其传输速率可达每秒数十兆字节 D. 40倍速的CD-ROM驱动器的速率可达6MB／s左右 7． 在下列有关商品软件、共享软件、自由软件及其版权的叙述中，错误的是 （ 7 ）。
A．通常用户需要付费才能得到商品软件的合法使用权 B．共享软件是一种“买前免费试用”的具有版权的软件 C．自由软件允许用户随意拷贝，但不允许修改其源代码和自由传播
D．软件许可证确定了用户对软件的使用方式，扩大了版权法给予用户的权利 8． 下面有关Windows操作系统多任务处理的叙述中，正确的是 ( 8 ) 。
A．用户如果只启动一个应用程序工作(如使用Word写作)，则该程序自始至终独占CPU B． 由于CPU具有多个执行部件，所以操作系统才能同时进行多个任务的处理 C．前台任务和后台任务都能得到CPU的响应
D． 处理器调度程序根据各个应用程序运行所需要的时间多少来确定时间片的长短 9． 从算法需要占用的计算机资源角度分析其优劣时，应考虑的两个主要方面是 （ 9 ）。
A．空间代价和时间代价 · C．可读性和开放性 B． 正确性和简明性 D． 数据复杂性和程序复杂性 10．接入因特网的每台计算机的IP地址 （ 10 ）。 A． 由与该计算机直接连接的交换机及其端口决定 B． 由该计算机中网卡的生产厂家设定
C． 由网络管理员或因特网服务提供商(ISP)分配 D． 由用户自定
11．以下关于局域网和广域网的叙述中，正确的是 （ 11 ）。
A．广域网只是比局域网覆盖的地域广，它们所采用的技术是完全相同的
B． 局域网中的每个节点都有一个惟一的物理地址，称为介质访问地址(MAC地址) C．现阶段家庭用户的PC机只能通过电话线接入网络
D．单位或个人组建的网络都是局域网，国家或国际组织建设的网络才是广域网
12．目前在网络互连中用得最广泛的是TCP／IP协议。事实上，TCP／IP是一个协议系列，它已经包含了100多个协议。在TCP／IP协议中，远程登录使用的协议是( 12 ) 。 A．TELNET B．FTP C．HTTP D．UDP
13．关于电子邮件服务，下列叙述中错误的是 ( 13 ) 。 A． 网络中必须有邮件服务器用来运行邮件服务器软件 B． 用户发出的邮件会暂时存放在邮件服务器中
C．用户上网时可以向邮件服务器发出接收邮件的请求
D．发邮件者和收邮件者如果同时在线，则可不通过邮件服务器而直接通信 14·国际标准化组织(ISO)将世界各国和地区使用的主要文字符号进行统一编码的方案称为 （ 14 ）。
A． UCS／Unicode C． GBK B． GB2312 D．GBl8030
1
word文档可编辑，欢迎下载支持！
15·存放一幅1024×768像素的未经压缩的真彩色(24位)图像，大约需要多少字节的存储空间?（ 15 ）
A． 1024x768x24 C． 1024x768x2 B． 1024x768x3 D．1024x768x12 16·对带宽为300—
3400Hz的语音，若采样频率为8kHz、量化位数为8位且为单声道，则未压缩时的码率约为( 16 )。
A.64kb／s B．64kB／s C．128kb／s D．128kB／s 17·彩色图像所使用的颜色描述方法称为颜色模型。在下列颜色模型中，主要用于彩色喷墨打印机的是( 17 ) 。 A·YUV B．HSB C．CMYK D．RGB 18·从信息处理的深度来区分，信息系统可分为业务信息处理系统、信息检索系统、信息分析系统和专家系统。在下列相关叙述中，错误的是 18 。
A．业务信息处理系统是采用计算机进行日常业务处理的信息系统 B· 信息检索系统就是指因特网上提供的各种搜索引擎，可以供各类用户免费使用 C． 决策支持系统是一种常见的信息分析系统
D． 专家系统可模仿人类专家的思维活动，通过推理与判断来求解问题 19·在下列有关Microsoft Excel 2000(中文版)功能的叙述中，错误的是 （ 19 ）。 A．可以将Excel工作簿或选定的工作表另存为网页文件(．htm) B． 对数据清单进行排序时，最多可以选择5个关键字 C·通过设置，可以实现在某单元格中输入数据后按回车键，光标自动移动到上边一单元格或左边一单元格 。
D．在工作表中可以插入“艺术字” 20·在下列有关Microsoft FrontPage 2000(中文版)功能的叙述中，错误的是 20 。 A．执行菜单命令“新建”时，可以选择是新建网页还是新建站点 B． 用户可以对框架网页的框架进行拆分或删除 C·如同Microsoft word中的表格，用户可以在网页中手绘表格或插入表格 D． 系统提供了“绘图”工具栏，便于用户在网页中绘图 第二部分Visual Basic程序设计
一、选择题(用答题卡答题，答案依次填在21—30答题号内)
21．下列关于某对象SetFocus与GotFocus的描述中，正确的是21 。
A． SetFocus是事件，GotFocus是方法 B．SetFocus和GotFocus都是事件 C．SetFocus和GotFocus都是方法D．SetFocus是方法，GotFocus是事件 22．Print方法可在_______上输出数据。
①窗体②文本框③图片框④标签⑤列表框⑥立即窗口 A．①③⑥ B．⑦③⑤ C．①⑦⑤ D．③④⑥ 23．数学表达：
A．(x^5一Cos(29))／Sqr(e^X+In(Y))+5
B．(x^5一Cos(29))／(Sqr(Exp(x)+Log(Y))+5)
C．(x^5一Cos(29*3．14159／180))／(Sqr(Exp(x)+Log(Y))+5) D．(x^5一Cos(29*3．14159／180))／(Sqr(e^X+Log(Y))+5) 24．以下有关数组参数的说明中，正确的是24。 A．在过程中也可用Dim语句对形参数组进行说明
B．动态数组作为实参时，可用ReDim语句在过程中改变对应形参数组的维界 24.下列有关数组参数的说明正确的是 (24) 。 A.在过程中也可用Dim语句对形参数组进行说明
B.动态数组作为实参时，可用ReDim语句在过程中改变对应形参数组的维界 C.调用过程时，数组名不能作为实参 D.数组可以按地址传递也可以按值传递
25.下列关于子过程或函数的定义正确的是 (25)
A.Sub fl(n As String*1) B.Sub fl(n As Integer)As Integer
C.Function fl(f1 As Integer) As Integer D.Function fl(ByVal n As Integer) 26.下列关于数值常量的说法错误的是 (26) A.八进制数的表示方法是在数字前面加&O B.十六进制数的表示方法是在数字前面加&H
C.在浮点数值中使用D来分隔尾数和指数时，系统将把该数值作为单精度型数处理 D.32768是合法的数值常量 ’
27.下列有关对象的叙述正确的是( 27 ) A.对象由属性、事件和方法构成
B.对象的所有属性既可以在属性窗口设置，又可以在程序运行时用赋值语句设置 C.对象的事件一定就是由VB预先设置好的人工干预的动作 D.对象的方法是对象响应某个事件后所执行的一段程序代码 28.已知X
29.下列能够正确表示条件\的VB逻辑表达式是 ( 29 ) A.X≤Y 2 word文档可编辑，欢迎下载支持！ 30.下列有关数组的说法正确的是( 30 ) A.数组的维下界不可以是负数 B.模块通用声明处有Option Base 1，则模块中数组定义语句Dim A(O To 5)会与之冲突 C.模块通用声明处有Option Base l，模块中有Dim A(O To 5)，则A数组第一维维下界为0 D.模块通用声明处有Option Base 1，模块中有Dim A(O To 5)，则A数组第一维维下界为1 二、填空题 ， ’ 1.执行下面的程序，单击Commandl，则窗体上显示的第一行是 ( 1 ) ,第三行是 ( 2 ) , 最后一行是( 3 ) Option Explicit Private Sub Command1_Click() Dim X As Integer，Y As Integer X=12:Y=0 Do While X>0 . If X Mod 4=0 Then Y=Y+X Else y=Y-X End If X=X-3 Print X，Y Loop End Sub . ， 2.执行下面的程序,单击Commandl，窗体上显示的第一行是(4) ，第二行是 (5) ，第 三行是( 6 ) Option Explicit . Option Base 1 Private Sub Command1_Click() Dim sa(3，3)As String*1，i As Integer，j As Integer，k As Integer k=1 For i=1 To 3 For j=1 To 3 sa(i，j)=Chr(Asc(\Print sa(i，j);\； k=k+3 Next J 、 Print Next i End Sub ， 3.执行下面的程序，单击Commandl，在窗体上显示的变量b的值为:( 7 )，变量c的值为 ( 8 ) ，变量z的值为( 9 ) Option Explicit Private Sub Command1_Click() Dim b As Integer，C As Integer，z As Integer b=2 C=1 Z=fun(b，fun(b+1，c))+b-c+1 Print b，c，z End Sub Private Function fun(X As Integer，ByVal Y As Integer)As Integer X=X-Y y=X+Y+2 fun=Y—X End Function 4.执行下面的程序，单击Commandl，输出的变量i的值是( 10 ) ，变量j的值是 ( 11 ) ， 变量k的值是( 12 ) Option Explicit Private Sub Command1_Click() Dim i As Integer，j As Integer Dim k As Integer i=10 j=4 k=Funk(i,j) Print i，j，k 、 End Sub ? Private Function Funk(ByVal A As Integer，B As Integer) As Integer A=A+B B=B-2 . if B=0 Or B=1 Then Funk=1 3 word文档可编辑，欢迎下载支持！ Else Funk=A+Funk(A，B) End If End Function 5.执行下面的程序，单击Commandl，在窗体上显示的第一行的内容是( 13 ) ，第二行的内 容是( 14 ) ，第三行的内容是( 15 ) Option Explicit Private Sub Command1_Click() Dim n As Integer，i As Integer n=2 For i=7 To 1 Step -1 Call sub2(i，n) Print i,n Next i End Sub Private Sub sub2(x As Integer，y As Integer) Static n As Integer Dim i As Integer For i=2 To 1 Step -1 n=n+x x=x-1 Next i Y=Y+n End Sub 6.用以下公式求sin(x)的值。当级数通项的绝对值小于eps=10^-7时停止计算，x的值由键盘 输入。 请完善如下程序: Option Explicit Private Sub Form_Click() Dim x As Double，t As Double，n As Integer，sum As Double Const eps=0.0000001 x=Val(InputBox(\请输入x:\ ( 16 ) sum=t n=1 Do Until ( 17 ) t=一t t= ( 18 ) sum=sum+t n=n+1 Loop 、 Print \End Sub 7.下面程序的功能是随机生成小于100的诸素数的数组,程序界面参见下图 Option Explicit Private Sub Command1_Click() Dim P()As Integer，i As Integer，n as integer Dim st As String，k As Integer Randomize k=InputBox(\元素个数:\，，20) ReDim P(k) Do n=Int(Rnd*90)+10 if ( 19 )Then i=i+1 P(i)=n End if Loop Until ( 20 ) For i=1 To UBound(P) st=st & Str(P(i)) if i Mod 10=0 Then st=st & Vbcrlf Next i Text1=st End Sub Private Function prime(n As Integer) As Boolean Dim i As Integer prime=True For i=2 To Sqr(n) If n Mod i=0 Then 4 word文档可编辑，欢迎下载支持！ ( 21 ) Exit For End If Next i End Function 8.下面程序的功能是将给定整数N表示成若干个质数因子相乘的形式(分解质因数)。程序 界面参见下图。 Option Explicit Option Base 1 Private Sub Command1_Click() Dim n As Integer，a() As Integer Dim st As String，i As Integer n=Text1 Call fenjie(n，a) st=CStr(n) & \ For i=1 To UBound(a)-1 st=st & a(i) & \ Next i Text2=st & a(i) End Sub Private Sub fenjie(( 22 ) ) Dim k As Integer，i As Integer k=2 Do If n Mod k=0 Then i=i+1 . ReDim Preserve a(i) a(i)=k (23) Else ( 24 ) End If Loop Until ( 25 ) End Sub 9.本程序的功能是把由4个用\分隔的十进制数表示的IP地址转换为由32位二进制数组成 的IP地址。例如十进制表示的IP地址为，其中每个十进制数对应一个8位的二进制数，合起来构成一个32位二进制的IP地址01。过程Tiqu用于提取十进制IP地址中每个用\分割的十进制数；过程Convert用于将十进制数转换为相应的8位二进制数。程序界面参见下图。 Option Explicit Private Sub Command1_Click() Dim strl As String，str2 As String Dim a(4)As Integer，i As Integer strl=Text1.Text Call Tiqu(strl，a) For i=1 Tn 4 If a(i)<0 Or a(i)>255 Then MsgBox(\地址错误!\ Exit Sub j Else ( 26 ) End If Next i Text2.Text=str2 End Sub Private Sub Tiqu(st As String，a()As Integer) Dim n As Integer，k As Integer，S As String，d As String*1，i As Integer n=Len(st):k=0:s=\ For i=1 To n (27) If d=\ k=k+1 a(k)=Val(S) ( 28 ) Else s=S & d End If、 Next i a(4)=s 5 word文档可编辑，欢迎下载支持！ End Sub Private Function convert(ByVal n As Integer)As String Dim b As Integer，i As Integer，s As String Do While n>0 ‘ b=n Mod 2 . n=n\\2 ( 29 ) Loop For i=1 To 8-Len(s) . s=\ Next i ( 30 ) Fnd FunCtion 6
2019年春江苏省计算机等级考试VB试题
