2007年秋至2010年秋江苏省计算机二级VB考试真题及参考答案

2007年秋季vb考试真题

1． 下面关于比特的叙述中，错误的是( 1 ) A．比特是组成数字信息的最小单位 B．比特只有“0”和“1”两个符号

C．比特既可以表示数值和文字，也可以表示图像和声音 D. 比特”1”总是大于比特“0”

2． 在下列有关集成电路的叙述中，错误的是 ( 2 ) A．现代集成电路使用的半导体材料主要是硅

B．大觑模集成电路一般以功能部件、子系统为集成对象 C．我国第2代居民身份证中包含有IC芯片

D? 目前超大规模集成电路中晶体管的基本线条已小到l纳米左右 3． 在下列有关通信技术的叙述中，错误的是 ( 3 )

A.通信的基本任务是传递信息，因而至少需由信源、信宿和信道组成 B.通信可分为模拟通信和数字通信，计算机网络属于模拟通信

C.在通信系统中，采用多路复用技术的目的主要是提高传输线路的利用率 D?学校的计算机机房一般采用5类无屏蔽双绞线作为局域网的传输介质 4.下面是关于PC机主存储器的一些叙述，其中正确的是( 4 ) A.主存储器是一种动态随机存取存储器(RAM) B.主存储器的基本编址单位是字(即32个二进位)

C.目前市场上销售的PC机，其内存容量可达数十GB D.所有PC机的内存条都是通用的：可以互换

5． 现行PC机中，IDE(或SATA)接口标准主要用于( 5 ) A．打印机与主机的连接 C．声卡与主机的连接 B．显示器与主机的连接 D．硬盘与主机的连接

6. 下列有关PC机的CPU、内存和主板的叙述中，正确的是( 6 ) 。 A．大多数Pc机只存一块CPu芯片，即使是“双核”CPU也是一块芯片 B．所有Pentium系列微机的内存条相同，仅有速度和容量大小之分 C．主板上芯片组的作用是提供存储器控制功能，I/O控制与芯片组无关 D．主板上CMOS芯片用于存储CMOS设置程序和一些软硬件设置信息 7.下列有关目前Pc机辅助存储器的叙述中，错误的是 ( 7 ) A．硬盘的容量越来越大，这是因为硬盘中磁盘碟片的数目越来越多 B．硬盘的内部传输速率一般小于外部传输速率 c．优盘采用Flash存储器技术，属于半导体存储器

D．目前常见COMBO光驱是一种将CD-RW和DVD-ROM组合在一起的光驱 8.下面有关Windows操作系统，(95以后版本)的叙述中，错误的是 ( 8 ) 。 A．Windows操作系统支持系统中多个任务的并发执行

B．利用Whldows附件“系统工具”中的“系统信息”可以查看内存的工作情况 C．系统规定文件名最多由128个字符组成

D．Vista是Microsoft公司推出的Windows XP操作系统的后继版本

9.算法设计是编写程序的基础。下列关于算法的叙述中，正确的是 ( 9 ) 。 A． 算法必须产生正确的结果 C． 算法可以没有输出

B． 算法必须具有确定性 D．算法的表示必须使计算机能理解

10．因特网使用TCP／IP协议实现全球范围的计算机网络互连，连接在因特网上的每一台主机

都有一个IP地址。下面不能作为IP地址的是( 10 ) A． 120．34．0．18 C． 21．18．33．48 B. 201.256.39.68 D． 37．250．68．0

11.常用局域网有以太网、FDDI网等，下面的叙述中错误的是 ( 11 )

A? 总线式以太网采用带冲突检测载波侦听多路访问(CSMA/CD)方法进行通信 B． FDDI网和以太网可以直接进行互连

C? 交换式集线器比总线式集线器具有更高的性能，它能提高整个网络的带宽． D? FDDI网采用光纤双环结构，具有高可靠性和数据传输的保密性

12.某用户在WWW浏览器地址栏内键入一个URL“http://www.zdxy.cn/index.htm”，其中 的“/index.htm”代表( 12 ) A．协议类型 C．路径及文件名 B．主机域名 D．用户名

13.交换式以太网与总线式以太网在技术上有许多相同之处，下面叙述中错误的是( 13 )

A.使用的传输介质相同 C.传输的信息帧格式相同 B.网络拓扑结构相同 D.使用的网卡相同

14.下面是关于我国汉字编码标准的叙述，其中正确的是 ( 14 ) A．Unicode是我国最新发布的也是收字最多的汉字编码国家标准 B．不同字型(如宋体、楷体等)的同一个汉字在计算机中的内码不同 C．在GBl8030汉字编码标准中，共有2万多个汉字 D．GBl8030与GB2312、GBK汉字编码标准不能兼容

15．数字图像的文件格式有多种，下列哪一种图像文件能够在网页上发布且可具有动画效 果( 15 )

A．BMP B．GIF C．JPEG D．TIF 16．声卡是获取数字声音的重要设备，．在下列有关声卡的叙述中，错误的是 A．声卡既负责声音的数字化(输入)，也负责声音的重建(输出) B．声卡既处理波形声音，也负责MIDI音乐的合成 。

C．声卡中的数字信号处理器(DSP)在完成数字声音编码、解码及编辑操作中起着重 要的作用

D．因为声卡非常复杂，所以它们都被做成独立的PCI插卡形式

17．彩色图像所使用的颜色描述方法称为颜色模型。显示器使用的颜色模型为RGB三基色模

型，PAL制式的电视系统在传输图像时所使用的颜色模型为 A．YUV B．HSB C．CMYK

18．在信息系统的结构化生命周期开发方法中，绘制E-R图属于( 18 )阶段的工作 A．系统规划 B． 系统分析 C．系统设计 D． 系统实施

19．在下列有关Microsoft Word 2000／2003(中文版)功能的叙述中，( 19 ) A．起始页的页码可以不为1

B．利用菜单命令，可更改所选英文文本的大小写 C．利用菜单命令“字数统计”，可以统计出当前文档的行数和段落数 D．表格中的数据不可排序，也不能利用公式进行统计计算 20．在下列有关Microsoft PowerPoint 2001/2003(中文版)功能的叙述中，错误的是( ) A．可通过“另存为”操作，将每张幻灯片保存为一个图片文件

B．幻灯片的大小是固定的，用户不可以对其进行设置 C．在排练计时的基础上，可以将幻灯片设置为循环放映

D．可以对字体进行替换，例如将幻灯片中的“宋体”替换为“楷体”

21.下列语句中，正确的是__________

A．Textl．SetFocus B．Forml．Clear C．Labell．SetFocus D．Listl．Cls

22．创建一个名为“文件”的菜单项，欲使其可用Alt+F方式访问，则在菜单编辑器的标题文本框中应输入_________。

A．文件($F) B．文件(&F) C．文件(#F) D．文件(％F) 23．数学表达式的VB算术表达式为_______ 。 A．Sin(27)+Sqr(X+Exp3)／(X+Y)

B．Sin(27*3．14159／180)+Sqr(X+Exp(3))／Abs(X+y) C．Sin(27*3．14159／180)+Sqr(X+e^3)／Abs(X+Y) D．Sin(27*pi／180)+Sqr(X+Exp(3)／Abs(X+Y) 24．以下说法不正确的是____________。

A．使用不带关键字Preserve的ReDim语句可以重新定义数组的维数 B．使用不带关键字Preserve的ReDim语句可以改变数组各维的上、下界 c．使用不带关键字Preserve的ReDim语句可以改变数组的数据类型

D．使用不带关键字Preserve的ReDim语句可以对数组中的所有元素进行初始化 25．下列____________是合法的变量名。

A．abs B．-al C．cdc d D．Abe_10

26．要向文件datal．txt添加数据，正确的文件打开命令是_____________。 A．Open”datal．txt”For Output As #1 B．Open”datal．txt”For Input As #1 C．Open”datal．txt”For Append As #5 D．Open“datal．txt“ For Write As #5

27．以下对数组参数的说明中，错误的是___________ 。 A．在过程中可以用Dim语句对形参数组进行声明 B．形参数组只能按地址传递

c．实参为动态数组时，可用ReDim语句改变对应形参数组的维界 D．只需把要传递的数组名作为实参，即可调用过程

28．设a=3，b=2，c=1，运行print a>b>c的结果是____________。 A．True B．False C．1 D．出错

29．下列选项中，所包含的所有表达式能够将两位整数x的个位数与十位数对调(如将78转换为87)的是_______________。 ①Val(Right(X，1)&Left(X，1))

②Val(Right(Str(X)，1)＆Left(Str(X)，1)) ③Val(Right(CStr(X)，1)＆Left(CStr(X)，1)) ④Val(Mid(X，2，1)+Mid(X，1，1))

A．①② B．②③ c．②④ D．①③④ 30．下列______是正确的VB常量。

A．D-6 B．E-6 C．5D D．5E-6

二、填空题(请将答案填写在答题纸的相应答题号内，每个答案只占一行)

1．执行下面程序，单击Commandl，则窗体上显示的第一行是 (1) ，第二行是 (3) ，第三行是(3) 。 Option Explicit

Private Sub Commandl—Click() Dim a As String，i As Integer Dim X As String，z As String a=??iamstudent?? i=InStr(5，a，”d”) Do

x=Mid(a，i，3) z=Right(X，1) z=UCase(x＆Z) i=i-2 Print z Loop Until i=1 End Sub 2．执行以下程序，单击Commandl，则在Picturel上显示的第一行是 第三行是(6) 。 Option Explicit

Private Sub Commandl_Click()

Dim A(3，3)As Integer，i As Integer，J As Integer Dim k As Integer

i=3：j=2：A(i，j)=l：k=1 Do Until k>9 k=k+1

If i+1>3 Aod j+1<=3 Then i=1：J=j+1

ElseIf i+1<=3 And j+1>3 Then i=i+1：j=1

Elself i+1>3 And j+1>3 Then i=i-1

ElseIf i+1<=3 And j+1<=3 And A(i+1，j+1)<>0 Then i=i-1 Else

i=i+1：j=j +1 End If A(i,j)=k Loop

For i=1 To 3 For j=1 To 3

Picture1.Print A(i,J); Next J

(4) ，第二行是(5) ， Next I End Sub

3．执行下面的程序，单击Commandl，则窗体上第一行显示的是 (7) ，第二行显示的 是(8) 。

Option Explicit Dim X As Integer

Private Sub Commandl_Click() Dim Y as Integer X=10：Y=2 Call process(Y) Print X，Y

Call process((Y)) Print X，Y End Sub

Private Sub process(n As Integer) Dim Y As Integer If n>0 Then X=X—n Y=X Else

X=X+n Y=X+2 End If n=-n End Sub

4．执行下面的程序，连续三次单击命令按钮Commandl之后，A数组共有 (9) 个元 素；数组元素A(2)的值是(10) ，A(4)的值是．(11) 。 Option Explicit Option Base 1

Private Sub Commandl_Click() Static A()As Integer，n As Integer Dim i As Integer，k As Integer k=n ? n=n +2

ReDim Preserve A(n) For i=k+1 To n A(i)=i*n+1 Next i

For i=1 To n Print A(i)； Next i Print End Sub

5．执行下面的程序，单击Commandl，在窗体界面上显示的第一行是 (12) ，第二行

是 (13) ，第三行是(14) ，第四行是(15) 。 Option Explicit

Private Sub Commandl_Click()

Dim a As Integer，b As Integer，i As Integer i=1218 a=i\\100

b=i Mod 100 If b<>0 Then Print a Print b

． Print Lcd((a)，(b))；a；b Print Lcd(a，b)；a；b End If End Sub

Private Function Lcd(x As Integer，Y As Integer)As Integer Dim d As Integer ? If x

d=x：x = Y：Y = d End If d=X Do

If x Mod Y=0 Then Lcd=x Exit Do Else X=x+d End If Loop End Function

6.本程序的功能是利用无穷级数求cos(x)的近似值,已知: 当第n项的绝对值小于等于10^-7时计算终止。 Option Explicit

Private Sub Commandl_Click()

Dim X As Single，n As Integer，sum As Single Dim a As Single x=Textl ( 16 ) a=1 n=1 Do a=-a

a=( 17 ) sum=sum+a n=n+1

Loop Until( 18 ) Text2=sum End Sub

7．定义方阵的一种范数为该方阵各列元素的绝对值之和中的最大值。以下程序的功能 是求一个4×4方阵的范数。该方阵的数据是随机生成的-20～20之间的整数。 Option Explicit Option Base 1

Private Sub Commandl_Click() Dim a(4，4) As Integer

Dim i As Integer，j As Integer For i=1 T0 4 For j=1 To 4

a(i，j)= ( 19 )

Picturel．Print Right(\ &Str(a(i，j))，4)； Next j

Picturel．Print Next i

Textl.Text= ( 20 ) End Sub

Private Function fan(a()As Integer)As Integer Dim b(4) As Integer，max As Integer Dim i As Integer，j As Integer For i=1 To 4 For j=1 To 4

b(j)=( 21 ) Next J Next i max=b(1)

For i=2 To 4 If max Next i fan=max End Function

8．下面程序的功能是：找出仅由数字1、2、3、4组成的4位素数，要求每个素数由4个不 同数字组成。算法提示：函数Validate用于验证一个4位数是否由4个不同数字组成。在函 数中用A数组的各个元素分别对应数字0～9，只要某数字出现在四位数中，无论几次，均将该数字对应的数组元素值置为1。 Option Explicit

Private Sub Commandl_Click()

Dim i As Integer，Flg As Boolean For i=1234 To 4321

( 22 )

Call Prime(i，Flg) If Flg Then

If Validate(i)Then

Textl=Textl & i & vbCrLf ． End If End If Next i End Sub

Private Sub Prime(n As Integer，f As Boolean) Dim k As Integer For k=2 To Sqr(n) ( 23 ) Next k f=True End Sub

Private Function Validate(n As Integer)As Boolean

Dim A(0 To 9)As Integer，s As String，i As Integer Dim sl As String*1 ． ( 24 ) For i=1 To Len(s) sl=Mid(s，i，1) ( 25 ) Next i

If A(1)+A(2)+A(3)+A(4)=4 Then ( 26 ) End If End Function

9．下面程序的功能是：首先生成一个由小到大已排好序的整数数组，再输入一个数据，单击“插入”按钮会自动把这个数据插人到原数组适当的位置，并保持数组的有序性。 Option Explicit Dim a( )As Integer

Private Sub Form_Activate() Dim i As Integer ReDim a(10) For i=1 To 10 a(i)=(i-1)*10+1

Textl=Textl & Str(a(i)) Next i

Text2.SetFocus End Sub

Private Sub Commandl_Click() Dim n As Integer，i As Integer n=Text2

For i=1 To UBound(a)

If ( 27 )Then Exit For Next i

( 28 )

For i=1 To UBound(a)

Text3=Text3 & Str(a(i)) Next i End Sub

Private Sub inst(P()As Integer，n As Integer，k As Integer)

'数组元素移位并实现插入 Dim i As Integer ( 29 )

For i=UBound(P)-l To k Step -1 ( 30 ) Next i P(k)=n End Sub 参考答案:

21.A22.B 23.B.24.C.25.D.26.C27A28B29D30D 填空

(1)DENN(2)TUDD(3)MSTT(4)4 9 2(5)3 5 7 (6)8 1 6 (7)8 -2 (8)6 -2 (9)6 (10)5 (11)17 (12)12 (13)18 (14)36 12 18 (15)36 36 12 (16)sum=1 (17)a*x*x/(2*n*(2*n-1)) (18)Abs(a)<=0.0000001 (19)Int(Rnd*41)-20 (20)fan(a) (21)b(j)+Abs(a(i,j)) (22)Flg=False (23)If n Mod k=0 Then Exit Sub (24)s=Cstr(n)或s=n (25)A(Val(s1))=1或A(s1)=1 (26)Validate=True (27)n (28)Call Inst(a,n,i)或inst a,n,i (29)Redim Preserve p(UBound(p)+1) (30)p(i+1)=p(i)

二：编程题目(26分)

编写一个查找介于整数A、B之间所有同构数的程序，若一个数出现在自己平方数的右端，则称此数为同构数，例如：5在5^2=25的右端，25在25^2=625的右端，故5和25为同构数

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

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.已知XB，则下列表达式中，结果为True的是( 28 ) A.Sgn(x-Y)+Sgn(A-B)=-1 B.Sgn(X-Y)+Sgn(A-B)=-2 C.Sgn(Y-X)+Sgn(A-B)=2 D.Sgn(Y-X)+Sgn(A-B)=0

29.下列能够正确表示条件\≤Y

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 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 ( 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地址为202.119.191.1，其中每个十进制数对应一个8位的二进制数，合起来构成一个32位二进制的IP地址11001010011101111011111100000001。过程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 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

2008年(春)笔试试卷

第一部分计算机基础知识

(1)D (2)C (3)B (4)C (5)B (6)A (7)C (8)C (9)A (10)C (11)B (12)A (13)D (14)A (15)B (16)A (17)C (18)B (19)B (20)D

第二部分 Visual Basic程序设计 一、选择题

(21)D (22)A (23)C (24)B(25)D (26)C (27)A (28)C (29)B(30)C 二、填空题

(1)9 12 (2)3 -3

(3)0 -6 (4)D H L (5)N R V (6)X B F (7)-1 (8)1 (9)4 (10)lO (11)0、、 (12)15 (13)5 15 (14)2 35 (15)- 1 56 (16)t=x (17)Abs(t)

(18)t*x*x/(2*n*(2*n+1)或t*x^2/(2*n)/(2*n+1) (19)prime(n)或prime(n)=True (20)i=k

(21)prime=False (22)ByVal n As Integer，a() As Integer (23)n=n\\k (24)k=k+1

(25)n=1 (26)str2=str2 & convert(a(i)) (27)d=Mid(st，i，1) (28)s=\

(29)S=CStr(b) & S或S=b & S (30)convert=s 绝密★启用前

2009年春江苏计算机等级考试二级vb试卷 第一部分计算机基础知识

1. 在下列有关现代信息技术的一些叙述中，正确的是 1 。

A.集成电路是20世纪90年代初出现的，它的出现直接导致了微型计算机的诞生 B.集成电路的集成度越来越高，目前集成度最高的已包含几百个电子元件 C.目前所有数字通信均不再需要使用调制解调技术和载波技术

D.光纤主要用于数字通信，它采用波分多路复用技术以增大信道容量‘ . 2. 最大的10位无符号二进制整数转换成八进制数是 2 .。 A.1023 B.1777 C.1000 D.1024

3. 在下列有关目前PC机CPU的叙述中，错误的是 3 。 A.CPU芯片主要是由Intel公司和AMD公司提供的 B.\双核\是指PC机主板上含有两个独立的CPU芯片 C.Pentium 4微处理器的指令系统由数百条指令组成 D.Pentium 4微处理器中包含一定容量的Cache存储器

4. 在下列有关当前PC机主板和内存的叙述中，正确的是 4 。 A.主板上的BIOS芯片是一种只读存储器，其内容不可在线改写

B.绝大多数主板上仅有一个内存插座，因此PC机只能安装一根内存条 C.内存条上的存储器芯片属于SRAM(静态随机存取存储器) D.目前内存的存取时间大多在几个到十几个ns(纳秒)之间

5. 在下列有关PC机辅助存储器的叙述中，正确的是 5 。 A.硬盘的内部传输速率远远大于外部传输速率

B.对于光盘刻录机来说，其刻录信息的速度一般小于读取信息的速度 C.使用USB 2.0接口的移动硬盘，其数据传输速率大约为每秒数百兆字节 D.CD-ROM的数据传输速率一般比USB 2.0还快

6. 在下列PC机I/O接口中，数据传输速率最快的是 6 。 A.USB 2.0 B.IEEE-1394 C.IrDA (红外) D.SATA

7. 计算机软件可以分为商品软件、共享软件和自由软件等类型。在下列相关叙述中，错误的是 7 。

A.通常用户需要付费才能得到商品软件的使用权，但这类软件的升级总是免费的 B.共享软件通常是一种\买前免费试用\的具有版权的软件 C.自由软件的原则是用户可共享，并允许拷贝和自由传播

D.软件许可证是一种法律合同，它确定了用户对软件的使用权限

8. 人们通常将计算机软件划分为系统软件和应用软件。下列软件中，不属于应用软件类型的是 8

A.AutoCAD B.MSN C.Oracle D.Windows Media Player

9. 在下列有关Windows 98/2000/XP操作系统的叙述中，错误的是 9 。 A.系统采用并发多任务方式支持多个任务在计算机中同时执行 B.系统总是将一定的硬盘空间作为虚拟内存来使用 C.文件(夹)名的长度可达200多个字符

D.硬盘、光盘、优盘等均使用FAT文件系统

10. 在下列有关算法和数据结构的叙述中，错误的是 10 。

A.算法通常是用于解决某一个特定问题，且算法必须有输入和输出

B.算法的表示可以有多种形式，流程图和伪代码都是常用的算法表示方法 C.常用的数据结构有集合结构、线性结构、树形结构和网状结构等 D.数组的存储结构是一种顺序结构

11?因特网的IP地址由三个部分构成，从左到右分别代表 11 。 A.网络号、主机号和类型号 B.类型号、网络号和主机号 C.网络号、类型号和主机号 D.主机号、网络号和类型号

12?在下列有关ADSL技术及利用该技术接入因特网的叙述中，错误的是 12 。 A.从理论上看，其上传速度与下载速度相同

B.一条电话线上可同时接听/拨打电话和进行数据传输

C.利用ADSL技术进行数据传输时，有效传输距离可达几公里 D.目前利用ADSL技术上网的计算机一般需要使用以太网网卡

13.人们往往会用\我用的是10M宽带上网\来说明白己计算机连网的性能，这里的\ 指的是数据通信中的 13 指标。 A.最高数据传输速率 B.平均数据传输速率 C.每分钟数据流量

D.每分钟IP数据包的数目

14?计算机局域网按拓扑结构进行分类，可分为环型、星型和 14 型等。 A.电路交换 B.以太

C.总线 D.对等

15.网络信息安全主要涉及数据的完整性、可用性、机密性等问题。保证数据的完整性就是 15 。

A.保证传送的数据信息不被第三方监视和窃取 B.保证发送方的真实身份

C.保证传送的数据信息不被篡改

D.保证发送方不能抵赖曾经发送过某数据信息

16.某计算机系统中，西文使用标准ASCII码、汉字采用GB2312编码。设有一段纯文本，其机内码为CB F5 DO B4 50 43 CA C7 D6 B8，则在这段文本中含有： 16 。 A.2个汉字和1个西文字符 B.4个汉字和2个西文字符 C.8个汉字和2个西文字符 D.4个汉字和1个西文字符

17.以下关于汉字编码标准的叙述中，错误的是 17 。

A.GB 2312标准中所有汉字的机内码均用双字节表示 B.我国台湾地区使用的汉字编码标准BIG 5收录的是繁体汉字

C.GB 18030汉字编码标准收录的汉字在GB 2312标准中一定能找到

D.GB 18030汉字编码标准既能与UCS(Unicode)接轨，又能保护已有中文信息资源 18.若波形声音未进行压缩时的码率为64kb/s，已知取样频率为8kHz，量化位数为8，那么它的声道数是 18 。 A.1 B.2 C.4 D.8

19.从信息处理的深度来区分信息系统，可分为业务处理系统、信息检索系统和信息分析系统等。在下列几种信息系统中，不属于业务处理系统的是 19 。 A.DSS B.CAI C.CAM D.OA

20.在下列有关信息系统开发、管理及其数据库设计的叙述中，错误的是 20 。 A.常用的信息系统开发方法可分为结构化生命周期方法、原型法、面向对象方法和CASE方法等

B.在系统分析中常常使用结构化分析方法，并用数据流程图和数据字典来表达数据和处理过程的关系

C.系统设计分为概念结构设计、逻辑结构设计和物理结构设计，通常用E-R模型作为描述逻辑结构的工具

D.从信息系统开发过程来看，程序 第二部分Visual Basic程序设计

一、选择题(用答题卡答题，答案依次填在21—30答题号内)

21．在列表框Listl中有若干列表项，可以删除选定列表项的语句是 21 A．List1.text=\ B．List1．List(Listl．ListIndex)=\ C．List1.Clear D．List1.RemoveItem List1.ListIndex 22．执行 22 语句时，会出现出错提示信息。 A．Print 5+7=14 B．Print 16384*2 C．Print 32768*2 D．Print \23.数学表达式 对应的VB表达式是 23 。

A。(e^(2*∏*x—5)*Log(x)+(Sin(2x))^3)/Sqr(Sin(x)-Cos(x^2))

B．(Exp(2*3．14159*x一5)*Log(x)+(Sin(2*x))^3)/Sqr(Sin(x)一Cos(x^2))

C．(Exp(2*∏*x—5)*Ln(x)+(Sin(2*x))^3)/Sqr(Sin(x)—Cos(x^2))

D．e^(2*3.14159*x一5)*Ln(x)+(Sin(2*x))^3)/Sqr(Sing(x)—Cos(x^2)) 24．以下关于数组的说法中，错误的是 24 。

A．使用了Preserve予句的ReDim语句，只允许改变数组最后一维的上界 B．对于动态数组，ReDim语句可以改变其维界但不可以改变其数据类型 C．Erase语句的功能只是对固定大小的数组进行初始化 D．LBound函数返回值是指定数组某一维的下界

25．下列有关过程的说法中，错误的是 25 。 ‘

． A．在Sub或Function过程内部不能再定义其它Sub或Function过程

B．对于使用ByRef说明的形参，在过程调用时形参和实参只能按传址方式结合 C．递归过程既可以是递归Function过程，也可以是递归Sub过程 D．可以像调用Sub过程一样使用Call语句调用Function过程 26．以下有关对象属性的说法中，错误的是 26 。 A．工具箱中的控件并不是VB中所有的控件

B．若将Frame的Enabled属性设置为False，则不能使用放置在Frame里面的控件 C．对象的Name属性在运行时不能改变

D．对象的所有属性都可以在属性窗口中设置

27．以下关于变量作用域的叙述中，正确的是： 2Z 。

A．窗体中凡用Private声明的变量只能在某个指定的过程中使用 B．模块级变量只能用Dim语句声明

C.凡是在窗体模块或标准模块的通用声明段用Public语句声明的变量都是全局变量 D.当不同作用域的同名变量发生冲突时，优先访问局限性小的变量

28.表达式CInt(4.5)+CInt(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2的运算结果是 28 A.1 B.-1 C.-2 D.-3

29.若要使逻辑表达式x>y Xor Y结果为True，则x、Y、z的取值应为下列选项中的 22 。 A.X=3、Y=3、Z=4 B.X=2、Y=1、Z=2 C.x=1、Y=3、Z=2 D.x=2、Y=2、Z=2

30.在一个多窗体程序中，可以仅将窗体Form2从内存中卸载的语句是 30 A.Form2.Unload B．Unload Form2 C．Form2.End D．Form2.Hide 二、填空题(请将答案填写在答题纸的相应答题号内，每个答案只占一行)

1.执行下面程序,单击Commandl,则图片框中显示的第一行是(1)，显示的第二行是(2) ，最后一行显示的是 (3) 。

Private Sub Command1_Click() Dim a(3，3)As Integer

Dim i As Integer,j As Integer For i=1 To 3

For j=3 To 1 Step -1 If i>=j Then a(i,j)=i-j Else

a(i，j)=j-i End If Next j Next i

For i=1 to 3

For j=3 To 1 Step -1 Picture1.Print a(i,j); Next j Picturel．Print Next i EndSub

2.运行下面程序,如果连续三次单击命令按钮之后，A数组共有(4) 个元素；数组元素A(2)的值是(5)，A(5)的值是(6) Option Explicit Option Base l

Private Sub Command1_Click() Static A() As Integer,N As Integer Dim I As Integer,K As Integer K=N N=N+2

ReDim Preserve A(N) For I=K+1 To N A(I)=I*N+1 Next I

ForI=1 To N Print A(I)； Next I Print EndSub

3．运行下面的程序，单击commandl，在窗体上显示的变量A的值为( 7 ),变量B的值为( 8 ) Option Explicit

Dim A As Integer

Private Sub Command1_Click() Dim B As Integer B=3 A=4

B=Fun(Fun(A,B+2),A)+B Print A,B EndSub

Private Function Fun(N As Integer,K As Integer) N=N+A K=N-K

Fun=N+K+A End Function

4．执行下面的程序，单击command1,窗体上显示的第一行是( 9 )，第二行是( 10 ),第四行是( 11 ),最后一行是( 12 ) Option Explicit

Private Sub Command1_Click()

Dim n As Integer n=5

Call test(n) Print n

End Sub

Private Sub test(ByVal n As Integer) Dim i As Integer,S As String If n>0 Then For i=l To n S=S & CStr(i) Next i

Print S

Call test(n-2) Else

Print \ EndIf EndSub

5.运行下列程序，单击Command1，在窗体上显示的第一行内容是 ( 12 ),第二行的内容是( 14 )，第三行的内容是( 15 )(\的ASCII码是65,\是90) Option Explicit

Private Sub Commandl_Click()

Dim i As Integer,st As String，n As Integer,p As String*1 P=\

For i=3 To 1 Step -1 n=Asc(p)-i

If n<65 Then n=n+26 st=Chr(n) st=st & F(i) Print st Next i EndSub

Private Function F(n As Integer) Dim i As Integer Static S As Integer For i=1 To n s=s+i Nexti F=S

End Function

6?用以下公式求f(x)的值。当通项的绝对值小于10^-7时停止计算，x的值由键盘输入。 f(x)=a1x1-a2x2+a3x3-…+(-1)n+1anxn+… |X| 1

其中 a1=1，a2=2，an= ,n=3,4,5? Option Explicit

Private Sub Commandl_Click()、 Dim x As Single，fx As Single

Dim a As Single，a1 As Single,a2 As Single Dim t As Single a1=l：a2=2 x=text1

If ( 16 ) Then

MsgBox(\必须在-1---1之间\ ExitSub End If

fx=a1*x-a2*x*x t=(-1)*x*x DO

a=1/(al+a2) t=(-1)*x*x fx=( 17 ) al=a2 ( 18 )

Loop Until Abs(a*t)<0.0000001 Text2=fx End Sub

7.学生的某次课程测验中，选择题的答案已记录在列表框list1中，其数据行格式是:学号为6个字符长度，2个空格，选择题的答案为15个字符长度，程序根据标准答案进行批改，每答对一题给1分，并将得分存放到列表框list1中，标准答案存放在变量Exact中。 Option Explicit

Private Sub Command1_click()

Dim Anw as string , StudId as string Dim Scor as Integer, Exact as string Dim I as Integer, J as integer

Exact=”ABCCBAACBBDCCDA” For I=( 19 ) Anw=（ 20 ） StudId=Left(Anw,6)

Anw=Right(Anw,Len(Anw)-8) ( 21 )

For J=1 to Len(Anw) If （ 22 ） Then Scor=Scor+1 End If Next J

List2.AddItem StudId & “ “ & Scor Next I End Sub

8．下面程序的功能是：统计存放在数组A中的N个数有多少个是不同的。具体做法是：变

量Left指向要被处理的数(从第2个元素开始)，Right指向数组最后一个元素。若A(Left)与排在它前面的某个数组元素值相同，就用数组元素A(Right)的值来替换A(Left)的值，同时将变量Right的值减1；否则将变量Left的值加1，处理数组下一个元素，重复以上过程，直到Left>Right为止。Right的值即为不同的数的个数。 Option Explicit OptionBase 1

Private Sub Commandl_Click()

Dim A() As Integer,N As Integer,I AS Integer Dim OP As Integer

N=InputBox(\请输入数据个数\ReDim A(N) Randomize

For I=1 To N

A(I)=Int(Rnd*10)+1

Text1=Text1 & A(1) & \Next I

Call Statistic(A,OP)

Text2=\有\ & oP & \个不同的数:\For I=1 To OP

Text2=Text2 & A(I) & \ Next I End Sub

Private Sub Statistic(A() As Integer,Right As Integer) Dim Left As Integer,K As Integer,I As Integer Right=( 23 ) Left=2

Do While Left<=Right K=( 24 )

For I=K To 1 Step -1

If A(Left)=A(I) Then Exit For Next I

If ( 25 )Then Left=Left+1 ． Else

A(Left)=A(Right) ( 26 ) End If Loop End Sub

9.在计算机中用一个字节(8位),来存储一个字符的Ascii码，其中低7位二进制数对应字符的编码，每个字节的最高位一般保持为”0”,在数据传输时可用作奇偶校验位，传输时Ascii代码转换成传输码的方法是:若7位Ascii码有偶数个1，最高位为1，有奇数个1，则最高

位为0，例如字母”A”的Ascii码十进制表示为65,二进制表示为00100001。”A”的传输码则为”1010 0001”,本程序的功能就是把Ascii码转换成这种传输码 Option Explicit

Private Sub Commandl_Click() Dim i As Integer，S As String Dim str As String，ch As String str=Text1.text

For i=1 To Len(str) ( 27 )

Call convert(ch，s)

List1.AddItem ch & \ Next i End Sub

Private Sub convert(ch As String，S As String)

Dim m As Integer,k As Integer,n As Integer,i As Integer s= ( 28 ) n=Asc(ch) Do While n>0 ( 29 ) S=m & S If m=1 Then k=k+1 End If n=n\\2 Loop

For i=1 To 7-Len(s) '将字符的二进制代码补足7位 S=\ Next i

If k Mod 2=0 Then ( 30 ) Else

S=\ End If End Sub 答案:

2009年(春)笔试试卷 。 第一部分计算机基础知识

(1)D (2)B (3)B (4)D (5)B (6)D (7)A (8)C (9)D (10)A (11)B (12)A (13)A (14)C (15)C

(16)B (17)C (18)A (19)A (20)C ， 第二部分Visual Basic程序设计 一、选择题

(21)D (22)B (23)B (24)C (25)B

(26)D (27)C (28)D (29)A(30)B 二、填空题 ， (1)2 1 0 (2)1 0 1 (3)0 1 2 (4)6 f5)5 (6)31

(7)19 (8)68 ． f9)12345 (10)123

(11)OVER (12)5 ， (13)Y6 (14)Z9

(15)A10 (16)Abs(x)>=1 ． (17)fx+a*t (18)a2=a

(19)0 To Listl.ListCount-1 (20)Listl.List(I)

(21)Scor=0 (22)Mid(Anw，J，1)=Mid(Exact，J，1) (23)UBound(A) (24)Left-1 (25)I=0 (26)Right=Right-1 (27)ch=Mid(str，i，1) (28)\(29)m=n Mod 2 (30)s=\

2009秋VB考试真题及参考答案 第一部分:计算机基础知识

1.下列关于个人移动通信的叙述中,错误的是____

A.第1代个人移动通信(简称1G)采用的通信技术是数字通信技术

B.目前广泛使用的GSM手机采用的通信技术属于第2代移动通信技术(简称2G) C.第3代移动通信技术(简称3G)将无线通信与互联网、多媒体通信相结合 D.3G有多个国际技术标准,其中也有我国自主制定的3G技术标准。 2.在下列有关集成电路的叙述中,正确的是2。 A.现代集成电路所使用的半导体材料都是硅 B.所有的集成电路都是数字集成电路

C.Moore定律认为单块集成电路的集成度平均每年翻一番

D.Intel公司微处理器产品Core 2 Duo,其集成度已高达数千万个电子元件 3.与十六进制数AB等值的八进制数是3 。 A. 253 B.254 C.171 D.172

4.在下列有关PC机CPU的叙述中,错误的是4。

A.CPU中包含几十个甚至上百个寄存器,用来临时存放数据、指令和控制信息 B.所有PC机的CPU都具有相同的指令系统,因而PC机可使用相同的软件 C.一台计算机至少包含1个CPU,也可以包含2个、4个、8个甚至更多个CPU D.Intel公司是国际上研制和生产CPU的主要公司,我国也能生产CPU 5.在下列有关PC机主板上部件的叙述中,错误的是5 。

A.BIOS保存在主板上的一个闪存中,其内容在关机后通常不会改变

B.CMOS中保存有用户设置的开机口令,关机后主板上的电池继续给CMOS供电 C.启动CMOS设置程序可以重新设置CMOS中的数据,该程序是BIOS的组成部分 D.网卡通常集成在主板上,由主板上独立的IC实现其功能,与芯片组无关 6.从PC机存储器的层次结构来看,下列存储器中存取速度最快的是6 。 A.Cache存储器 B.RAM和ROM C.寄存器 D.硬盘和优盘

7.在下列4种PC机常用I/O接口中,数据传输速率最高的是7。 A.PS/2 B.SATA C.IEEE-1394b D.USB 2.0

8.在下列有关I/O操作、I/O总线和I/O接口的叙述中,错误的是8。 A.I/O操作的任务是在I/O设备与内存的指定区域之间传送信息 B.I/O总线传送的只能是数据信号,它不能传送控制信号和地址信号

C.不同类型的I/O接口,其插头/插座以及相应的通信规程和电气特性通常各不相同 D.并行总线的数据传输速率不一定比串行总线高 9.在下列有关PC机I/0设备的叙述中,错误的是9。

A.数码相机的成像芯片可以为CCD器件或CMOS芯片,目前大多数用CCD器件 B.平板式扫描仪的分辨率通常远远高于胶片扫描仪和滚筒式扫描仪 C.常见的宽屏液晶显示器的宽度与高度之比为16:9(或16:10)

D.目前在银行、超市等商业部门一般采用针式打印机来打印存折和票据 10.在下列有关计算机软件的叙述中,错误的是10 。

A.程序设计语言处理系统和数据库管理系统被归类为系统软件 B.共享软件是一种具有版权的软件,它允许用户买前免费试用 C.机器语言和汇编语言与特定的计算机类型有关,取决于CPU

D.目前PC机只能使用Windows系列操作系统,均不能使用UNIX和Linux操作系统

11.在下列常用的PC机软件中,编辑的文档(内容)能直接保存为图片类型(例如JPEG文件类型)的是11 。

A.Microsoft Word B.Microsoft Excel C.Microsoft PowerPoint D.Microsoft FrontPage

12.在下列关于以太网(局域网)的叙述中,错误的是12。 A.在共享式以太网中,任何时间只允许一对计算机进行通信

B.在交换式以太网中,每台计算机均独享相同的带宽,其带宽仅由交换机决定

c.无论是共享式以太网还是交换式以太网,网络中的所有计算机都要安装以太网网卡 D.无论是共享式以太网还是交换式以太网,它们的数据帧和MAC地址格式均相同

13.连接在因特网上的每一台主机都有一个IP地址。下面不能作为IP地址的是13 。 A.211.256.49.68 B.21.18.33.48 C.120.34.0.18 D.37.251.68.0

14.为了将异构的计算机网络互相连接起来,必须使用的网络设备是14 。 A.调制解调器 B.以太网集线器 c.以太网交换机 D.路由器 15.下列网络协议中,与发送电子邮件有关的是15 。 A.Http B.FTP C.SMTP D.TELNET

16.在下列有关字符集及其编码的叙述中,错误的是16 。

A.基本的ASCII字符集共有128个字符,每个字符使用7个二进位进行编码 B.GB2312字符集中收录了6千多个汉字,每个字符在机内通常使用双字节编码 C.GBK字符集中的字符也采用双字节编码,且该字符集收录了部分繁体汉字

D.GB18030字符集中所有的字符均采用4字节编码,因此该字符集的代码空间很大 17.目前数码相机拍摄的照片在保存时通常采用的文件类型是17 。 A.BMP B.GIF C.JPEG D.TIF

18.MP3是数字波形声音的一种压缩编码文件格式,它采用的压缩编码标准属于18 。 A.MPEG-1 B.MPEG-2 C.MPEG-4 D.Dolbv AC-3

19.使用Macromedia公司的Flash软件制作的动画是一种矢量图形,在保存为动画文件 时其文件扩展名通常为19 。

A.GIF B.SWF C.AVI D.MPG 。

20.在计算机应用中,CAD和CAM是典型的信息系统。它们属于20 。 A.管理业务系统 B.辅助技术系统 c.信息检索系统 D.信息分析系统 第二部分:vb程序设计

21.要将焦点设置在某个控件上,以下四个选项中正确的是________ A.只能使用鼠标直接点击该控件 B.只能使用Tab键将焦点移到该控件

C.只能在程序中调用该控件的setfocus方法 D.A、B、C三选项中涉及的方法均可用

22.在下列属性中,属于CommandButton控件、ListBox控件共有的是22。 A.Caption、Text B.Visible、Font C.Caption、Visible D.List、Visible

23.数学表达式 对应的visual Basic表达式是 23 。

A.Sin(30*3.14159/180)+Sqr(Log(x)+y)/2*3.14159+Exp(x+y) B.(Sin(30* /180)+sqr(Ln(x)+y))/(2* +Exp(x+y))

C.Sin(30*180/3.14159)+Sqr(Log(x)+y)/(2*3.14159+e^(x+y)) D.(Sin(30*3.14159/180)+Sqr(Log(x)+Y))/(2*3.14159+Exp(x+y)) 24.下列的关系表达式中,运算结果为True的是24。 A.CInt(1.5)=Int(1.5) B.Fix(1.5)=Int(1.5) C.Fix(-1.5)=CInt(-1.5) D.Fix(-1.5)=Int(-1.5) 25.下列有关数组的叙述中,不正确的是25 。

①在过程中用ReDim语句定义的动态数组,其下标的上下界可以是变量 ②数组作为形式参数时,传递的是每个数组元素的值

③在窗体模块的通用声明处可以用Public说明一个全局数组

④数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值 A.②③ B.①③④ c.①②③④ D.③④ 26.以下关于文件的叙述中,错误的是26 。

A?用Output模式打开一个顺序文件,即使不对它进行写操作,原来的内容也被清除 B.可以用Print#语句或Write#语句将数据写到顺序文件中

C?若以Output、Append、Random、Binary方式打开一个不存在的文件,系统会出错 D.顺序文件或随机文件都可以用二进制访问模式打开 27.下列有关控件数组的说法中,错误的是27 。

A?控件数组由一组具有相同名称和相同类型的控件组成,不同类型的控件无法组成控件数组

B.控件数组中的所有控件不得具有各自不同的属性设置值 C.控件数组中的所有控件共享同一个事件过程

D.控件数组中每个元素的下标由控件的Index属性指定

28.以下Case语句中,能正确描述Y的绝对值大于6的是28。 A.Case Abs(Y)>6 B.Case -6 To 6

C.Case Not (-6 To 6) D.Case Is<-6,Is>6

29?若在模块中用Private Function Fun(A As Single,B As Integer)As Integer定义了函数Fun。调用函数Fun的过程中定义了I、J和K三个Integer型变量,则下列语句中不能正确调用函数Fun的语句是29。

A.Fun 3.14,J B.Call Fun(I,365) C.Fun (I),(J) D.K=Fun(\

30?若需要在同一窗体内安排两组相互独立的单选按钮(OptionButt.Dn),可使用30控件做容器将它们分开。

①TextBox ②PictureBox ③Image ④Frame ?A.①或② B.②或③ c.②或④ D.③或④

二、填空题(请将答案填写在答题纸的相应答题号内,每个答案只占一行)

1.执行下面程序,单击Commandl,则数组元素a(1,2)的数值是 ( 1 ),a(2,3)的数值 是(2),a(4,3)的数值是(3)。 Option Explicit

Private Sub Commandl_Click() Dim a(4,4)As Integer,i As Integer

Dim j As Integer,k As Integer,n As Integer n=6：k=2 Do

For i=1 To 4 For j=1 To 4 If i+j=k Then a(i,j)=n n=n-1 End If Next j Next i k=k+1 Loop Until k>8 For i=1 To 4 For j=1 To 4

print Right(“ “ & a(i,j),3); Next j Print Next i End Sub

2.执行下面程序,单击Commandl,窗体上显示的第一行是( 4 ) ,第三行是( 5 ) 最后一行是(6) 。 . Option Explicit

Private Sub Commandl_Click() Dim i As Integer,s As Integer For i=1 To 9 Step 3 . s=fun((i))+fun(i) Print s . Next i End Sub

Private Function fun(m As Integer)As Integer Static a As Integer If m Mod 2=0 then a=a+1 ?

,

m=m+1 Else a=a+2 m=m+2 End If fun=a+m Print fun End Function

3.运行下面的程序,单击Commandl,窗体上显示的第一行是 ( 7 ) ,第二行( 8 ) ,最后一行是( 9 ) 。

Option Explicit

Private Sub Commandl_Click() Dim a As Integer Dim b As Integer a=1 b=2

Print fun((a+2),fun(2*a,b)) Print a;b End Sub

Private Function fun(x As Integer,ByVal y As Integer)As Integer x=x+2 y=x-y+3 fun=x+y

Print x ;y ;fun End Function

4.执行下面的程序,单击Commandl,窗体上显示的第二行是 (10) 是(12) 。

Option Explicit

Private Sub Command1_Click() Dim N As Integer,K As Integer N=36 : K=5 Print Trans(N,K) End Sub

Private Function Trans(N As Integer,K As Integer)As String Dim R As Integer If N<>0 Then R=N Mod K If R<10 Then

Trans=Trans(N\\K,K) & R Print N Else

Trans=Trans(N\\K,K) & Chr(55+R) End If End If

,第三行(11) ,第四行 End Function

5.运行下列程序,单击Commandl,窗体上显示的第一行内容是(13) ,第二行的内容 是(14) ,第三行的内容是(15) 。 Option Explicit .

Private Sub Commandl_Click() Dim s As String,k As Integer Dim key As String s=”10101?? key=”111000” k=1 .Do

Call encrypt(s,key) . Print s

s=Right(s,k) & Left(s,4-k) & Mid(s,4,2) k=k+1

Loop Until k>3 End Sub

Private Sub encrypt(a As String,b As String) Dim sp As String,n As Integer,i As Integer sp=\

n=Len(b)-Len(a)

If n>0 Then a=Right(sp & a,Len(b)) For i=1 To Len(b)

If Mid(a,i,1)=Mid(b,i,1)Then Mid(a,i,1)=”0” Else

Mid(a,i,1)=”1” End If Next i

End Sub .

6.下面程序的功能是求序列：1/2、2/3、3/5、5/8、8/13、13/21、??前若干项的和,项数由文本框输入。试完善程序使其达到功能要求。 Option Explicit

Private Sub Calculate_Click()

Dim n As Integer,al As Integer,a2 As Integer Dim i As Integer,t As Single,S As Single n=Val(Textl.Text) al=1 . a2=2

For i=1 To n ( 16 ) s=s+t a2=al+a2 ( 17 )

Next i Text2=S End Sub

7.下面程序的功能是：从一组以16进制数形式表示的若干个字节数据中,找出其中的汉 字代码(若相邻的两个字节中,每个字节的最高一位的数值都大于或等于8,则这两个字节为 一个汉字的代码)。试完善程序使其达到功能要求。 Private Sub Commandl_Click()

Dim st()As String,P As String,k As Integer Dim n As Integer,i As Integer P=Trim(Textl) Do

n=InStr(P,” ”) If (18) Then k=k+1

ReDim Preserve st(k) st(k)=Left(p,n-1) p=Right(p,Len(p)-n) Else

ReDim Preserve st(k+1) ( 19 ) End If

Loop Until n=0

For i=1 To UBound(st)-1

If chinese(st(i),st(i+1)) Then

Listl.AddItem st(i) & ”,” & st(i+1) ( 20 ) End If Next i End Sub

Private Function chinese(p As String,q As String)As Boolean Dim st As String,k As Integer,n As Integer Dim i As Integer

st=”0123456789ABCDEF” For i=1 To Len(st)

If Left(p,1)=Mid(st,i,1) Then k=i-1 (21) Next i

If k>=8 And n>=8 Then chinese=True End Functinn

8.本程序的功能是求出n～m之间所有的可分解整数。所谓可分解整数是指具有以 下性质的数,它的各位数字之和等于其所有质因子各位数字之和(注意：素数不是可分 解整数)。例如整数121,各位数字之和是4,其质因子是11、11,质因子的各位数字之和 也是4(1+1+1+1=4),所以121是可分解整数。试完善程序使其达到功能要求。 Option Explicit

.Private Sub Commandl_Click()

Dim n As Integer,m As Integer,k As Integer n=Textl nl=Text2 For k=n To m

If sum1(k)=sum2(k)Then Listl.AddItem k End If Next k End Sub

Private Function suml( 22 ) As Integer ‘求一个数的各位数字之和 Do

suml= (23) n=n\\10 Loop Until n=0 End Function

Private Function sum2(ByVal n As Integer) As Integer ‘求质因子及其各位数字之和 Dim k As Integer,an As Integer (24) nn=n Do

If n Mod k=0 Then

sum2=sum2+suml(k) n=n\\k Else (25) End If

Loop Until k>nn/2 End FunCtion

9.下面程序的功能是：将a、b两个数组的数据按从大到小的顺序合并到数组c中。a,b两 个数组的数据分别从文本框A和文本框B输入,数据以空格分隔。合并结果在文本框C中输 出。试完善程序使其达到功能要求。 Option Explicit Option Base 1

Private Sub Commandl_Click()

Dim a()As Integer,b()As Integer,c()As Integer Dim i As Integer,st As String st=Trim(Textl) Call load_a(st,a) st=Trim(Text2) Call load_a(st,b) ReDim c(1) (26)

for i=2 To UBound(a)

Call change(a(i),c) Next i

For i=1 To UBound(b) Call change(b(i),c) Next i

For i=1 To UBound(C) Text3=Text3 & Str(c(i)) Next i End Sub

Private Sub load_a(s As String,a()As Integer) ‘将文本框中数据存入数组 Dim i As Integer,k As Integer,P As String,q As String*1 For i=1 To Len(s) q=Mid(s,i,1)

If q>=”0” And q<=”9” Or q=”-” Then (27)

Else If p<>”” Then k=k+1

ReDim Preserve a(k) a(k)=Val(p) (28) End If Next i

If p<>”” Then

ReDim Preserve a(k+1) a(k+1)=P End If End Sub

Private Sub change(n As Integer,c()As Integer) ’插入排序 Dim i As Integer,j As Integer

ReDim Preserve C(UBound(c)+1) For i=1 To UBound(c)-1 If n>c(i)Then

For j=UBound(c) to i+1 Step -1 c(j)=c(j-1) Next j (29) End If Next i (30) End Sub

参考答案 一、选择题

1.A 2.D 3.A 4.B 5.D 6.C 7.B 8.B 9.B 10.D 11.C 12.B 13.A 14.D 15.C 16.D 17.C 18.A 19.B 20.B

21.D 22.B 23.D 24.B 25.A 26.C 27.B 28.D 29.B 30.C 二、填空题

(1)15 (2)9 (3)2 (4)5

(5)12 (6)25 (7)4 5 9 (8)5 -1 4 (9)1 2 (10)7 (11)36 (12)121

(13)101101 (14)001110 (15)011011 (16)t=al/a2 (17)al=a2-al (18)n<>0 或Len(p)>2或Len(p)<>2 (19)st(k+1)=P (20)i=i+1

(21)If Left(q,1)=Mid(st,i,1)Then n=i-1 (22)ByVal n As Integer

(23)suml+n Mod 10 (24)k=2 (25)k=k+1 (26)c(1)=a(1)

(27)p=p & Mid(s,i,1) (28)P=”” (29)Exit For (30)c(i)=n

2010年春江苏省计算机二级VB试卷 第一部分: 计算机基础知识

1．下面关于通信技术的叙述中，错误的是 ___1___ 。

A．任何一个通信系统都有信源、信道和信宿这三个基本组成部分

B．为了实现远距离传输信息，在模拟通信和数字通信中均采用载波技术 C．为了降低传输信息的成本，在通信中广泛采用多路复用技术 D．数字通信系统的一个主要性能参数是信道带宽,它指实际进行数据传输时单位时间内传输的二进位数目

2．在下列有关集成电路及其应用的叙述中，错误的是 ___2___ 。 A．集成电路的制造工序繁多，工艺复杂且技术难度高

B．经过抛光后的硅片称为晶圆，每个晶圆最多可以制成一个合格的集成电路芯片 C．IC卡分为接触式IC卡和非接触式IC卡，后者通常又称为射频卡或感应卡 D．集成电路应用十分广泛，目前我国第2代居民身份证中就有集成电路芯片 3．在下列有关数字技术的一些叙述中，错误的是 _____3_____ 。

A．数字技术是采用有限个状态(例如\和\来表示、处理、存储和传输信息的 B．在逻辑代数中，1与1进行逻辑加(V)和逻辑乘(^)的结果相同 c．任何一个十进制数，均可以精确地转换成等值的二进制数 D．在PC机中，通常用原码表示正整数、用补码表示负整数 4． 在下列有关PC机主机的叙述中，错误的是___4___ 。

A．BIOS和CMOS存储器安装在主板上，普通用户一般不能自己更换

B．由于PC机主板的物理尺寸等没有标准化，所以不同PC机的主板均不能互换 C．芯片组是PC机各组成部分相互连接和通信的枢纽，一般由2块VLSI芯片组成 D．芯片组决定了主板上所能安装的内存最大容量、速度及可使用的内存条类型 5． 在下列4个Intel微处理器产品中，采用双核结构的是 _____5_____ 。 A. Core 2 Duo B．Pentium PRO C．Pentium III D．Pentium 4

6． 在下列四种PC机主存储器类型中，目前常用的是 _____6_____ 。 A．EDODRAM B．SDRAM

C．RDRAM D．DDR SDRAM

7． 在下列有关PC机常用I/O接口的叙述中，错误的是 7 。

A． 目前显卡与显示器的接口大多采用VGA接口

B. 可用于连接鼠标器的USB接口和PS/2接口的数据传输方式均是串行传输方式 C. USB接口连接器有4个引脚，其中1个引脚可获得由主机提供的+1.5V电源 D． IEEE-1394b接口也是PC机常用的一种高速接口

8． 在下列有关PC机外存储器的叙述中，错误的是 8 。

A．由于数据存取速度慢、容量小等原因，软盘存储器已逐渐被淘汰

B. 所有的硬盘都是由2个或2个以上盘片组成的，硬盘中的盘面数为盘片数的2倍 C．目前有些优盘产品可以模拟软盘和硬盘启动操作系统

D. 目前常见的组合光驱(“康宝”)既有DVD只读光驱功能，又有CD光盘刻录机功能 9． 在下列有关光盘存储容量的叙述中，错误的是 9 。 A．80ram CD存储容量大约为200多兆字节 B．120mm CD存储容量大约为600多兆字节

C．单面单层的120mm DVD存储容量大约为4.7GB D．单面单层的120mm蓝光光盘存储容量大约为17GB

10．在下列有关Windows系列操作系统及其功能的叙述中，错误的是 10 。 A.Windows操作系统采用并发多任务方式支持系统中多个任务的执行 B.Windows XP分为多个版本，它们可用于不同计算机和不同的应用

C.与Windows XP相比，Windows Vista做了许多改进，但其硬件运行环境要求较高 D.无论是硬盘还是光盘，它们均采用相同的文件系统，即FAT文件系统 11．在下列常用应用软件中，不能对编辑的文档设置密码的是 11 。 A．Microsoft Word B．Microsoft Excel C．Microsoft PowerPoint D．Microsoft FrontPage 12．在下列关于无线局域网的叙述中，错误的是 12 。 A.在无线局域网中，无线接入点实际上是一种无线交换机，在室内覆盖距离可达几十米 B.目前无线局域网可采用的协议有Wi-Fi和蓝牙等，后者的数据传输速率比前者更高 C.若某电脑贴有Intel公司的\迅驰)标记，则该电脑应有集成的无线网卡 D.无线网卡有多种类型，例如PCI无线网卡、USB无线网卡等

13．IP地址分为A、B、C、D、E五类。下列4个IP地址中，属于C类地址的是 13 A． 1.110.24.2 B． 202.119.23.12 C． 130.24.35.68 D． 26.10.35.4R 14．因特网上有许多不同结构的局域网和广域网互相连接在一起，它们能相互通信并协调工作的基础是因为都采用了 ______14______

A．ATM协议 B．TCP/lP协议 C．X.25协议 D．NetBIOS协议 15．下列有关因特网接入的叙述中，错误的是______15______ 。 A．采用电话拨号接入时,数据传输速率只能达几十kbps

B．采用ADSL接入时，网络的下行数据传输速率通常高于上行数据传输速率 ． C．采用ADSL接入时，只需要ADSL调制解调器，不需要使用网卡 D．采用有线电视接入时，多个终端用户将共享连接段线路的带宽

16．在下列有关字符集及其编码的叙述中，错误的是 ______16______ 。

A．在我国台湾地区使用的汉字编码标准主要是GBK，该标准中收录了大量的繁体汉字

B．GBl8030标准中收录的汉字数目超过2万，Windows XP操作系统支持该标准 C．Unicode字符集中既收录了大量简体汉字，也收录了大量繁体汉字

D．GB2312是我国颁布的第一个汉字编码标准，该字符集还收录了俄文、希腊字母等

17．若一幅图像的大小为1024×768，颜色深度为16位，则该图像在不进行数据压缩时，其数据量大约为______17______ 。

A．768KB B．1.5MB C．3MB D．12.3MB

18．在下列4种类型的数字化声音文件中，不可能包含人的说话声音的是 18 。 A. WAV B．MP3 C．MID D．WMA 19．在下列有关数字视频的叙述中，错误的是 19 。

A．PC机所使用的视频卡能将输入的模拟视频信号进行数字化 B．目前使用摄像头获取视频信息时,不需要使用专门的视频卡

C．数字视频在数据压缩时只能使用MPEG标准，DVD就是采用MPEG一4标准压缩的

D．计算机动画是一种合成视频，这种技术是发展动漫产业的基础

20．下列是几种常见的电子商务的分类方法。若将电子商务分为B-C、B-B等类型，则该分类是 ______20______ 。 A．按交易的双方进行分类 B．按使用的网络类型分类 c．按交易商品性质分类 D．按交易商品规模分类

第二部分Visual Basic程序设计 .

一、选择题(用答题卡答题，答案依次填在21—30答题号内) 21.关于窗体，以下叙述中正确的是 21 。

A.仅当窗体上没有可以获得焦点的控件时，窗体才可以获得焦点 B.一个VB工程只能从某个指定的窗体开始启动 C.只有窗体可以作为控件的容器

D.Unload Me和End语句的效果总是等同的

22.若a为长整型变量，则执行a=12 : Print Len(a);Len(Str(a)); Len(CStr(a))后，在窗体上看到的是 22 。

A.4 2 3 B.2 3 2 C.4 3 2 D.2 2 3

23.数学表达式 对应的visual Basic表达式是 23 。 A.Cos(30*3.14159/180)/(4*y+Ln(x))+Exp(2) B.Cos(30*3.14159/180)/(4*y+Log(x))+Exp(2) C.Cos(30*3.14159/180)/(4*y+Ln(x))+e^2 D.Cos(30)/(4*y+Log(x))+e^2

24.表达式Fix(-2.5)+Int(-3.5)+CInt(-2.5)的值是 24 。 A.-8 B.-7 C.-6 D.-5 25.以下说法中，错误的是 25 。

A.使用缺省Preserve关键字的ReDim语句可以改变数组的维数和大小 B.ReDim语句只能出现在过程中

c.使用ReDim语句重新定义的动态数组，只能比原数组大 D.使用ReDim语句可以对动态数组的所有元素进行初始化 26.下列关于菜单的说法中，错误的是. 26 。 A.可以为菜单项选定快捷键

B.若在\标题\文本框中键入连字符(一)，则可在菜单的两个菜单命令项之间加一条分隔线 C.除了Click事件之外，菜单项还可以响应其他事件 D.菜单编辑器的\名称\文本框用于输入菜单项的名称

27.以下有关过程中形式参数的描述中，错误的是 27 。 A.函数过程可以没有形式参数 B.事件过程一定没有形式参数

C.形参数组只能按地址与实参数组结合 D.窗体与控件也可以作为过程的参数

28.以下表达式中，可以表示\和B之一大于0\的是 28 。

①A*B<=0 ②A>0 Xor B>0 ③A>0 Or B>0 ④A>0 And B<=0 Or B>0 And A<=0 A．①③ B．③④ C．②④ D．①②④

29．设变量A为长整型，则下面不能正常执行的语句是 29 。 A．A=32768*2 B．A=2*1.5*16384 C．A=16384*2 D．A=190^2

30．以下有关滚动条控件(ScrollBar)的说法中错误的是 30 。 A．只能在设计时设置Max与Min属性值

B．Value属性返回滚动条内滑块当前所处位置的值 C．拖动滚动条内滑块时，将触发滚动条的Scroll事件 D．单击滚动箭头时，将触发滚动条的Change事件 二:填空题

1.执行下面的程序后,A(1,4)的值是_（1）_,A(2,3)的值是__（2）_,A(3,2)的值是 （3） 。 Option Explicit Option Base 1

Private Sub Command1_Click()

Dim a(4, 4) As Integer, ub As Integer

Dim i As Integer, j As Integer, n As Integer ub = UBound(a, 1) n = 0

For i = ub To 1 Step -1 For j = 1 To ub + 1 - i n = n + 1

a(j, j + i - 1) = n Next j Next i

For i = ub To 2 Step -1 For j = ub To i Step -1

a(j, j - i + 1) = a(5 - j, 4 - j + i) Next j Next i

For i = 1 To ub For j = 1 To ub

Picture1.Print a(i, j); Next j

Picture1.Print Next i End Sub

2.在InputBox函数对话框中输入4(或直接单击”确定”按钮)窗体显示的第一行内容__(4)___,

第二行是__(5)___,第四行是__(6)___ Option Explicit

private Sub command1_Click() dim days as integer

Days=InputBox(\输入正整数\ print fun(days) End Sub

private function fun(d as integer) as integer if D=1 then fun=1 else

fun=2*fun(D-1)+1 print D;fun end if

End Function

3窗体显示的第一行是__(7)_____第三行是__(8)_____最后一行是___(9)__ private sub command1_Click() Dim i as integer, k as integer For i=1 to 5 k=fun(i)+I print k next i print i End Sub

Function Fun(N as integer) as Integer Static M as integer Dim j as integer M=M+N N=N+1

For J=1 To M J=J+2

Fun=Fun+J Next J

Fun=Fun+N End Function

4.窗体显示的第一行是__(10)_____第三行是__(11)_____,最后一行是_(12)____ Option Explicit

Private Sub Command1_Click() Dim S as String,N as Integer S=\ N=14

Print Convert(S,N) End Sub

Private Function Convert(S As string,N as Integer) as Long

Dim St as string, L as Integer, I as integer L=Len(s)

Do while L>=1 st=Left(s,1) if st>\ st=Asc(st)-55 end if

Covert=Convert+Val(st)*N^(L-1) print Val(st)*N^(L-1) L=L-1

s=Right(S,L) Loop

End Function

5.窗体显示的第一行是__(13)___,第二行是__(14)____,第三行是___(15)__ Option Explicit

Private Sub Command1_Click()

Dim s as string, k as integer, ch() as string Dim P as string,i as integer

s=Ucase(\ For i=1 to Len(s)

If Mid(s,i,1)<=\ p=p & Mid(s,i,1) ElseIf p<>\ k=k+1

Redim Preserve ch(k) ch(k)=p p=\ End if Next i

For i=1 to Ubound(ch) if len(ch(i))<=2 then Call move_c(ch(i),1) else

Call move_c(ch(i),2) end if print ch(i) next i End Sub

Private Sub Move_c(s as string, k as integer) Dim i as integer, j as integer, p as string*1 For i=1 to k p=Right(s,1)

For j=Len(s)-1 to 1 step -1 Mid(s,j+1,1)=Mid(s,j,1)

Next j

s=p & Right(s,Len(s)-1) next i End Sub

6.下面的程序是求下式的近似值，当第n项的绝对值小于10^-5时终止计算 S=1-1/3+1/5-1/7+… option explicit

Private Sub Command1_Click()

dim n as long, s as single, t as single, pi as single Const eps=0.00001 n=1 t=1 s=0 do

s=s+t n=n+1

t=___(16)______

Loop Until __(17)______ pi=s*4

Label1.Caption =\的近似值为:\End Sub

7.下面程序的功能是，找出满足以下条件的三位整数，不含数字0,且任意交换数字位置所得到的数，均能被6整除 Option explicit

Private sub Command1_Click()

dim i as integer, j as integer, k as integer, st as string Dim a(6) as integer For i=100 to 999

if ______(18)_________ then For j=1 to 6

if a(j) Mod 6<>0 then Exit For Next j

if______(19)________THen st=st & str(i) k=k+1

if k mod 3 =0 then st=st & vbcrlf End if End if Next I Text1=st End Sub

Private Function fj(a() as integer, s as string) as Boolean Dim n as Integer, i as integer, j as integer if Instr(s,\

___(20)___ end if

For i=1 to 3 For j=1 to 2 n=n+1

____(21)___

s=Left(s,1) & Right(s,1) & Mid(s,2,1) Next j

s=Right(s,1) & left(s,2) Next i fj=True End Function

8.下面程序的功能是求两个特大整数之和，由于vb中能够表示的整数大小有一定限制，所以必须用新的方法求特大整数之和，本程序将特大整数使用字符类型进行处理，其中函数add用于求两个1位整数之和，参数c用于保存进位，注意，求和前需首先将两个整数按位对齐

option explicit

private Sub command1_Click()

Dim s1 as string, s2 as string, s3 as string dim i as integer, n1 as integer, n2 as integer dim c as integer, n as integer s1=text1 : s2=Text2 n=______22_____ if sgn(n)>0 then

s2=________23__________ elseif Sgn(N)<0 then

s1=String(Abs(n),\ end if

For i=len(s1) to 1 step -1 n1=Val(Mid(s1,i,1)) n2=Val(Mid(s2,i,1))

s3=_______(24)________ Next i

if c<>0 then s3=________(25)________ Text3=s3 End Sub

Private Function Add(x as integer, y as integer, c as Integer) as string Add=Cstr((x+y+c) Mod 10) _________(26)________ End Function

9. 下面程序功能是：找出各位数字互不相同，且其6倍数仍由组成该数的数字构成的六位整数。例如：126873的6倍数是761238，就是符合条件的数。

提示：程序中用a,b数组成标示数组元素下标值对应的数字是否出现在六位整数中。例如：2出现在某六位整数中，则a（2）的值为1。

Option Explicit

Private Sub Command1_Click()

dim i as long,i2 as long, flag as Boolean Dim a(0 to 9) as integer, b(0 to 9) as integer For i=100000 to 160000 Call Validate(i,a,flag) if flag then i2=i*6

call Validate(i2,b,flag)

if flag and Compare(a,b) then List1.AddItem i & \ \ End if End if Next i end sub

Private Sub validate(n as long, a() as Integer, f as Boolean) dim p as integer, i as integer Erase a f=false

for i=1 to len(cstr(N)) p=___(27)___ if a(p)=1 then exit sub else a(p)=1 end if next i

___(29) f=true End Sub

Private Function Compare(a() as integer, b() as integer) as Boolean dim j as integer compare=false

for j=1 to Ubound(a) if a(j)<>b(j) then

____(30)____exit function End if next j

Compare=true End Function

0回答者： 011467

2010年春江苏计算机等级vb上机 Option Explicit

Private Sub Command1_Click()

Dim N As Integer, a() As Integer, i As Integer Dim st As String

N = InputBox(\数据个数n\查找\ReDim a(N) Call Find(a) For i = 1 To N

If i Mod 3 <> 0 Then '错误点3: N Mod 3 st = st & Str(a(i)) Else

st = st & Str(a(i)) & vbCrLf End If Next i Text1 = st

End SubPrivate Sub Find(a() As Integer)

Dim Ub As Integer, K As Integer, P As Integer Dim s As String Randomize

Ub = UBound(a) Do

P = Int(Rnd * 899) + 100 s = CStr(P)

If InStr(s, \错误点1:Or K = K + 1 a(K) = P End If

Loop Until K = Ub '错误点2K>Ub End Sub

以下答案仅供参考

1.D 2.B 3.C 4.B 5.A 6.D 7.C 8.B 9.D 10.D 11.D 12.B 13.B 14.B 15.C 16.A 17.B 18.C 19.C 20.A

21.A 22.B 23.B 24.A 25.C 26.C 27.B 28.C 29.C 30.A 二:填空题

(1)1 (2)5 (3)5 (4)2 3 (5)3 7 (6)15 (7)7 (8)30 (9) 7 (10)588 (11)11 (12)739

(13)ETME (14)EM (15)SSCLA (16)(-1)^(n+1)/(2*n-1) (17)ABS(t)<0.00001 (18)fj(a,cstr(i)) (19)j>6或j>=7 (20)Exit Function (21)a(n)=val(s)

(22)len(s1)-len(s2) (23)string(Abs(n),\

(24)Add(n1,n2,c) & s3 (25)c & s3 (26)c=(x+y+c)\\10 (27) Mid(n,i,1) (28)Exit Sub (29) f=true (30)Exit Function 改错题：

Option Explicit

Private Sub Command1_Click()

Dim N As Integer, K As Long, St As String For N = 500 To 800 K = N ^ 2

If Validate(N) And Validate(K) Then St = N & \ List1.AddItem St End If Next N End Sub

Private Function Validate(ByVal N As Long) As Boolean '错误点1byval Dim P As String, i As Integer, a() As Integer, j As Integer P = CStr(N) '错误点2str(n) ReDim a(Len(P)) For i = 1 To Len(P) a(i) = Mid(P, i, 1) Next i

For i = 1 To UBound(a) - 1 For j = i + 1 To UBound(a)

If a(i) = a(j) Then Exit Function '错误点3Exit For Next Next

Validate = True End Function

2010秋江苏计算机二级VB考试真题及参考答案 第一部分 计算机基础知识

1.微电子技术是信息技术领域中的关键技术,它以集成电路为核心.下列有关集成电路的叙述中,错误的是 ___(1)___

A. 现代集成电路使用的半导体材料只能是硅(Si),不能使用其它任何半导体材料 B. 集成度是指集成电路包含的电子元件数目,可分为SSI、MSI、VLSI等 C. Moore定律指出,单块集成电路的集成度平均18--24个月翻一番

D. 我国第二代身份证中嵌入了集成电路芯片,可以实现电子防伪和数字管理功能

2. 数据传输速率是数据通信中重要的性能指标。Gb/s是数据传输速率的计量单位之一,其正确含义是 ___(2)___ 。

A.每秒兆位 B.每秒千兆位 C.每秒百兆位 D.每秒百万位

3. 所谓\变号操作\是指将一个整数变成绝对值相同但符号相反的另一个整数。假设使用补码表示的8位整数x=10010101,则经过变号操作后结果为___(3)___. A.01101010 B.00010101 C.11101010 D.01101011 4. 下列有关PC机主板的叙述中,错误的是 ___(4)___ 。 A. 主板的物理尺寸没有标准,各厂家均可自行定义

B. 主板上包含芯片组,它是PC机各组成部分相互连接和通信的枢纽 C. 主板上包含BIOS和CMOS芯片

D. 主板上包含CPU插座、内存条插槽及其它类型的插槽

5. 下列有关PC机中央处理器(CPU)和内存(内存条)的叙述中,正确的是 __(5)____ . A.PC机所采用的CPU都是Intel公司生产的Pentium系列芯片,其它厂商生产的CPU都与之不兼容

B.目前已有双核的微处理器(例如Core 2 Duo),但还没有四核的微处理器 C. 通常来说,DRAM的速度比SRAM的存取速度慢

D. 一般来说,一个内存条上仅有一个DRAM或SRAM芯片

6. 下列有关PC机I/O总线与I/O接口的叙述中,错误的是 __(6)____ .

A. 目前PC机中协调与管理总线操作的总线控制器包含在主板上的芯片组中 B. 总线最重要的性能是数据传输速率,其单位通常为MB/s或GB/s C. SATA接口的数据传输速率通常低于USB 2.0的数据传输速率 D. USB连接器有4个引脚,其中一个引脚连接+5V电源 7. 下列有关PC机常用I/O设备的叙述中,错误的是__(7)____。

A. 目前台式机键盘通常有一百零几个按键,笔记本电脑的键盘有八十几个按键 B. 目前流行的鼠标是光电鼠标,其与主机的接口有PS/2与USB两种 C. 宽屏LCD显示器的宽高比为16：9或16：10

D. 打印速度是打印机的重要性能指标,速度单位通常为dpi 8. 下列有关PC机外存储器的叙述中,错误的是___(8)___ 。

A. 目前硬盘的盘片大多为3.5、2.5或1.8英寸,一个硬盘中可有一个或多个盘片 B. 目前有些u盘可以模拟硬盘和光盘存储器启动操作系统

C. 目前光盘存储器主要分为CD、DVD和BD三种,它们均采用红外激光进行读写 D. 目前光驱的速率通常用多少倍速表示

9. 下列有关计算机软件的叙述中,错误的是___(9)___. A. 软件一般是指程序及其相关的数据和文档资料

B. 从软件的用途考虑,软件可以分为系统软件和应用软件,主要的系统软件有操作系统、语言处理系统和数据库管理系统等。

C. 从软件的权益来考虑,软件可以分为商品软件、共享软件和自由软件,共享软件和自由软件均为无版权的免费软件

D.Linux是一种系统软件、自由软件

10.到目前以止,Windows系列操作系统已推出多个版本。在下列版本中,最新的Windows 版本是___(10)___

A. Windows7 B. Windows Me C. Windows XP D. Windows Vista 11.下列有关Windows XP操作系统功能的叙述中,错误的是___(11)___. A. 系统通过\时间片”轮转策略支持多任务处理 B. 系统利用SPOOLing技术进行存储管理

C. 在设备管理中引入了缓冲技术,以减少I/O操作的等待时间 D. 系统支持PnP功能,并按ACPI标准进行电源管理

12.在因特网中某台主机的IP地址为20.25.30.8,子网掩码为255.255.255.0,那么该主机 的主机号为 ___(12)___ 。

A. 20 B. 25 C. 30 D. 8

13.局域网中需要传输的数据必须预先组织成若干数据帧,每一数据帧的格式如下图所示：上图中最末部分\”表示的是___(13)___ 。 发送计算机地址 目的计算机地址 编号 有效载荷 ? A.协议信息 B.校验信息 C.冗余信息 D.结束标志 14.目前网络用户接入因特网有多种方式,例如ADSL、HFC等。通过HFC接入因特网时采用

的网络是___(14)____。

A. 有线电话网 B. 有线电视网 C. 无线局域网 D. 移动电话网 15.下列网络协议中,直接与电子邮件传输相关的网络协议是___(15)___。 A.FTP B.SMTP C.TELNET D.NNTP

16.下列有关计算机中文本与文本处理的叙述中,错误的是 ___(16)____

A. 西文字符主要是采用ASCII字符集,基本ASCII字符集共有256个字符

B. 我国最早采用的汉字字符集是GB2312,包含6000多个汉字和若干个非汉字字符 C. 无论采用何种方式输入汉字,在计算机中保存时均采用统一的汉字内码

D. 简单文本和丰富格式文本中字符信息的表示相同,区别在于格式信息的表示 17.彩色图像所使用的颜色描述方法称为颜色模型(即颜色空间)。下列四种颜色模型中, 彩色喷墨打印机使用的是___(17)___.

A. RGB B. HSB C. YUV D. CMYK

18.文件的扩展名用于标记文件的类型,用户应该尽可能多地知晓各类文件的扩展名,下 列文件中,属于数字声音的文件是______ A. ABC.RM B. ABC.WMA C. ABC.MKV D. ABC.SWF

19.信息系统软件开发瀑布模型包括系统规划、系统分析、系统设计、系统实施和系统维 护等几个阶段。下面各项工作中,属于系统实施阶段的是___(19)___ A.问题定义 B.可行性研究 C.系统测试 D.绘制E-R图

20.下列有关Micmsoft Word 2003和Microsoft Excel 2003软件的叙述中,错误的是___(20)___ A. 利用Word软件编辑文档,可以将其保存为TXT、DOC、RTF和HTM格式文件 B. 利用Word软件编辑文档时,可以统计选定文本的字符数

C. 在Excel软件中,可以打开(导入)TXT、DBF、HTML格式的文件(数据) D. Excel文件可以设置打开权限密码,但不可以单独设置修改权限密码 第二部分Visual Basic程序设计

一、选择题(用答题卡答题,答案依次填在21--30答题号内) 21.以下有关事件过程的说法中,正确的是___(21)___ A.所有的事件过程都是Sub子过程 B.所有的事件过程都没有参数

C.所有的事件都是由用户的操作直接引发的 D.事件过程不能使用Call语句调用执行 22.以下语句中,正确的是___(22)___ 。

A.List1.AddItem x,\ B.Picture1.Print x,\ C.Text1.Text=x,\ D.Label1.Caption=x,\

23.以下有关VB程序书写规则的说法中,错误的是___(23)_____ A.一行可以书写多条语句,语句间用\分隔

B.使用注释时,\可与注释语句定义符\互换使用 C.过长的语句,可使用续行标志\分写在多行上

D.代码输入时,可不用区分字母大小写,系统会将\保留字\首字母自动改为大写

24.设变量I和J是整型变量,K是长整型变量。I已赋值32763,J和K分别赋值5,若接着执行以

下语句,可正确执行的是___(24)___。 A.I=I+K B.J=I+K C.K=I+J+K D.K=K+I+J

25.以下关系表达式中,运算结果为False的是 ___(25)___ A.CInt(3.5)-Fix(3.5)>=0 B.CInt(3.5)-Int(3.5)>=0 C.Int(3.5)+Int(-3.5)>=0 D.Int(3.5)+Fix(-3.5)>=0

26.以下字符运算表达式中,其功能与函数Mid(s,i,i)相同的是___(26)___ A.Left(s,i) & Right(s,Len(s)-i) B.Left(Right(s,Len(s)-i+1),i) C.Left(Right(s,i),Len(s)-i+1) D.Left(s,Len(s)-i) & Right(s,i) 27.数学表达式的VB算术表达式为____(27)____ A.Sqr(x*y^3)+Abs(Exp(x)+Sin(x)^3/(x-y)) B.Sqr(x*y^3)+Abs((Exp(x)+Sin(x)^3)/(x-y)) C.Sqr(x*y^3)+Abs(Exp(x)+Sin(x)^3/x-y)

D.Sqr((x*y)^3)+Abs((Exp(x)+Sin(x)^3)/(x-y))

28.以下有关数组的说法中,错误的是___(28)___。

A.使用ReDim语句,可以改变任何数组的大小与维数 B.使用ReDim语句,可以定义一个新数组

C.使用ReDim语句重新定义动态数组时,维界表达式中可以采用变量 D.使用ReDim语句重新定义的新数组,既可比原数组大,也可比原数组小 29.以下有关Function过程的说法中,正确的是___(29)___ 。 A.函数名在过程中只能被赋值一次

B.如果在函数体内没有给函数名赋值,则该函数无返回值

C.如果在定义函数时没有说明函数的类型,则该函数是无类型的

D.执行函数过程中的Exit Function语句,将退出该函数,返回到调用点 30.以下有关文件用法的描述中,正确的是___(30)___ A.只有顺序文件在读写前需要使用Open语句打开 B.使用同一个文件号,可同时打开多个不同的文件

C.如果以Input方式试图打开一个不存在的顺序文件,则会出错

D.如果程序中缺少Close语句,即使程序运行结束,打开的文件也不会自动关闭 二、填空题(请将答案填写在答题纸的相应答题号内,每个答案只占一行)

1.运行下面程序,单击CmdRun,在窗体上显示a的值是___(1)___;b的值是___(2)___;i的值是___(3)___ 。 Option Explicit

Private Sub CmdRun_Click()

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

2.执行下面程序,单击Command1,数组元素a(3,2)的值是___(4)___,a(1,2)的值是___(5)___,a(2,3)的值是___(6)___ Option Explicit Option Base 1

Private Sub Commandl_Click()

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 i>n And j<=n Then i=1

ElseIf i<=n And j>n Then j=1

ElseIf i>n And j>n Then i=i-2:j=j-1

ElseIf i<=n And j<=n And a(i,j)<>0 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

3.运行下面的程序,单击Cmd1,窗体上显示的第一行是___(7)___,第二行是___(8)___ ,,最后一行是___(9)___。 Option Explicit

Private Sub Cmd1_Click() 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<10 Then Call Sub1(X)

本文来源：https://www.bwwdw.com/article/gjq8.html