江苏省二级VB考试真题Word格式文档下载.docx

江苏省二级VB考试真题Word格式文档下载.docx

《江苏省二级VB考试真题Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《江苏省二级VB考试真题Word格式文档下载.docx（80页珍藏版）》请在冰豆网上搜索。

A．4.7GB

B.8.5GB

C．17GB

D．25GB

B8．下列有关PC机常用I／O设备（性能）的叙述中，错误的是___（8）___。

A．通过扫描仪扫描得到的图像数据可以保存为多种不同的文件格式，例如JPEG、TIF等

B．目前数码相机的成像芯片均为CCD类型，存储卡均为SD卡

C．刷新速率是显示器的主要性能参数之一，目前PC显示器的刷新速率一般在60Hz以上

D．从彩色图像输出来看，目前喷墨打印机比激光打印机有性价比优势

D9．下列有关计算机软件的叙述中，错误的是___（9）___·

A．软件的主体是程序，单独的数据和文档资料不能称为软件

B．软件受知识产权（版权）法的保护，用户购买软件后仅得到了使用权

C．软件的版权所有者不一定是软件的作者（设计人员）

D．共享软件允许用户对其进行修改，且可在修改后散发

C10．PC机从硬盘启动WindowsXP操作系统是一个比较复杂的过程·

在这个过程中，它需要经过以下这些步骤：

I．装入并执行引导程序

Ⅱ．读出主引导记录

Ⅲ．装入并执行操作系统

Ⅳ．加电自检

在上述步骤中，正确的工作顺序是___（10）___

A．I、Ⅱ、Ⅲ、Ⅳ

B．Ⅳ、I、lI、Ⅲ

C．Ⅳ、II、I、Ⅲ

D．Ⅳ、Ⅲ、II、I

D11．下列有关算法和程序关系的叙述中，正确的是___（11）___

A．算法必须使用程序设计语言进行描述

B．算法与程序是一一对应的

C．算法是程序的简化

D．程序是算法的具体实现

A12．采用ADSL方式接入因特网时，ADSLModem将电话线传输信道分为三个信息通道：

语音通道、上行数据通道、下行数据通道。

下列有关这三个信息通道的叙述中，错误

的是___（12）___·

A．语音通道的频带最宽、采用的频率最高，以保证电话通话的质量

B．通常上行数据通道的数据传输速率低于下行数据通道的数据传输速率

C．ADSL的数据传输速率是根据线路情况自动调整的

D．这三个信息通道可以同时工作，即可以同时传输信息（数据）

B13．无线局域网是以太网与无线通信技术相结合的产物，其采用的网络协议主要是IEEE

制订的___（13）___。

A．IEEE802．3

B．IEEE802．11

C．IEEE1394

D．IEEE1394b

C14.在因特网中目前主要采用IPv4协议，IP地址长度为32位，只有大约36亿个地址。

新的第6版IP协议（IPv6）已经将IP地址的长度扩展到___（14）___位，几乎可以不受限制地提供地址。

A．48

B．64

C．128

D．256．

D15·

因特网由大量的计算机和信息资源组成，它为网络用户提供了非常丰富的网络服务。

下列与www服务相关的叙述中，错误的是___（15）___。

A.WWW采用客户机／服务器工作模式

B．网页到网页的链接信息由URL指出

C．浏览器是客户端应用程序

D．所有的网页均是HTML文档

C16·

目前Windows操作系统支持多种不同语种的字符集，即使同一语种（例如汉语）也可有多种字符集。

下列字符集中，不包括“臺”、“灣”等繁体汉字的是___（16）___。

A．GBK

B．Big5

C．GB2312

D．GBl8030

B17·

下列与数字图恸图形相关的叙述中，错误的是___（17）___。

A·

彩色图像在数字化过程中需进行分色处理，然后对不同的基色进行取样和量化

B·

如果某RGB图像的像素深度为12，则可表示的颜色数目为2（应为2的12次）

（由RGB三基色组成的彩色图像，若三个分量中的像素位数分别为4,4,4，则该图像的像素深度为12，不同颜色的数目为：

2^（4+4+4）=2^12=4096）

C·

数码相机常用JPEG格式保存图像文件，该格式的图像大多采用有损压缩编码

D·

’图形是计算机合成的图像，也称为矢量图形

A18．文件的扩展名用于标记文件的类型，用户应该尽可能多地知晓各类文件的扩展名。

下列文件中，属于数字视频的文件是___（18）___

A．ABC．RMVB

B．ABC．DLL

C．ABC．PDF

D．ABC．MIDI

A19.下列几种类型的系统软件中，不属于计算机集成制造系统（CIMS）范畴（或者说,与CIMS无直接关系）的是___（19）___。

A．GIS

B．CAM

C．MRP

D．ERP

C20．下列有关MicrosoftPowerPoint2003和MicrosoftFrontPage2003软件的叙述中，错误的是___（20）___。

型用PowerPoint编辑演示文稿时，可以将每张幻灯片保存为JPEG图片

利用PowerPoint编辑演示文稿时，可以录制声音。

利用FrontPage制作网页时，无法直接查看网页的HTML代码

利用FrontPage制作网页时，背景图片可以设置为“水印”效果

第二部分VisualBasic程序设计

一、选择题

21．以下说法中，正确的是（21）D。

A．属性是对象的特征，所有的对象都有相同的属性

B．属性值只能在属性窗口中设置

C．在程序中可以用赋值语句给对象的任何一个属性赋值

D．对象的运行时属性不出现在对象属性窗口中

22．下面4个语句中，错误的是（22）B。

A．N=InputBox（”输入N:

”,,5）

B.InputBox（“输入N:

C．MsgBox”请回答”

D．K=MsgBox（”请回答”）

23．若设X=1,Y=2，则不能在窗体上显示出”A=3”的语句是（23）A。

A．PrintA=X+Y

B．Print”A=”；

X+Y

C．Print”A=”+Str（X+Y）

D．Print”A=”&

24．表达式InStr（4,”abcabca”，”c”）+Int（2.5）的值为（24）B。

A．7B．8C．5D．9

25．以下有关数组的说法中，错误的是（25）C。

A．用ReDim语句重新定义动态数组时，其下标的上下界可以使用赋了值的变量

B．用ReDim语句重新定义动态数组时，不能改变已经说明过的数组的数据类型

C．使用ReDim语句一定可以改变动态数组的上下界

D．定义数组时，数组维界值可以不是整数

26.以下有关过程的说法中，错误的是（26）D。

A．不论在Function过程中是否给函数名赋过值，都会返回一个值

B．不能在Function与Sub过程内部，再定义Function或Sub过程

C．Function过程与Sub过程，都可以是无参过程

D．过程名可以和主调过程的局部变量同名

27.下列关于菜单的说法中，错误的是（27）C。

．

A．除了Click事件之外，菜单项不能响应其他事件

B．菜单的名称项（Name属性）不可缺省

C．只有当代码窗口为当前活动窗口时，才能打开菜单编辑器

（只有当某个窗体为当前活动窗体时，才能打开菜单编辑器）

D．菜单项的快捷键不能任意设置

28．设a=1，b=2，c=3，逻辑表达式a<

bAndNotc>

bXorc<

a的值是（优先级别:

括号>

not>

and>

or）A。

A．FalseB．-1C．TrueD．1

29.在窗体Form1中用“PublicSubFun（xAsInteger,YAsSingle）”定义过程Fun，在窗体Form2的某事件过程中定义了变量I和J均为Integer，若要在此过程中调用Form1中的Fun过程，则下列语句中正确的（29）D。

A．CallFun（I，J）

B．CallForml.Fun（I，J）

C．FunI，（J）

D．Form1.FunI，（J）

30．以下有关文件操作的说法中，正确的是（30）C。

A．在某过程中用Open语句打开的文件，只能在这个过程中使用

B．不能用Output、Append方式打开一个不存在的顺序文件（

C．在Input方式下，可以使用不同的文件号同时打开同一个文件

D．在不同的过程中，可以用同一个文件号同时打开不同的文件

Open<

文件名>

For<

打开方式>

As#<

文件号>

[Len=缓冲区大小]

◆Input：

打开文件后，从文件中读取数据

◆Output：

打开文件后，向文件中写入数据，即重写一个顺序文件

◆Append：

打开文件后，向文件末尾添加数据

若指定Input方式，则当指定文件不存在时产生一个错误；

若指定Output或Append方式，则当文件不存在时建立该文件，文件已存在时写入的数据，前者覆盖，后者追加。

所以Open具有建立和打开文件的双重功能。

对同一文件用一种方式打开后，在关闭之前，不能再以另一种方式打开。

二、填空题

1·

执行下列程序，单击按钮Command1，窗体上显示的第一行内容是___

（1）___,第二行是___

（2）___，第三行内容是___（3）___。

OptionExplicit

PrivateSubCommand1_Click（）

DimaAsInteger,bAsInteger

a=4

b=3

DoUntila>

10

b=b／2

DoUntilb>

a=（a+b）\2+b

b=b+5

Printa,b

Loop

a=a-3

EndSub

2.执行下面程序，当单击Cmd1时，在窗体上显示的第一行内容是___（4）___第二行的内容是___（5）___，第四行的内容是___（6）___。

PrivateSubCmd1_Click（）

a=1

b=2

Printfun（2*b，fun（a,（b）））

Printa;

b

PrivateFunctionfun（xAsInteger,yAsInteger）AsInteger

x=x+2

y=x-y+3

fun=x+y

Printfun

EndFunction

3．执行下面的程序，单击CmdRun后，数组元素a（1，2）的值是___（7）___,a（2,1）的值是

___（8）__，a（3，2）的值是___（9）___

OptionBase1

PrivateSubCmdRun_Click（）

DimA（3，3）AsInteger,iAsInteger,jAsInteger,kAsInteger,nAsInteger

n=3

i=1：

j=n

A（i，j）=1

Fork=2Ton*n

Ifi+1>

nThen

i=n-j+2：

j=1

ElseIfi+1<

=nAndj+1>

j=j-i：

i=1

Else

i=i+1：

j=j+1

EndIf

A（i,j）=k

Nextk

Fori=1Ton

Forj=1Ton

PrintA（i，j）;

NextJ

Print

Nexti

4．运行程序，在文本框Text1中输入用空格分隔的4位二进制数1001、0101和0110。

单击“处理”按钮，在多行文本框Text2中第一行显示___（10）___，第二行显示___（11）___，第三行显示___（12）___

PrivateSubCmd1_Click0

DimS（3）AsString，nAsInteger

DimiAsInteger,kAsInteger

k=1

Fori=1T03

S（i）=Mid（Text1，k，4）

k=k+5

CallTransform（n，S（i））

Text2=Text2&

n&

vbCrLf

PrivateSubTransform（nAsInteger,SAsString）

DimkAsInteger,iAsInteger,LAsInteger

L=Len（S）

IfVal（Mid（S，1，1））=1Then

n=-（2^（L-1））

n=0

Fori=2ToL

k=Mid（S，i，1）

n=n+k*2^（L-i）

5．执行下列程序，单击CmdRun按钮，则窗体上显示的第一行是___（13）___，第二行是___（14）___最后一行是___（15）___

DimnAsInteger

Forn=4To7

IfFun1（n,Sqr（n））Then

Printn;

"

SS"

HS"

Nextn

PrivateFunctionFun1（nAsInteger,iAsInteger）AsBoolean

Ifi=1Then

Fun1=True

ElseIfnModi<

>

0Then

Fun1=Fun1（n,i-1）

Fun1=False

6．下面程序的功能是求S的值。

计算到第k项的值小于等于1O为止．请完善本程序。

PrivateSubCmdSum_Click（）

DimsAsSingle，xAsSingle，kAsInteger,tAsSingle

x=CSng（Text1.Text）

___（16）___

DO

t=pt（x，k）

s=s+t

k=k+1

LoopUntilt<

=0.000001

Text2.Text=CStr（s）

PrivateFunctionpt（xAsSingle，nAsInteger）AsSingle

DimiAsInteger

___（17）___

pt=___（18）___

pt=pt/x^n

7．下面程序的功能是，找出100---999之间具有以下特点的整数：

其全部真因子（1和自身除外的因子）中，所有素数因子之和的2倍等于其余因子的和数．请完善本程序。

DimiAsLong，JAsLong，mAsInteger,stAsString

Dima（）AsInteger

Fori=100To999

___（19）___

Forj=2Toi-1

IfiModj=0Then

m=m+1

___（20）___

a（m）=J

Nextj

Ifm>

OThen

Ifyzh（a，st）ThenList1.AddItemi&

“：

”&

st

Erasea

PrivateFunctionyzh（a（）AsInteger,stAsString）AsBocllean

DimiAsInteger,jAsInteger

DimsumlAsLong，sum2AsLong，stlAsString，st2AsString

Fori=1ToUBound（a）

Forj=2ToSqr（a（i））

Ifa（i）Modj=0ThenExitFor

If___（21）___Then

sum1=sum1+a（i）

st1=st1&

a（i）&

”+”

EIse

sum2=sum2+a（i）

st2=st2&

Ifsum1*2=sum2Then

___（22）___

st=”（”&

Left（st1，Len（st1）-1）&

”）*2=”&

Left（st2,Len（st2）-1）

8．本程序的功能是求-128～+127之间整数n的8位2进制补码。

采用的算法是：

若n≥O，则直接将其转换为相应的7位2进制数，前面的符号位设定为“O”；

若n<

0，则将n+128转换为相应的7位2进制数，前面的符号位设定为“1”。

请完善本程序。

PrivateSubCommand1_Click0

DimdecAsInteger

dec=Textl

If___（23）___Then

MsgBox”无效数据，请重输!

”，，”求补码”

Text1=””

Text1．SetFOCUS

Eise

Text2=bm（dec）

PrivateFunctionbm（nAsInteger）AsString

IfSgn（n）>

=0Then

bm=”0”&

d2b（n）

n=n+128

bm=___（24）___

PrivateFunctiond2b（nAsInteger）AsString

DimpAsInteger

Do

p=nMod2

d2b=CStr（p）&

d2b

n=n\2

LoopUntil___（25）___

d2b=Right（”000000”&

d2b，7）

9．本程序的功能是，按从大到小的次序给一组正整数标记序次。

程序的算法是：

先找出原数组中所有的最大数，假如有n个最大数，它们序次均标记为1，已处理的数据值改为-99：

再找出所有的次大数，它们的序次标记为n+1……直到所有数据处理完毕。

（说明：

数组sn用于存放数组a中相应的各个元素的序次，数组b用来保留原始数据）

Dima（10）AsInteger,sn（10）AsInteger,b（10）AsInteger,iAsInteger

Fori=1TolO

a（i）=Int（Rnd*61）+40

b（i）=___（26）___

Text1=Text1&

Str（a（i））

Callorder（a，sn）

Fori=1