郑州大学 vb考试题加答案.docx

郑州大学 vb考试题加答案.docx

《郑州大学 vb考试题加答案.docx》由会员分享，可在线阅读，更多相关《郑州大学 vb考试题加答案.docx（17页珍藏版）》请在冰豆网上搜索。

郑州大学vb考试题加答案

一、单项选择题（50道小题，共50分）

1、VisualBasic程序中的注释所使用的字符是（A）。

（1分）

A、'B、:

C、\D、_

2、下列选项中，不属于VB特点的选项是（C）。

（1分）

A、可视化程序设计B、面向对象

C、窗口中包含有菜单栏和工具栏D、事件驱动下的编程机制

3、下列关于VisualBasic的叙述不正确的是（A）。

（1分）

A、变量名区分字母大、小写B、不能用系统保留字声明为变量名

C、允许在一行中书写多条语句，但要用冒号隔开D、允许一条语句分成若干行书写，但要在上一行末加上空格及下划线作为续行标志

4、有程序代码如下：

Text1.Text="郑州大学"，则Text1、Text、"郑州大学"分别代表（C）。

（1分）

A、对象、值、属性B、对象、方法、属性

C、对象、属性、值D、属性、对象、值

5、下列叙述中，正确的是（D）。

（1分）

A、VB的事件由用户定义B、VB程序以顺序方式执行

C、每一个VB程序都是从Main（）函数开始执行D、VB运行时，系统等待事件的发生，事件的执行顺序与书写顺序无关

6、下列叙述错误的是（A）。

（1分）

A、不允许使用行号与标号B、单条语句可分行书写

C、同一行上可以书写多条语句D、VB代码不区分字母的大小写

7、VB程序中，通常不会产生错误提示的是（D）。

（1分）

A、编译错误B、实时错误

C、运行时错误D、逻辑错误

8、启动VisualBasic后，系统为用户新建的工程起一个名为（A）的临时名称。

（1分）

A、工程1B、窗体1

C、工程D、窗体

9、在工具栏中有一个“启动”按钮，这个按钮的作用是（A）。

（1分）

A、运行一个应用程序B、运行一个窗体

C、打开被选中对象的属性窗口D、打开被选中对象的代码窗口

10、当程序中断修改后再运行时，VB进入（B）模式。

（1分）

A、设计B、运行

C、中断D、编程

11、在VB程序中，逐语句调试的操作键是（A）。

（1分）

A、F8键　　　　　　　　　B、F9键

C、F2键　　　　　　　　　D、F1键

12、在VisualBasic的设计模式下，如果按下功能键F5，则（A）。

（1分）

A、开始运行正在设计的程序B、执行一句代码

C、编译当前正在设计的程序D、退出VisualBasic

13、在设计阶段，双击窗体上的某个控件，可以打开（A）。

（1分）

A、代码窗口B、属性窗口

C、工具箱窗口D、工程资源管理器窗口

14、打开VisualBasic集成环境后，默认显示的工具栏是（B）。

（1分）

A、编辑工具栏B、标准工具栏

C、调试工具栏D、窗体工具栏

15、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（C）。

（1分）

A、工程资源管理器窗口B、工具箱窗口

C、代码窗口D、属性窗口

16、下面的过程定义语句中，不合法的是（A）。

（1分）

A、SubPara（ByValn（））B、SubPara（n）

C、FunctionPara（ByValn）D、FunctionPara（proc1）

17\不能脱离控件对象（包括客体）而独立存在的过程是（A）。

（1分）

A、事件过程B、通用过程

C、Sub过程D、函数过程

18、Sub过程与Function过程最根本的区别是（D）。

（1分）

A、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以B、Function过程可以有参数，Sub过程不可以

C、两种过程参数的传递方式不同D、Sub过程的过程名不能返回值，而Function过程能够通过其过程名返回值

19、参数传递有按值传递和按地址传递，（A）关键字表示按值传递。

（1分）

A、ByValB、ByRef

C、ValueD、Refrence

20、窗体上有两个文本框（Text1、Text2）和一个命令按钮（Command1），阅读如下程序：

PrivateSubfunc（TAsTextBox,aAsInteger）:

T.Text="1234":

a=a*a:

EndSub:

PrivateSubForm_Load（）:

Text1.Text="ABCD":

Text2.Text=10:

EndSub:

PrivateSubCommand1_Click（）:

DimtempAsInteger:

temp=Val（Text2.Text）:

Callfunc（Text1,temp）:

Text2.Text=temp:

EndSub，运行后，单击按钮，Text1和Text2将分别显示（A）。

（1分）

A、ABCD和10B、1234和100

C、ABCD和100D、1234和10

21、在定义过程时，若将参数传递方式指定为传值方式，应该用关键字（C）。

（1分）

A、DimB、Var

C、ByValD、Byadr

22、下列说法中，不正确的说法是（B）。

（1分）

A、可以在窗体的某个子程序中定义窗体级变量B、声明窗体级变量的位置是在窗体所有过程的最前面

C、窗体级变量声明后，窗体内的各个过程都能使用它并能改变其值D、程序运行时，先执行窗体级变量声明语句，再去执行窗体上的过程

23、由（C）关键字声明的局部变量在整个程序运行时一直存在。

（1分）

A、DimB、Public

C、StaticD、Private

24、定义过程的局部变量时，用关键字（C）表示被定义的变量在调用离开过程后仍保留其值。

（1分）

A、DimB、ByVal

C、StaticD、Public

25、以下四个用于变量声明的关键字中，不能在模块通用声明段中使用的是（A）。

（1分）

A、StaticB、Public

C、PrivateD、Dim

26、VB中有三种类型的模块，分别是类模块、（A）。

（1分）

A、窗体模块和标准模块B、过程模块和窗体模块

C、函数模块和标准模块D、全局模块和标准模块

27、在窗体的通用段声明变量时，不能使用（D）关键字。

（1分）

A、DimB、Public

C、PrivateD、Static

28、下列说法中，不正确的说法是（A）。

（1分）

A、不能用Private定义模块级变量B、不能在“通用声明”段中为变量赋值

C、不能在窗体的某个子程序中定义窗体级变量D、声明窗体级变量的位置是在窗体所有过程的最前面

29、能够被本模块的其它过程引用的是（B）。

（1分）

A、局部变量B、模块级变量

C、静态变量D、以上都是

30、在声明一个过程中必须有的是（B）。

（1分）

A、Private关键字B、SUB关键字

C、返回值类型说明D、参数

31、以（A）保留字开始的为子过程。

（1分）

A、SubB、Event

C、FunctionD、Property

32、Sub子过程用的退出语句是（B）。

（1分）

A、EndSubB、ExitSub

C、EndFunctionD、ExitFunction

33、以下关于函数过程的叙述中，正确的是（B）。

（1分）

A、函数过程形参的类型与函数返回值的类型没有关系B、在函数过程中，可以通过函数名返回一个值

C、当数组作为函数过程的参数时，只能以传值方式传递，不能以传址方式传递D、如果不指明函数过程参数的类型，则该参数没有数据类型

34、以（C）保留字开始的为函数过程。

（1分）

A、SubB、Event

C、FunctionD、Property

35、一个工程含有多个窗体及标准模块，下列叙述错误的是（A）。

（1分）

A、如果工程含Form1窗体，程序首先执行该窗体的事件过程B、任何时刻最多只有一个窗体是活动窗体

C、标准模块不能设置为启动模块D、Hide方法只是隐藏而不从内存中清除窗体

36、如果要在应用程序中建立另一个窗体，正确的操作方法是（B）。

（1分）

A、在“文件”下拉菜单中选择“添加窗体”命令B、在“工程”下拉菜单中选择“添加窗体”命令

C、在“编辑”下拉菜单中选择“添加窗体”命令D、在“工具”下拉菜单中选择“添加窗体”命令

37、在VB中，建立新窗体的方法是（B）。

（1分）

A、利用标准工具箱中的窗体控件B、利用"工程"下拉菜单中的命令

C、由系统自动生成D、利用VB命令生成

38、如果一个工程含有多个窗体及标准模块，则以下叙述中，错误的是（A）。

（1分）

A、不能把标准模块设置为启动模块B、任何时刻最多只有一个窗体是活动窗体

C、用Hide方法将把窗体隐藏起来D、如果工程中含SubMain过程，则程序可能首先执行该过程

39、如果一个工程含有多个窗体及标准模块，则以下叙述中，错误的是（A）。

（1分）

A、如果工程中含有SubMain过程，则程序一定首先执行该工程B、不能把标准模块设置为启动模块

C、用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D、任何时刻最多只有一个窗体是活动窗体

40、如果Form1是启动窗体，并且Form1的Load事件过程中有Form2.Show，则程序启动后（B）。

（1分）

A、Form2是最后的活动窗体B、Form1是最后的活动窗体

C、编译错误D、运行出错

41、如果Form2是启动窗体，并且Form2的Load事件过程中有Form1.Show,则程序启动后（D）。

（1分）

A、发生一个运行时错误B、发生一个编译时错误

C、在所有的初始化代码运行后Form1是活动窗体D、在所有的初始化代码运行后Form2是活动窗体

42、程序运行时，不是由系统触发的事件是（B）。

（1分）

A、InitializeB、Click

C、LoadD、Activate

43、顺序文件是因为（D）。

（1分）

A、文件按每条记录的记录号从小到大排序B、文件按记录长度从小到大排序

C、文件中按记录的某项关键字从大到小排序D、记录按进入的先后顺序存放的，读出也是按照原写入的顺序进行的

44、下列关于顺序文件的叙述正确的是（A）。

（1分）

A、所有记录的长度必须相同B、可以使用文本编辑软件编辑

C、可以随机读取文件中的记录D、文件中记录按关键字顺序存放

45、关于VisualBasic6.0文件的命名原则，下列说法正确的是（D）。

（1分）

A、可以在文件名中使用*和?

B、支持文件名为任意长度

C、与Windows命名方式不一致D、支持传统的命名方式：

8位主文件名，3位扩展名

46、在VisualBasic中，按文件的数据性质的不同，可将文件分为（A）。

（1分）

A、数据文件和程序文件B、文本文件和数据文件

C、顺序文件和随机文件D、ACSII文件和二进制文件

47、下列叙述中，错误的叙述是（A）。

（1分）

A、文件号的使用范围是1~256B、顺序文件的数据或者只能读,或者只能写

C、文件的打开必须使用Open语句D、文件的关闭必须使用Close语句

48、要以读方式打开D盘根目录上的一个顺序文件Test.txt，应使用的语句是（B）。

（1分）

A、Open"Test.txt"ForOutputAs#1B、Open"D:

\Test.txt"ForInputAs#1

C、Open"D:

\Test.txt"ForOutputAs#1D、Open"Test.txt"ForInputAs#1

49、要从顺序文件中读出一个数据项，可以用（A）函数。

（1分）

A、InputB、Write

C、InputBoxD、InputString

50、如果要向Stu.dat文件追加数据，正确打开该文件的语句是（B）。

（1分）

A、Open"Stu.dat"ForOutputAs#1B、Open"Stu.dat"ForAppendAs#1

C、OpenStu.datForOutputAs#1D、OpenStu.datForAppendAs#1

二、填空题（7道小题，共30分）

1、*将一维数组a中的数值反序放置。

*程序代码如下：

PrivateSubCommand1_Click（）

Dima（10）AsInteger,iAsInteger,tAsInteger

Fori=1To10

a（i）=Int（90*Rnd）10

Printa（i）;

Nexti:

Print

Fori=1To5

t=a（i）

a（i）=a（11-i）

a（11-i）=t

Nexti

Fori=1To10

Printa（i）;

Nexti:

Print

EndSub

（4分）

2、*输出九九乘法表的左下角

程序代码如下：

PrivateSubCommand1_Click（）

DimseAsString

PrintTab（35）;"九九乘法表"

For=1To9

Forj=1toi-1

se=i&"×"&j&"="&i*j

PrintTab（（j-1）*91）;se;

Nextj

Print

Nexti

EndSub

（4分）

3、*用随机函数产生n个10～99之间的随机整数存入一维数组A，通过键盘输入X，然后在数组中查找。

如果找到了，就把这个数从数组中删去；如果没有找到，则给出“无可删除的元素”信息。

PrivateSubForm_Click（）

DimnAsInteger,a（100）AsInteger

DimxAsInteger,iAsInteger

DimkAsInteger,flagAsBoolean

n=InputBox（"N="）

Fori=1To99

a（i）=Int（90*Rnd10）

Printa（i）;

Nexti：

Print

x=InputBox（"X="）:

Print"X=";x

flag=False

Fori=1Ton

Ifa（i）=xThen

flag=True

k=i

ExitFor

EndIf

Nexti

IfNotflagThen

Print"无可删除的元素"

Else

Fori=kTon-1

a（i）=a（i1）

Nexti:

n=n-1

Fori=1Ton

Printa（i）;

Nexti

EndIf

EndSub

（4分）

4、*使用冒泡排序法，将一维数组A按从大到小排序（降序）。

PrivateSubCommand启动_Click（）

Dima（10）AsInteger

DimiAsInteger,jAsInteger,tAsInteger

Fori=1To10

a（i）=Int（90*Rnd）10

Printa（i）;

Nexti:

Print

Fori=10To2Step-1

Forj=1Toi-1

Ifa（j）

t=a（j）:

a（j）=a（j1）:

a（j1）=t

EndIf

Nextj

Nexti

Fori=1To10

Printa（i）;

Nexti:

Print

EndSub

（4分）

5、杨辉三角形如图所示：

1

11

121

1331

14641

15101051

1615201561

.............................

程序代码如下：

PrivateSubForm_Click（）

Dima（1To10,1To10）AsInteger,i%,j%

Fori=1To10

a（i,1）=1

a（i,i）=1

Nexti

Fori=1To10

Forj=2To-1

a（i,j）=a（i-1,j-1）a（i-1,j）

Nextj

Nexti

Fori=1To10

Forj=1Toi-1

PrintTab（5*（j-1）1）;a（i,j）;

Nextj

Print

Nexti

EndSub

（4分）

6、*利用阶乘函数过程fac（n）=n!

求1!

2!

…10!

*程序代码如下：

Publicjc（ByValnAsInteger）AsLong

Dimi%,jcAsLong

jc=1

Fori=1Ton

jc=jc*i

Nexti

fac=jc

EndFunction

PrivateSubForm_Click（）

DimS&,k%

S=0

Fork=1to10

S=Sfac（k）

Nextk

PrintS

EndSub

（4分）

7、*设计一前景背景色互换程序,如图{<1-1.jpg>}

*单击命令按钮“换”，互换窗体中标签的前景色和背景色。

'1-1.jpg

PrivateSubForm_Load（）

Label1=“大象无形大音希声”

EndSub

PrivateSubCommand1_Click（）

DimtAsVariant

DimiAsInteger

i=MsgBox（"确定换吗？

",vbOkCancel）

Ifi=1Then

t=Label1.caption

Label1.ForeColor=Label1.BackColor

Label1.caption=t

EndIf

EndSub

（6分）

三、编程题（3道小题，选作2道，每道15分，共30分）

1、*编写程序，计算从100到2000中，所有首位和末尾加起来为7的数的和是多少？

例如，106，205即为这样的数。

PrivateSubCommand1_Click（）

Dimx%,y%,sum

Fori=100To2000

x=Left（i,1）

y=Right（i,1）

Ifxy=7Thensum=sumi

Next

Printsum

EndSub

2、*下载数据文件data0002.txt到自己的机器中，编程求出该数据文件里的前10000个数中，末位是1的素数的个数。

（【下载文件“data0002.txt”】；）下载方法：

在链接上右击打开弹出菜单，选择“目标另存为”。

（10分）

PrivateSubCommand1_Click（）

Dims,x

Open"d:

/data0002.txt"ForInputAs1

Fori=1To1000

Input#1,x

s=Right（x,1）

Ifs=1Then

Forj=2Tox

IfxModj=0ThenExitFor

Nextj

Ifj>x-1Thenn=n1

EndIf

Nexti

Close

（1）

Printn

EndSub