江苏省计算机二级VB试题复习(2009年春至2012年春)

2009年春江苏计算机等级考试二级

第一部分计算机基础知识

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

A集成电路是20世纪90年代初出现的，它的出现直接导致了微型计算机的

诞生

B集成电路的集成度越来越高，目前集成度最高的已包含几百个电子元件

C目前所有数字通信均不再需要使用调制解调技术和载波技术

D光纤主要用于数字通信，它采用波分多路复用技术以增大信道容量’

2.最大的10位无符号二进制整数转换成八进制数是2.o

A1023B1777

C1000D1024

3.在下列有关目前PC机QU的叙述中，错误的是3o

ACPU芯片主要是由Intel公司和小。公司提供的

B।双核谖指PC机主板上含有两个独立的CPU芯片

CPentium4微处理器的指令系统由数百条指令组成

DPentium4微处理器中包含一定容量的Cache存储器

4.在下列有关当前PC机主板和内存的叙述中，正确的是4o

A主板上的BIOS芯片是一种只读存储器，其内容不可在线改写

B绝大多数主板上仅有一个内存插座，因此PC机只能安装一根内存条

C内存条上的存储器芯片属于SR/M静态随机存取存储器）

D目前内存的存取时间大多在几个到十几个ns纳秒）之间

5.在下列有关PC机辅助存储器的叙述中，正确的是5。

A硬盘的内部传输速率远远大于外部传输速率

B对于光盘刻录机来说，其刻录信息的速度一般小于读取信息的速度

C使用USB2.0接口的移动硬盘，其数据传输速率大约为每秒数百兆字节

DCMMI勺数据传输速率一•般比USB20还快

6.在下列PC机区凝口中，数据传输速率最快的是6o

AUSB2.0BIEEE-1394

CIrEA红外）DSm

7.计算机软件可以分为商品软件、共享软件和自由软件等类型。在下列相关

叙述中，错误的是7。

A通常用户需要付费才能得到商品软件的使用权，但这类软件的升级总是

免费的

B共享软件通常是一种噪前免费试用的具有版权的软件

C自由软件的原则是用户可共享，并允许拷贝和自由传播

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

&人们通常将计算机软件划分为系统软件和应用软件。下列软件中，不属于

应用软件类型的是8

AAutoCADB]\®4COracleDWindowsKfediaPlayer

9.在下列有关Windows98200（W操作系统的叙述中，错误的是

9o

A系统采用并发多任务方式支持多个任务在计算机中同时执行

B系统总是将一定的硬盘空间作为虚拟内存来使用

C文件夹）名的长度可达200多个字符

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

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

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

B算法的表示可以有多种形式，流程图和伪代码都是常用的算法表示方法

C常用的数据结构有集合结构、线性结构、树形结构和网状结构等

D数组的存储结构是一种顺序结构

11•因特网的IP地址由三个部分构成，从左到右分别代表11O

A网络号、主机号和类型号

B类型号、网络号和主机号

C网络号、类型号和主机号

D主机号、网络号和类型号

12•在下列有关ASL技术及利用该技术接入因特网的叙述中，错误的是

12o

A从理论上看，其上传速度与下载速度相同

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

C利用ADSL技术进行数据传输时;有效传输距离可达几公里

D目前利用但技术上网的计算机一般需要使用以太网网卡

13.人们往往会用战用的是1CM宽带上网味说明白己计算机连网的性能，这里

的叮而指的是数据通信中的指标。

A最高数据传输速率

B平均数据传输速率

C每分钟数据流量

D每分钟IP数据包的数目

14•计算机局域网按拓扑结构进行分类，可分为环型、星型和14型等。

A电路交换

B以太

C总线

D对等

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

完整性就是15。

A保证传送的数据信息不被第三方监视和窃取

B保证发送方的真实身份

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

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

16.某计算机系统中，西文使用标准ASCH码、汉字采用GB2312编码。设有一

段纯文本，其机内码为CBF5EDB45043CAC7D6B8,则在这段文本中含

有：16。

A2个汉字和1个西文字符

B4个汉字和2个西文字符

C8个汉字和2个西文字符

D4个汉字和1个西文字符

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

AGB2312标准中所有汉字的机内码均用双字节表示

B我国台湾地区使用的汉字编码标准BIG5收录的是繁体汉字

CGB18030汉字编码标准收录的汉字在GB2312标准中一定能找到

DGB18030汉字编码标准既能与IJCSiUiicode）接轨，又能保护已有中文信

息资源

18若波形声音未进行压缩时的码率为64ks,已知取样频率为8kHz,量化位

数为&那么它的声道数是18o

A1B2C4D8

19.从信息处理的深度来区分信息系统，可分为业务处理系统、信息检索系统和

信息分析系统等。在下列几种信息系统中，不属于业务处理系统的是

19o

ADSSBCAICG^VIDCA

20.在下列有关信息系统开发、管理及其数据库设计的叙述中，错误的是

20o

A常用的信息系统开发方法可分为结构化生命周期方法、原型法、面向对

象方法和Q\SE方法等

B在系统分析中常常使用结构化分析方法，并用数据流程图和数据字典来

表达数据和处理过程的关系

C系统设计分为概念结构设计、逻辑结构设计和物理结构设计，通常用卜

R模型作为描述逻辑结构的工具

D从信息系统开发过程来看，程序

第二部分VisualBasic程序设计

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

21.在列表框Listl中有若干列表项，可以删除选定列表项的语句是21

AListl.text—1"BListl.ListOListl.Listlnde^—111

CListl.CiearDListl.RoroveltemListl.Listindex

22执行22语句时，会出现出错提示信息。

APrint5+7=14EPrint16384*2

CPrint32768*2DPrint"14，L+32

23.数学表达式对应的VB表达式是23o

AeA*x-5)*Log⑨+Gin)A3)/Sqr6in®-Cos(xA2))

B(Exp(2*3.14159*x—5)*Log⑨+($inQ*刈)入3)/Sqr6in⑨一,

Cos(xA2))

C(Exp5)*Ln⑨+&nQ*B)A3)/SqrGin⑨一Cos&A》)

DeAQ*3.14159*x—,5)*Ln⑨+&n(2*耳)A3)/Sqr6ing⑨-Cos&A2))

24.以下关于数组的说法中，错误的是24。

A使用了Preserve予句的ReDim语句，只允许改变数组最后一维的上界

B对于动态数组，ReDim语句可以改变其维界但不可以改变其数据类型

CErase语句的功能只是对固定大小的数组进行初始化

DLBound函数返回值是指定数组某一维的下界

25.下列有关过程的说法中，错误的是25o'

.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.以下关于变量作用域的叙述中，正确的是：2Zo

A窗体中凡用Private声明的变量只能在某个指定的过程中使用

B模块级变量只能用Dim语句声明

C凡是在窗体模块或标准模块的通用声明段用Public语句声明的变量都是

全局变量

D当不同作用域的同名变量发生冲突时，优先访问局限性小的变量

28表达式CInt0.5)4CIntH51)+Int@9)+IntHl)-FFix(-1.9+OMxl2

的运算结果是28

A1B-lC-2D7

29.若要使逻辑表达式叼X?rSJW吉果为True,则xYz的取值应

为下列选项中的22。

A。日Z=40Z=2

C曰、日Z=2D冷2¥=22=2

30.在一个多窗体程序中，可以仅将窗体Fom2从内存中卸载的语句是30

AForm2.LhloadBUiloadForm2CForm2.EndDForm!Hide

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

L执行下面程序，单击Ccmnandl,则图片框中显示的第一行是(1),显示的第二

行是②，最后一行显示的是(3)o

PrivateSubCcnrnandl_Click

Dima(3,3)AsInteger

DimiAsInteger,jAsInteger

Fori=lTo3

Forj=3TD1Step—1

IfixjThen

a(i,j)=i-j

Else

a(i,j)=j-i

EndIf

Nextj

Nexti

Fori=lto3

Forj=6To1Step—1

Picturel.Printa(i,j);

Nextj

Picturel.Print

Nexti

EndSub

2.运行下面程序,如果连续三次单击命令按钮之后，A数组共有④个元

素；数组元素AQ)的值是(5),A(》的值是⑥

QptionExplicit

OptionBase1

PrivateSubCarmandlClickjj

StaticAsInteger,NAsInteger

DimIAsInteger,KAsInteger

■

ReDimPreserveA(N

For1=«-1ToN

A(D-IW1

NextI

For1=1ToN

PrintAO);

NextI

Print

EndSub

3.运行下面的程序，单击cairoandl,在窗体上显示的变量Al的值为(7),变

量B的值为(8)

OptionExplicit

DimAAsInteger

PrivateSubCkinnandLClickI

DimBAsInteger

B=3

g

B=^unQFunA&F2),为4B

PrintAB

EndSub

PrivateFunctionFunNAsInteger,KAsInteger)

Fun=NRI"A

EndFunction

4.执行下面的程序，单击coimandl,窗体上显示的第一行是(9),第二行是

(10),第四行是(11),最后一行是(12)

OptionExplicit

PrivateSubCcrrmandLClickjj

DimnAsInteger

FF=5

Cal1test(h)

Printn

EndSub

PrivateSubtest(]ByValnAsInteger)

DimiAsInteger,SAsString

Ifn>0Then

Fori=lTon

&CStr(i)

Nexti

PrintS

Cal1test(p-2)

Else

Print"OVER11

Endlf

EndSub

5.运行下列程序，单击Ccmnandl,在窗体上显示的第一行内容是

(12)，第二行的内容是(14),第三行的内容是(15)("A的ASCH码是

65Jz堤9。

OptionExplicit

PrivateSubCcninandL_Click$

DimiAsInteger,stAsStringnAsInteger,pAsString*1

P=),BH

Fori=3To1Step—1

DF^XSC©—i

Ifn<65Thenrp=rri-26

st=Chr⑹

st=st&F(i)

Printst

Nexti

EndSub

PrivateFunctionF(hAsInteger)

DimiAsInteger

StaticSAsInteger

Fori=llbn

s=s+i

Nexti

EndFunction

8用以下公式求f区的值。当通项的绝对值小于10人一7时停止计算，x的值由

键盘输入。

f凶fX-32x+a^X—■+€-1)田a,x+-|X|«SPm>

1

其中a1=1,a2^a产,n=3,45-

OptionExplicit

PrivateSubC(mnandL_Clickjj>

DimxAsSingle,fxAsSingle

DimaAsSingle,alAsSingle,a2AsSingle

DimtAsSingle

a1=1:a2=^

x=textl

If(16)Then

MsgBox("x必须在一11之间,r)

ExitSub

EndIf

fx=a1*?La2*x*x

t=(-1)*x*x

DO

a==l//Q14-a2)

t=(-1)*x*x

fL(17)

aIF2

(18)

LoopUntilAbsQ*t)<0.0000001

Text2=fx

EndSub

7.学生的某次课程测验中，选择题的答案已记录在列表框listl中，其数据行

格式是:学号为6个字符长度，2个空格，选择题的答案为15个字符长度，程

序根据标准答案进行批改，每答对一题给1分，并将得分存放到列表框listl

中，标准答案存放在变量Exact中。

OptionExplicit

PrivateSubCormandl_jclickjj

DimAnwasstring,Studldasstring

DimScotasInteger,Exactasstring

DimIasInteger,Jasinteger

ExactsABOCBMZBKimC

For1=(19)

Anw=(20)

StudlcH^eftgnw6)

Anw^ight(AnwLen(^Xnv)—6)

(21)

ForJ=1toLen刖W

If(22)Then

Scor=Scoi+l

EndIf

NextJ

List!AdditemStudld&&Scor

NextI

EndSub

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

做法是：变量Left指向要被处理的数从第2个元素开始)，Right指向数组最

后一个元素。若A(Uft)与排在它前面的某个数组元素值相同，就用数组元素

ARight)的值来替换AMft)的值，同时将变量Right的值减1;否则将变量

Left的值加1,处理数组下一个元素，重复以上过程，直到Left沃ight为止。

Right的值即为不同的数的个数。

OptionExplicit

CptionBase1

PrivateSubCommandick0

DimA$AsInteger,NAsInteger,IASInteger

DimCPAsInteger

P^InputBox。请输入数据个数"，，

ReDimAN

Randanize

For1=1ToN

A0=Int(Rnd*iq)+1

Textl^Textl&A(l)&Hn

NextI

Cal1StatisticOF)

11&oP&।个不同的数："

For1=1ToCP

Tfext"Ifext2&A(D&""

NextI

EndSub

PrivateSubStatisticQOAsInteger,RightAsInteger)

DimLeftAsInteger,KAsInteger,IAsInteger

Right=(23)

Left=2

DoWhileLeftV丞ight

仁(24)

ForUKTo1Step—1

IfAC-eft)=A(I)ThenExitFor

NextI

If(25)Then

Lefft+1

,Else

AOleft)=KRight)

(26)

EndIf

Loop

EndSub

9.在计算机中用一个字节(8位)，来存储一个字符的Ascii码，其中低7位二进

制数对应字符的编码，每个字节的最高位一般保持为"。，在数据传输时可用

作奇偶校验位，传输时Ascii代码转换成传输码的方法是:若7位Ascii码有偶

数个1,最高位为L有奇数个L则最高位为0,例如字母"A的Ascii码十

进制表示为65,二进制表示为0010000b”R的传输码则为"10100001”，本

程序的功能就是把Ascii码转换成这种传输码

OptionExplicit

PrivateSubCarmandlClickjj

DimiAsInteger,SAsString

DimstrAsStringchAsString

strffextl.text

Fori=lToLen(sti)

(27)

Cal1convertths)

Listl.Additemch&&S

Nexti

EndSub

PrivateSubconvertfchAsStringSAsString

DimmAsInteger,kAsInteger,nAsInteger,iAsInteger

s=(28)

FF=ASC9坨

DDWiilen>0

(29)

S=^n&S

Ifm=lThen

EndIf

rp=ri\2

Loop

Fori=lTo7Ten(s)'将字符的二进制代码补足7位

S="0"&S

Nexti

Ifk2=0Then

(30)

Else

S="0"&S

EndIf

EndSub

2009年秋计算机二级VB

第一部分计算机基础知识

i.下面关于个人移动通信的叙述中，错误的是_______之

A第1代个人移动通信（简称10采用的通信技术是数字通信技术

B目前广泛使用的CW•机采用的通信技术属于第2代移动通信技术（简称2Q

C第3代移动通信技术（简称30将无线通信与互联网、多媒体通信相结合

D3G有多个国际技术标准，其中也有我国自主制定的3G技术标准

2.在下面有关集成电路的叙述中，正确的是,

A现代集成电路所使用的半导体材料都是硅

B所有的集成电路都是数字集成电路

CMo。re定律认为单块集成电路的集成度平均每年翻一番

DIntel公司微处理器产品Core2Dig其集成度已高达数千万个电子元件

3.与十六进制数AB等值的八进制数是

A253B254C171

D172

4在下列有关WCFU的叙述中，错误的是£

ACHJ中包含几十个甚至上百个寄存器，用来临时存放数据、指令和控制数据

B所有PC机的CFU都具有相同的指令系统，因而PC机可使用相同的软件

C一台计算机至少包含1个CPLJ也可以包含2个、4个、8个甚至更多个CFU

DIntel公司是国际上研制和生产CHJ的主要公司，我国也能生产CFU

5.在下列有关PC机主板上部件的叙述中，错误的是

ABIC6保存在主板上的一个闪存中，其内容在关机后通常不会改变

RCMS中保存有用户设置的开机口令，关机后主板上的电池继续给5cs供电

C启动QC6设置程序可以重新设置QCS中的数据，该程序是BICS的组成部分

D网卡通常集成在主板上，由主板上独立的IC实现其功能，与芯片组无关

6.从PC机存储器的层次结构来看，下列存储器中存取速度最快的是»

ACached存储器BRWIRCMi

C寄存器D硬盘和优盘

7.在下列4种FC机常用I/C接口中，数据传输速度最快的是

APS^BSAIACIEE^-1394bDUSB20

&在下列有关］/（源作、I/O总线和l/。接口的叙述中，错误的是

A:UQ操作的任务是在IX）设备与内存的指定区域之间传送信息

B卜）总线传送的只能是数据信号，它不能传送控制信号和地址信号

C不同类型的嗨口，其插头湎座以及相应的通信规程和电气特性通常各不相同

D并行总线的数据传输速率不一定比串行总线高

9.在下列有关PC机和I/O设备的叙述中，错误的是

A数码相机的成像芯片可以为CID器件或（W6芯片，目前大多数用OOD器件

B平板式扫描仪的分辨率通常远远高于胶片扫描仪和滚动式扫描仪

C常见的宽屏液晶显示器的宽度与高度之比为169（或1610）

D目前在银行、超市等商业部门一般采用针式打印机来打印存折和票据

10.在下列有关计算机软件的叙述中，错误的是o

A程序设计语言处理系统和数据库管理系统被归类为系统软件

B共享软件是一种具有版权的软件，它允许用户买前免费试用

C机器语言和汇编语言与特定的计算机类型有关，取决于CHJ

D目前PC机只能使用Windows系列操作系统，均不能使用INIX和Linux操作系统

11.在下列常用的印机软件中，编辑的文档（内容）能直接保存为图片类型（例如JPB3

我那件类型）的是

AMicrosoftWardBMicrosoftExcel

CMicrosoftPowerPointDMicrosoftFrontPage

12在下列关于以太网（局域网）的叙述中，错误的是o

A在共享式以太网中，任何时间只允许一对计算机进行通信

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

C无论是共享式以太网还是交换式以太网网络中的所有计算机都要安装以太网网卡

□无论是共享式以太网还是交换式以太网,它们的数据帧和诋:地址格式均相同

13.连接在因特网上的每一台主机都有一个IP地址。下面不能作为IP地址的是

A211.25649.68B21.18.33.48

C120.34.0.18D37.251.680

14.为了将异构的计算机网络互相连接起来，必须使用的网络设备是

A调制解调器B以太网集线器

C以太网交换机D路由器

15.下列网络协议中，与发送电子邮件有关的是

AHTTPEFTPCSWDTHNET

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

A基本的ASCH字符集共有128个字符，每个字符使用7个二进位进行编码

BGB2312字符集中收录了6千多个汉字，每个字符在机内通常使用双字节编码

CGSC字符集中所有的字符也采用双字节编码，且该字符集收录了部分繁体汉字

DGB18030字符集中所有的字符集均采用4字节编码，因此该字符集的代码空间很大

17.目前数码相机拍摄的照片在保存时通常采用的文件类型是a

ABVPEGIFCJPBG

DTIF

18.MP3是数字波形声音的一种压缩编码文件格式，它采用的压缩编码标准属于

AMPBG-1EMPB3-2CMPBG-4

DDolby

19________________________.使用Micrcnedia公司的Flash软件制作的动画是一种矢量图形，在保存为动画文件时

其文件扩展名通常为________,

AGIFESNFCATI

DMRG

20.在计算机应用中，OD和CM是典型的信息系统。它们属于2

A管理业务系统B辅助技术系统

C信息检索系统D信息分析系统

第二部分VisualBasic程序设计

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

21.要将焦点设置在某个控件上，以下四个选项中正确的是o

A只能使用鼠标直接点击该控件

B只能使用Tab键将焦点移到该控件

C只能在程序中调用该控件的SetFocus方法

DABC三选项中涉及的方法均可使用

22在下列属性中，属于CcmmndButton控件、ListBox控件共有的是0

ACaption,TextEVisible.Font

CCaptionVisibleDList>Visible

Sin30°+yl]nx+y

23.数学表达式―二对应的VB表达式是___________&

24+e*>

ASin(30*3.14152/18。+SqrSg⑨电/2*3.141594Exp

B(Sin(30所/180+Sqr(Ln®+y))/Q%-+Exp(x+y))

CSin0O*18Q^.14159+SqrSg®W/(2*3.1415«A/)

DGin(30*3.1415Q/180+Sqr(U)g⑨为)/Q*3.14159~ffixp(^+y))

24以下的关系表达式中，运算结果为True的是________工

ACInt(1.3=IntC.5)BFixQ.3=Int(1.5)

CFixH-5)=CintH.5)DFixH，5)=IntH.5)

25.下面有关数组的叙述中，不正确的是»

①在过程中用ReDim定义的动态数组，其下标的上下界可以是变量

②数组作为形参数组时，传递的是每个数组元素的值

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

④数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值

A(2X3)B④C①②®©

D③④

26.下列关于文件的叙述中，错误的是o

A用Qitput模式打开一个顺序文件，即使不对它进行写操作，原来的内容也被清除

B可以用Print据句或语句将数据写到顺序文件中

C若以OutputAppendRandcmBinary方式打开一个不存在的文件，系统会出错

D顺序文件或随机文件都可以用二进制访问模式打开

27.以下关于控件数组的说法中，错误的是»

A控件数组由一组具有相同名称和相同类型的控件组成

B控件数组中的所有控件不得具有各自不同的属性设置值

C控件数组中的所有控件共享同一个事件过程

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

2&以下Case语句中，能正确描述Y的绝对值大于6的是=

ACaseAbs⑨>6BCase—6To6

CCaseNot沁lb0DCaseIs<5,Is>

6

29.若在模块中用PrivateFunctionFunQAsSingle,BAsInteger)AsInteger定义

了函数Fua调用函数Fun的过程中定义了I,J和K三个Integer型变量，则下列语句中

不能正确调用函数Fun的语句是o

AFun3.14,JBCallFunC,365)

CFun(D,0)DB^un(,,24",u35,r)

30.若需要在同一窗体内安排两组相互独立的单选按钮(CptionButtoii),可使用

控件做容器将它们分开。

①TfextBox②PicturcBox③Image④Frare

A①或②B②或③C②或④

D③或④

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

1.执行下面的程序，单击Canmndl,则数组元素a(1.2)的数值是一(1),a25的

数值是(2,的值是(3)。

OptionExplicit

PrivateSubCcnmand]_ClickJ

Dima也@AsInteger,iAsInteger

DimjAsInteger,kAsInteger,nAsInteger

n=16k=2

Do

Fori=1To4

Forj=17b4

Ifi+j=kThen

a(i,j)=n

n=n-1

EndIf

Nextj

Nexti

k=k+1

LoopLhti1k>8

Fori=1To4

Forj=1To4

PrintRight("11&a(i,j),3);

Nextj

Print

Nexti

EndSub

2.执行下面的程序，单击Ccmnandl,窗体上显示的第一行是(4)、第二行是

(5、第四行是(6。

OptionExplicit

PrivateSubCcnmandl_Clickjj

DimiAsInteger,sAsInteger

Fori=1To9Step3

s=fun((i))+fun(i)

Prints

Nexti

EndSub

PrivateFunctionfun(nAsIntegei)AsInteger

StaticaAsInteger

IfmNbd2=0Then

a：=a+1

m=m+1

Else

a=a+2

m=m+2

EndIf

fun=a+m

Printfun

EndFunction

3.执行下面的程序，单击Conroandl,窗体上显示的第一行是(7)、第二行是

(8)最后一行是(9。

OptionExplicit

PrivateSubCannandLClickJ

DimaAsInteger,bAsInteger

a=1

b=2

PrintfunQ+2,funQ*a,tj))

Printa;b

EndSub

PrivateFunctionfun0cAsInteger,ByVaiyAsIntegei)AsInteger

x=x+2

y=x—y+3

fun=x+y

Printx;芳fun

EndFunction

4.执行下面的程序，单击Ccmmndl,窗体上显示的第二行是(10)、第三行是

(11)、第四行是(12)。

OptionExplicit

PrivateSubCcnmandlClickj

DimnAsInteger,kAsInteger

n=36k=5

Printtrans(h,用

EndSub

PrivateFunctiontrans(hAsInteger,kAsInteger)AsString

DimrAsInteger

Ifno0Tien

r=nNbdk

Ifr<10Then

trans=trans<h\k,&r

Printn

Else

trans=trans<h\k,D&Chr05+i)

EndIf

EndIf

EndFunction

5.执行下面的程序，单击Ccmmndl,在窗体上显示的第一行是(13)、第二行的内

容是(U)、第三行的内容是(15)。

OptionExplicit

PrivateSubCarmandl_Clicki

DimsAsStringkAsInteger

DimkeyAsString

s=H10101"

key="111000"

k=1

DD

Cal1encrypt(s,ke^

Prints

s=Right(s,D&Left(s,4—Q&Mid(s,4,2)

k=k+1

Looplilti1k>3

EndSub

PrivateSubencryptQAsStringbAsString

DimspAsStringnAsInteger,iAsInteger

sp=n0000u

n=Len⑥—Len@

Ifn>0Thena=Right(sp&a,Len©)

Fori=1ToLen⑥

IfMid&i,1)=Mid(b,i,1)Then

Mid(3,i,1)="0"

Else

MidQi,1)="1"

EndIf

Nexti

EndSub

6.下面程序的功能是求序列：……前若干项的和，项数由文

本框输入。试完善程序使其达到功能要求。

OptionExplicit

PrivateSub计算click$

DimnAsInteger,alAsInteger,a2AsInteger

DimiAsInteger,tAsSingle,sAsSingle

n=VaiOfextl.Ibxt)

al=1

a2=2

Fori=1TDn

(1-

s=s+t

a2=al+a2

Nexti

Tbxt2=s

EndSub

7.下面程序的功能是：从一组以16进制数形式表示的若干个字节数据中，找出其中的汉

字代码(若相邻的两个字节中，每个字节的最高一位的数值都大于或等于&则这两个字

节为一个汉字的代码)。试完善程序使其达到功能要求。

OptionExplicit

PrivateSubccnmandl_clickJ

Dimst{AsStringpAsStringkAsInteger

DimnAsInteger,iAsInteger

p=Trim(Tbxtl)

Do

n=InStr.H')

备.查找汉字代码ED叵I区)

k=k+1

ReDimPreservest(K)

st®=Leftgn—1)

p=Right仙Len(p)—n)

Else

ReDimPreservest(k+1)

(19

EndIf

LoopLhti1n=0

Fori=1ToLBound(st)—1

IfChinese(st(i),st(i+1))Then

Listl.Additemst(i)&"&st(i+1)

(2。

EndIf

Nexti

EndSub

PrivateFunctionChinese(pAsStringqAsStringAsBoolean

DimstAsStringkAsInteger,nAsInteger

DimiAsInteger

st=(,O123456789A0GDEF"

Fori=1ToLen(st)

IfLeftg1)=Mid(st,i,1)Thenk=i-1

(21)

Nexti

IfkH8AndnA8ThenChinese=True

EndFunction

&本程序的功能是求出rHn之间所有的可分解整数。所谓可分解整数是指具有以下性质的

数，它的各位数字之和等于其所有质因子各位数字之和(注意：素数不是可分解整数)。例

如整数121,各位数字之和是4,其质因子是11、11,质因子的各位数字之和也是4

(1+1+1+W,所以121是可分解整数。试完善程序使其达到功能要求。

OptionExplicit

PrivateSubccrrmandlclickJ

DimnAsInteger,mAsInteger,kAsInteger

n=Tfextl

m=Text2

Fork=nTbm

Ifsuml®=sum2⑹Then

Listl.Additemk

EndIf

Nextk

EndSub

PrivateFunctionsunl((2》)AsInteger

Do

suml=(23)

n=n\10

LoopHiti1n=0

EndFunction

PrivateFunctionsum2(pyValnAsInteger)AsInteger

DimkAsInteger,nnAs

•求间所有可分解整数叵I*

Integer

(24

nn=n

Do

IfnM)dk=0Then

sum2=sum2+suml⑹

n=n'k

Else

(25)

EndIf

LoopLhti1k>nn/2

EndFunction

9.下面程序的功能是：将ab两个数组的数据按从大到小的顺序合并到数组c中。ab

两个数组的数据分别从文本框A和文本框B输入，数据以空格分隔。合并结果在文本框C

中输出。试完善程序使其达到功能要求。

OptionExplicit

OptionBase1

PrivateSubccnmandl^_clickjj

DimajjAsInteger,bAs

Integer,c0AsInteger

DimiAsInteger,stAsString

st=Trim(Tfextl)

Cal1load_a(st,a)

st=Trim(Text2)

Cal1load_a(st,tj)

ReDimc(1)

(26)

Fori=2ToUBound④

Ca11changeQ(i),。

Nexti

Fori=1ToLBound⑹

Cal1change(b(i),。

Nexti

Fori=1ToLBound©

7text3=Text3&Strfc(0)

Nexti

EndSub

PrivateSubload_a(sAsStringajjAsIntegei)

DimiAsInteger,kAsInteger,pAsStringqAsString*1

Fori=1TbLen©

q=Mid(s,i,1)

Ifq>="0uAndq<=H9"Orq=，L-"Then

(27)

ElselfpO""Then

k=k+1

ReDimPreservea⑹

a®=Vai@

(28

EndIf

Nexti

Ifpo1,11Then

ReDimPreservea&+1)

a(k+1)=p

EndIf

EndSub

PrivateSubchange(hAsInteger,c0AsIntegei)

DimiAsInteger,jAsInteger

ReDimPreservec(LBound©+1)

Fori=1ToLBound©—1

Ifn>c(i)Then

Forj=LBound©Toi+1Step—1

cG)=c(j—1)

Nextj

(29

EndIf

Nexti

(3。

EndSub

2010春江苏二级VB考试试题

第一部分计算机基础知识

1.下面关于通信技术的叙述中，错误的是1Q

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

B为了实现远距离传输信息，在模拟通信和数字通信中均采用载波技术

C为了降低传输信息的成本，在通信中广泛采用多路复用技术

D数字通信系统的一个主要性能参数是信道带宽，它指实际进行数据传输时单

位时间内传输的二进位数目

2.在下列有关集成电路及其应用的叙述中，错误的是2o

A集成电路的制造工序繁多，工艺复杂且技术难度高

B经过抛光后的硅片称为晶圆，每个晶圆最多可以制成一个合格的集成电路

心-H-片|_L

cIC卡分为接触式IC卡和非接触式IC卡，后者通常又称为射频卡或感应

卡

D集成电路应用十分广泛，目前我国第2代居民身份证中就有集成电路芯片

3.在下列有关数字技术的一些叙述中，错误的是3。

A数字技术是采用有限个状态例如"CT和叮丹来表示、处理、存储和传输信

息的

B在逻辑代数中，1与1进行逻辑加（M和逻辑乘。的结果相