vb真题.docx

vb真题.docx

《vb真题.docx》由会员分享，可在线阅读，更多相关《vb真题.docx（56页珍藏版）》请在冰豆网上搜索。

vb真题

2008年9月全国计算机等级考试二级笔试试卷

一、选择题（每小题2分，共70分）

（1）一个栈的初始状态为空。

现将元素1、2、3、4、5、A、B、C、D、E依次入栈，然后再依次出栈，则元素出栈的顺序是（）。

A）12345ABCDE

B）EDCBA54321

C）ABCDE12345

D）54321EDCBA

（2）下列叙述中正确的是（）。

A）循环队列有队头和队尾两个指针，因此，循环队列是非线性结构

B）在循环队列中，只需要队头指针就能反映队列中元素的动态变化情况

C）在循环队列中，只需要队尾指针就能反映队列中元素的动态变化情况

D）循环队列中元素的个数是由队头指针和队尾指针共同决定

（3）在长度为n的有序线性表中进行二分查找，最坏情况下需要比较的次数是（）。

A）O（n）

B）O（n2）

C）O（log2n）

D）O（n log2 n）

（4）下列叙述中正确的是（）。

A）顺序存储结构的存储一定是连续的，链式存储结构的存储空间不一定是连续的

B）顺序存储结构只针对线性结构，链式存储结构只针对非线性结构

C）顺序存储结构能存储有序表，链式存储结构不能存储有序表

D）链式存储结构比顺序存储结构节省存储空间

（5）数据流图中带有箭头的线段表示的是（）。

A）控制流

B）事件驱动

C）模块调用

D）数据流

（6）在软件开发中，需求分析阶段可以使用的工具是（）。

A）N-S图

B）DFD图

C）PAD图

D）程序流程图

（7）在面向对象方法中，不属于“对象”基本特点的是（）。

A）一致性

B）分类性

C）多态性

D）标识唯一性

（8）一间宿舍可住多个学生，则实体宿舍和学生之间的联系是（）。

A）一对一

B）一对多

C）多对一

D）多对多

（9）在数据管理技术发展的三个阶段中，数据共享最好的是（）。

A）人工管理阶段

B）文件系统阶段

C）数据库系统阶段

D）三个阶段相同

（10）有三个关系R、S和T如下：

RST

A

B

B

C

A

B

C

m

1

1

3

m

1

3

n

2

3

5

由关系R和S通过运算得到关系T，则所使用的运算为（）。

A）笛卡尔积

B）交

C）并

D）自然连接

（11）在设计窗体时双击窗体的任何地方，可以打开的窗口是（）。

A）代码窗口

B）属性窗口

C）工程资源管理器窗口

D）工具箱窗口

（12）若变量a未事先定义而直接使用（例如：

a=0），则变量a的类型是（）。

A）Integer

B）String

C）Boolean

D）Variant

（13）为把圆周率的近似值3.14159存放在变量pi中，应该把变量pi定义为（）。

A）DimpiAsInteger

B）Dimpi（7）AsInteger

C）DimpiAsSingle

D）DimpiAsLong

（14）表达式2*3^2+4*2/2+3^2的值是（）。

A）30

B）31

C）49

D）48

（15）以下不能输出“Program”的语句是（）。

A）PrintMid（"VBProgram",3,7）

B）PrintRight（"VBProgram",7）

C）PrintMid（"VBProgram",3）

D）PrintLeft（"VBProgram",7）

（16）窗体上有一个名称为Frame1的框架（如图），若要把框架上显示的“Frame1”改为汉字“框架”，下面正确的语句是（）。

A）Frame1.Name="框架"

B）Frame1.Caption="框架"

C）Frame1.Text="框架"

D）Frame1.Value="框架"

（17）以下叙述中错误的是（）。

A）在通用过程中，多个形式参数之间可以用逗号作为分隔符

B）在Print方法中，多个输出项之间可以用逗号作为分隔符

C）在Dim语句中，所定义的多个变量可以用逗号作为分隔符

D）当一行中有多个语句时，可以用逗号作为分隔符

（18）设窗体上有一个列表框控件List1，含有若干列表项。

以下能表示当前被选中的列表项内容的是（）。

A）List1.List

B）List1.ListIndex

C）List1.Text

D）List1.Index

（19）设a=4，b=5，c=6，执行语句Printa

A）True

B）False

C）出错信息

D）0

（20）执行下列语句

strInput=InputBox（"请输入字符串"，"字符串对话框"，"字符串"）

将显示输入对话框。

此时如果直接单击“确定”按钮，则变量strInput的内容是（）。

A）"请输入字符串"B）"字符串对话框"C）"字符串"D）空字符串

（21）窗体上有Command1、Command2两个命令按钮。

现编写以下程序：

OptionBase0

Dima（）AsInteger,mAsInteger

PrivateSubCommand1_Click（）

m=InputBox（"请输入一个正整数"）

ReDima（m）

EndSub

PrivateSubCommand2_Click（）

m=InputBox（"请输入一个正整数"）

ReDima（m）

EndSub

运行程序时，单击Command1后输入整数10，再单击Command2后输入整数5，则数组a中元素的个数是（）。

A）5

B）6

C）10

D）11

（22）在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Labcl1，然后编写如下事件过程：

PrivateSubCommand1_Click（）

Counter=0

Fori=1To4

Forj=6To1Step-2

Counter=Counter+1

Nextj

Nexti

Label1.Caption=Str（Counter）

EndSub

程序运行后，单击命令按钮，标签中显示的内容是（）。

A）11

B）12

C）16

D）20

（23）在窗体上画一个名为Command1的命令按钮，然后编写以下程序：

PrivateSubCommand1_Click（）

DimM（10）AsInteger

Fork=1To10

M（k）=12-k

Nextk

x=8

PrintM（2+M（x））

EndSub

运行程序，单击命令按钮，在窗体上显示的是（）。

A）6

B）5

C）7

D）8

（24）以下关于过程及过程参数的描述中，错误的是（）。

A）调用过程时可以用控件名称作为实际参数

B）用数组作为过程的参数时，使用的是“传地址”方式

C）只有函数过程能够将过程中处理的信息传回到调用的程序中

D）窗体（Form）可以作为过程的参数

（25）在窗体上画一个名称为Command1的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：

PrivateXAsInteger

PrivateSubCommand1_Click（）

X=5:

Y=3

Callproc（X,Y）

Label1.Caption=X

Label2.Caption=Y

EndSub

PrivateSubproc（aAsInteger,ByValbAsInteger）

X=a*a

Y=b+b

EndSub

程序运行后，单击命令按钮，则两个标签中显示的内容分别是（）。

A）25和3

B）5和3

C）25和6

D）5和6

（26）在窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。

运行后的窗体外观如图所示。

        设有如下的类型和变量声明：

PrivateTypePerson

nameAsString*8

majorAsString*20

EndType

DimpAsPerson

设文本框中的数据已正确地赋值给Person类型的变量p，当单击“保存”按钮时，能够正确地把变量中的数据写入随机文件Test2.dat中的程序段是（）。

A）Open"c:

\Test2.dat"ForOutputAs#1

Put#1,1,p

Close#1

B）Open"c:

\Test2.dat"ForRandomAs#1

Get#1,1,p

Close#1

C）Open"c:

\Test2.dat"ForRandomAs#1Len=Len（p）

Put#1,1,p

Close#1

D）Open"c:

\Test2.dat"ForRandomAs#1Len=Len（p）

Get#1,1,p

Close#1

（27）在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click（）

DimiAsInteger,nAsInteger

Fori=0To50

i=i+3

n=n+1

Ifi>10ThenExitFor

Next

Text1.Text=Str（n）

EndSub

程序运行后，单击命令按钮，在文本框中显示的值是（）。

A）2

B）3

C）4

D）5

（28）假定有以下循环结构

DoUntil条件表达式

循环体

Loop

则以下正确的描述是（）。

A）如果“条件表达式”的值是0，则一次循环体也不执行

B）如果“条件表达式”的值不为0，则至少执行一次循环体

C）不论“条件表达式”的值是否为“真”，至少要执行一次循环体

D）如果“条件表达式”的值恒为0，则无限次执行循环体

（29）在窗体上画一个命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click（）

DimI,Num

Randomize

Do

ForI=1To1000

Num=Int（Rnd*100）

PrintNum;

SelectCaseNum

Case12

ExitFor

Case58

ExitDo

Case65,68,92

End

EndSelect

NextI

Loop

EndSub

上述事件过程执行后，下列描述中正确的是（）。

A）Do循环执行的次数为1000次

B）在For循环中产生的随机数小于或等于100

C）当所产生的随机数为12时结束所有循环

D）当所产生的随机数为65、68或92时窗体关闭、程序结束

（30）在窗体上画一个名为Command1的命令按钮，然后编写如下代码：

OptionBase1

PrivateSubCommand1_Click（）

Dima

a=Array（1,2,3,4）

j=1

Fori=4To1Step-1

s=s+a（i）*j

j=j*10

Nexti

Prints

EndSub

运行上面的程序，其输出结果是（）。

A）1234

B）12

C）34

D）4321

（31）设有如下通用过程：

PublicFunctionFun（xStrAsString）AsString

DimtStrAsString,strLAsInteger

tStr=""

strL=Len（xStr）

i=1

DoWhilei<=strL/2

tStr=Tstr&Mid（xStr,i,1）&Mid（xStr,strL-i+1,1）

i=i+1

Loop

Fun=tStr

EndFunction

在窗体上画一个名称为Command1的命令按钮。

然后编写如下的事件过程：

PrivateSubCommand1_Click（）

DimS1AsString

S1="abcdef"

PrintUCase（Fun（S1））

EndSub

程序运行后，单击命令按钮，输出结果是（）。

A）ABCDEF

B）abcdef

C）AFBECD

D）DEFABC

（32）某人为计算n!

（0

PrivateFunctionfun（nAsInteger）AsLong

DimpAsLong

p=1

Fork=n-1To2Step-1

p=p*k

Nextk

fun=p

EndFunction

在调试时发现该函数过程产生的结果是错误的，程序需要修改。

下面的修改方案中有3种是正确的，错误的方案是（）。

A）把p=1改为p=n

B）把Fork=n-1To2Step-1改为Fork=1Ton-1

C）把Fork=n-1To2Step-1改为Fork=1Ton

D）把Fork=n-1To2Step-1改为Fork=2Ton

（33）假定有以下函数过程：

FunctionFun（SAsString）AsString

Dims1AsString

Fori=1ToLen（S）

s1=LCase（Mid（S,i,1））+s1

Nexti

Fun=s1

EndFunction

在窗体上画一个命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click（）

DimStr1AsString,Str2AsString

Str1=InputBox（"请输入一个字符串"）

Str2=Fun（Str1）

PrintSrt2

EndSub

程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为（）。

A）ABCDEFG

B）abcdefg

C）GFEDCBA

D）gfedcba

（34）为计算an的值，某人编写了函数power如下：

PrivateFunctionpower（aAsInteger,nAsInteger）AsLong

DimpAsLong

p=a

Fork=1Ton

p=p*a

Nextk

power=p

EndFunction

在调试时发现是错误的，例如Printpower（5,4）的输出应该是625，但实际输出是3125。

程序需要修改。

下面的修改方案中有3个是正确的，错误的一个是（）。

A）把Fork=1Ton改为Fork=2Ton

B）把p=p*a改为p=p^n

C）把Fork=1Ton改为Fork=1Ton-1

D）把p=a改为p=1

（35）某人编写了下面的程序

PrivateSubCommand1_Click（）

DimaAsInteger,bAsInteger

a=InputBox（"请输入整数"）

b=InputBox（"请输入整数"）

proa

prob

Callpro（a+b）

EndSub

PrivateSubpro（nAsInteger）

While（n>0）

PrintnMod10;

n=n\10

Wend

Print

EndSub

此程序功能是：

输入2个正整数，反序输出这2个数的每一位数字，再反序输出这2个数之和的每一位数字。

例如：

若输入123和234，则应该输出：

321

432

753

但调试时发现只输出了前2行（即2个数的反序），而未输出第3行（即2个数之和的反序），程序需要修改。

下面的修改方案中正确的是（）。

A）把过程pro的形式参数nAsInteger改为ByValnAsInteger

B）把Callpro（a+b）改为proa+b

C）把n=n\10改为n=n/10

D）在prob语句之后增加语句c%=a+b，再把Callpro（a+b）改为proc

二、填空题（每空2分，共30分）

（1）对下列二叉树进行中序遍历的结果【1】。

（2）按照软件测试的一般步骤，集成测试应在【2】测试之后进行。

（3）软件工程三要素包括方法、工具和过程，其中，【3】支持软件开发的各个环节的控制和管理。

（4）数据库设计包括概念设计、【4】和物理设计。

（5）在二维表中，元组的【5】不能再分成更小的数据项。

（6）在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：

PrivateSubCommand1_Click（）

S$=InputBox（"请输入一个字符串"）

Text1.Text=S$

EndSub

PrivateSubText1_Change（）

Label1.Caption=UCase（Mid（Text1.Text,7））

EndSub

程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“VisualBasic”，则在标签中显示的内容是【6】。

（7）在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：

PrivateSubCommand1_Click（）

a$="NationalComputerRankExamination"

n=Len（a$）

s=0

Fori=1Ton

b$=Mid（a$,i,1）

Ifb$="n"Then

s=s+1

EndIf

Nexti

Prints

EndSub

程序运行后，单击命令按钮，输出结果是【7】。

（8）为了在运行时把d:

\pic文件夹下的图形文件a.jpg装入图片框Picture1，所使用的语句为【8】。

（9）设有如下程序：

PrivateSubForm_Click（）

Cls

a$="ABCDFG"

Fori=1To6

PrintTab（12-i）;【9】

Nexti

EndSub

程序运行后，单击窗体，结果如图所示，请填空

（10）在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：

OptionBase1

PrivateSubCommand1_Click（）

DimArr

Arr=Array（43,68,-25,65,-78,12,-79,43,-94,72）

pos=0

neg=0

Fork=1To10

IfArr（k）>0Then

【10】

Else

【11】

EndIf

Nextk

Printpos,neg

EndSub

以上程序的功能是，计算并输出数组Arr中10个数的正数之和pos与负数之和neg，请填空。

（11）在窗体上画一个名为Command1的命令按钮，然后编写如下程序：

PrivateSubCommand1_Click（）

DimiAsInteger

Sum=0

n=InputBox（"Enteranumber"）

n=Val（n）

Fori=1Ton

Sum=【12】

Nexti

PrintSum

EndSub

Functionfun（tAsInteger）AsLong

p=1

Fori=1Tot

p=p*i

Nexti

【13】

EndFunction

以上程序的功能是，计算1!

+2!

+3!

+…+n!

，其中n从键盘输入，请填空。

（12）在窗体上画一个文本框，名称为Text1，然后编写如下程序：

PrivateSubForm_Load（）

Open"d:

\temp\dat.txt"ForOutputAs#1

Text1.Text=""

EndSub 

PrivateSubText1_KeyPress（KeyAsciiAsInteger）

IfKeyAscii=13Then

IfUCase（Text1.Text）=【14】Then

Close#1

End

Else

Write#1,【15】

Text1.Text=""

EndIf

EndIf

EndSub

以上程序的功能是：

在D盘temp文件夹下建立一个名为dat.txt的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容：

如果输入“END”，则不写入文件，直接结束程序。

请填空。

2008年9月计算机等级考试VB参考答案

1-5    BDCAD     

6-10   BABCD     

11-15  ADCBD     

16-20  BDCAC     

21-25  BBACA     

26-30  CBDDA     

31-35  CBDBA     

（1）DBXEAYFZC

（2）单元

（3）过程

（4）逻辑设计

（5）分量

（6）BASIC

（7）4

（8）Picture1.picture=

"d:

\pic\a.jpg"或

Picture1.Picture=

LoadPicture（"d:

\pic\a.jpg"）

（9）Right（a$,i）或者Mid（a$,7-i）

（10）pos=pos+Arr（k）

（11）neg=neg+Arr（k）

（12）sum+fun（i）

（13）fun=p

（14）END

（15）Text1.Text或Text1

2009年4月全国计算机等级考试二级笔试试卷

Visual Basic 语言程序设计

（考试时间90分钟，满分100分）

一、选择题

（1）下列叙述中正确的是      B

A） 栈是“先进先出”的线性表

B） 队列是“先进先出”的线性表

C） 循环队列是非线性结构

D） 有序性表既可以采用顺序存储结构，也可以采用链式存储结构

（2）支持子程序调用的数据结构是       A                     

A） 栈            B） 树            C） 队列       D）二叉树

（3）某二叉树有