vb模拟试题.docx

资源描述

vb模拟试题.docx

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

vb模拟试题.docx

vb模拟试题

本卷共有3道大题:

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

1、下列叙述中，错误的是（a）。

（1分）

A、一条语句可以分为多行书写，但要在上行末加上VBCrLf（chr（13）+chr（10））（换行）

B、在同一行上书写多条语句，应在两两语句中加上:

号

C、可以用Rem或'注释单行语句

D、VB程序代码不区分字母的大小写

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

（1分）B

A、VisualBasic的事件是由用户定义的

B、VisualBasic程序从主窗体开始执行

C、VisualBasic程序是过程驱动的

D、保存一个VisualBasic程序，应分别保存其窗体模块、标准模块和工程文件

3、被对象所识别的动作与对象可执行的动作分别称为对象的（b）。

（1分）

A、方法、事件B、事件、方法

C、事件、属性D、过程、属性

4、下列关于VB编码规则的叙述中，正确的是（c）。

（1分）A

A、一条语句可以分为多行书写B、多条语句不能书写在同一行上

C、每条语句以分号;结尾D、应用程序代码字母是区分大小写的

5、（d）不属于面向对象系统的三要素。

（1分）

A、事件B、属性

C、方法D、变量

6、下列叙述中，不正确的叙述是（c）。

（1分）

A、注释语句是非执行语句，仅对程序的有关内容起注释作用，客观存在不被解释和编译

B、注释语句能放在整个代码程序的最后

C、注释语句可以放在代码中的任何位置

D、代码中加入注释语句的目的是提高程序的可读性

7、下列叙述错误的是（a）。

（1分）

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

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

8、窗体设计器是用来设计（b）。

（1分）

A、应用程序的代码段B、应用程序的界面

C、对象的属性D、对象的事件

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

（1分）

A、工程1B、窗体1

C、工程D、窗体

10、在界面设计时，双击窗体中的对象后，VisualBasic将显示的窗口是（c）。

（1分）

A、立即窗口B、属性窗口

C、代码窗口D、工程资源管理器窗口

11、VB应用程序在（a）模式下不能编辑代码和设计界面。

（1分）

A、运行B、中断

C、设计D、以上均不能

12、如果要向工具箱中加入控件的部件，可以利用“工程”菜单中的（b）命令（1分）

A、引用B、部件

C、工程属性D、加窗体

13、如果VisualBasic环境中缺少某个窗口，一般应该从主菜单的（d）下拉菜单中寻找并打开。

（1分）

A、编辑B、文件

C、调试D、视图

14、标准控件不包括（d）控件。

（1分）

A、驱动器列表框B、目录列表框

C、文件列表框D、通用对话框

15、在设计窗体时，如果窗体上没有显示网格会感到不方便，（c）可以使网格出现。

（1分）

A、使用“编辑”菜单上的相关命令B、使用“格式”菜单上的相关命令

C、使用“工具”菜单上的相关命令D、使用“工程”菜单上的相关命令

16、在VisualBasic中，某一事件对应的程序叫（b）。

（1分）

A、Sub过程B、事件过程

C、通用过程D、Function过程

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

（1分）B

A、SubPara（n（））B、SubPara（n）AsInteger

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

18、事件过程是附加在（a）上的。

（1分）

A、窗体和控件B、属性和控件

C、窗体和动作D、属性和动作

19、数组A在子过程或函数中定义为形参，正确的语句是（a）。

（1分）B

A、PrivateSubsele（ByValA（）Asinteger）

B、PrivateFunctionsale（A（）AsInteger）AsString

C、PrivateSubsale（A（）AsInteger）AsInteger

D、PrivateSubsale（A（i）AsInteger）

20、阅读如下程序，a=1:

b=2:

plusS,a,b:

PrintS:

不能使其输出结果为3的plus过程为（B）。

（1分）

A、Subplus（sum,a,b）:

sum=a+b:

EndSub

B、Subplus（ByValsum,a,b）:

sum=a+b:

EndSub

C、Subplus（sum,ByVala,ByValb）:

sum=a+b:

EndSub

D、Subplus（sum,ByRefa,ByRefb）:

sum=a+b:

EndSub

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

（1分）

A、DimB、Var

C、ByValD、Byadr

22、通过关键字（d）声明的局部变量，在整个程序运行中一直存在。

（1分）

A、DimB、Public

C、StaticD、Private

23、过程的作用域分为（c）。

（1分）

A、窗体级和局部级B、模块级和局部级

C、窗体/模块级和全局级D、窗体/模块级和局部级

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

（1分）D

A、DimB、Public

C、PrivateD、Static

25、能在一个工程的所有程序中使用的变量，称为（b）。

（1分）

A、局部变量B、全局变量

C、窗体级变量D、模块级变量

26、下列说法中，不正确的说法是（a）。

（1分）

A、不能用Private定义模块级变量（DIMPRIVATE）

B、不能在“通用声明”段中为变量赋值

C、不能在窗体的某个子程序中定义窗体级变量

D、声明窗体级变量的位置是在窗体所有过程的最前面

27、使用PublicConst语句声明一个全局的符号常量时，应该将该语句放在（c）。

（1分）D

A、过程中B、窗体模块的通用声明段

C、标准模块的通用声明段D、窗体模块或标准模块的通用声明段

28、在窗体中，用（d）语句声明的变量是静态变量。

（1分）

A、DimZAsIntegerB、PublicZAsInteger

C、PrivateZAsIntegerD、StaticZAsInteger

29、变量的可用范围习惯上称为（a）。

（1分）

A、作用域B、过程段

C、局部变量D、全局变量

30、在定义过程时，过程名后面括号中的标识符被称为（c）。

（1分）B

A、属性B、形参

C、实参D、变量

31、下列说法中，正确的说法是（d）。

（1分）

A、在定义子过程时，应至少有一个形式参量无参子程序过程

B、若形参名字的前面没有ByVal，则默认传值地址

C、只要使用了子过程，就一定会返回多个结果值

D、在函数过程体中，函数过程名至少被赋值一次

32、以（b）保留字开始的为事件过程。

（1分）

A、SubB、Event

C、FunctionD、Property

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

（1分）

A、函数过程形参的类型与函数返回值的类型没有关系

B、在函数过程中，可以通过函数名返回一个值

C、当数组作为函数过程的参数时，只能以传值方式传递，不能以传址方式传递

D、如果不指明函数过程参数的类型，则该参数没有数据类型

34、关于Function过程与Sub过程两者的异同，下列叙述错误的是（c）。

（1分）A

A、Function过程与Sub过程都必须有形参

B、Function过程与Sub过程都有各自的变量声明和各自的过程体

C、Function过程结果要返回一个函数值，Sub过程可以没有数值返回

D、Function过程定义中必须为过程名赋值，而Sub过程不能为过程名赋值

35、下列关于窗体的描述中，正确的描述是（b）。

（1分）

A、只有用于启动的窗体可以有菜单

B、窗体事件和其中所有控件事件的代码都放在窗体文件中

C、窗体的名字和存盘的窗体文件名必须相同

D、开始运行时窗体的位置只能是设计阶段时显示的位置，不能改变

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

（1分）D

A、不能把标准模块设置为启动模块

B、任何时刻最多只有一个窗体是活动窗体

C、用Hide方法将把窗体隐藏起来

D、如果工程中含SubMain过程，则程序可能首先执行该过程

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

（1分）A

A、如果工程含Form1窗体，程序首先执行该窗体的事件过程

B、任何时刻最多只有一个窗体是活动窗体

C、标准模块不能设置为启动模块

D、Hide方法只是隐藏而不从内存中清除窗体

38、在一个工程中如果想添加一个标准模块，不能实现的操作是（d）。

（1分）

A、使用“工程”菜单中的相应命令B、使用工具栏上的相应命令按钮

C、在工程资源管理窗口按右键调出相应命令D、使用“编辑”菜单中的相应命令

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

（1分）

A、发生一个运行时错误

B、发生一个编译时错误

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

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

40、设置工程中某一个窗体作为启动窗体，必需的操作步骤是（c）。

（1分）

A、先打开“属性窗口”，然后选择作为启动窗体的窗体名称

B、先打开“代码窗口”，然后选择作为启动窗体的窗体名称

C、先打开“工程窗口”，然后选择作为启动窗体的窗体名称

D、先打开“窗体设计器”窗口，然后选择作为启动窗体的窗体名称

41、多窗体程序是由多个窗体组成，在缺省情况下，VB在应用程序执行时，总是把（b）指定为启动窗体。

（1分）

A、不包含任何控件的窗体B、命名为Frm1的窗体

C、包含控件最多的窗体D、设计时的第一个窗体

42、当一个工程含有多个窗体时，它的启动窗体是（d）。

（1分）

A、正在编辑的窗体B、最后一个添加的窗体

C、第一个添加的窗体D、在"工程属性"对话框中指定的窗体

43、下列对于顺序文件的描述中，正确的描述是（c）。

（1分）

A、每个记录长度相同B、可以随机访问其中的记录

C、必须按照顺序访问D、可以向文件中插入记录

44、在VisualBasic中，按文件的访问方式不同，可以将文件分为（d）。

（1分）A

A、顺序文件、随机文件和二进制文件B、文本文件和数据文件

C、数据文件和可执行文件D、ASCII文件和二进制文件

45、在VisualBasic中，根据数据的存取方式和结构，可将文件分为（c）。

（1分）

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

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

46、语句Open"c:

\Datafile.dat"ForOutputAs#513有一个错误，该错误是（才）。

（1分）C

A、要求打开的文件不存在B、文件的打开模式不正确

C、指定的文件号超过应有范围D、文件类型不对

47、按照文件的组织方式可分为（a）。

（1分）

A、顺序文件和随机文件B、ASCII文件和二进制文件

C、程序文件和数据文件D、磁盘文件和打印文件

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）语句可以读入磁盘上的顺序文件“C:

\Sequ.txt”。

（1分）C

A、F＝"C:

\Sequ.txt"：

OpenFForInputAs#1

B、F＝"C:

\Sequ.txt"：

Open"F"ForInputAs#1

C、Open"C:

\Sequ.txt"ForOutputAs#1

D、OpenC:

\Sequ.txtForOutputAs#1

50、在VisualBasic中，要在顺序文件的末尾追加一条记录，应使用（d）模式。

（1分）

A、OutputB、Input

C、RandomD、Append

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

1、*产生50个60~100的随机数，统计其中被6整除余2的个数，并输出总个数。

*程序代码如下：

PrivateSubcommand1_click（）

Dimx%,nAsInteger

DimcounterAsInteger

Forn=1To50

x=int（rnd*41+60）

IfxMod6=2Then

Printx;

counter=counter+1

EndIf

Nextn

Printcounter

EndSub

（4分）

2、

（4分）

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

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

PrivateSubForm_Click（）

DimnAsInteger,a（100）AsInteger

DimxAsInteger,iAsInteger

DimkAsInteger,flagAsBoolean

n=InputBox（"N="）

Fori=1Ton

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

Printa（i）;

Nexti：

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（i+1）

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*）+10

Printa（i）;

Nexti:

Fori=10To2Step-1

Forj=1Toi-1

Ifa（j）

t=a（j）:

a（j）=a（j+1）:

a（j+1）=t

EndIf

Nextj

Nexti

Fori=1To10

Printa（i）;

Nexti:

EndSub

（4分）

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

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=3To10

Forj=2Toi-1

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

Nextj

Nexti

Fori=1To10

Forj=1Toi

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

Nextj

Nexti

EndSub

（4分）

6、*下面程序计算1!

+3!

+5!

+...+9!

的值，请将其补充完整。

*程序代码如下：

PrivateSubaa（ByValn!

jc!

）

DimiAsInteger

jc=1

Fori=1Ton

jc=jc*i

Nexti

EndSub

PrivateSubForm_Click（）

Dimsum!

x%,y!

sum=0

Forx=1To9Step2

Callaa（x,y）

sum=sum+jc

Nextx

Printsum

EndSub

（4分）

7、*设计一转换字体程序,如图{<2-2.jpg>}

*单击命令按钮“换字体”，互换标签和文本框中文字的字体。

'2-2.jpg

PrivateSubForm_Load（）

Label1="年年岁岁花相似"

Text1="岁岁年年人不同"

EndSub

PrivateSubCommand1_Click（）

DimtAsVariant

DimiAsInteger

i=MsgBox（"确定换吗？

",1）

Ifi=1Then

t=Label1.caption

Label1.FontName=Text1.FontName

text1.FontName=t

EndIf

EndSub

（6分）

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

1、*编写程序，计算1+（1+3）+（1+3+5）+...前150项中奇数项的和。

（10分）

必须将本题程序最后的运行结果填入下面的框中。

否则，该题以零分计!

43321900

请将你解答本题所写的源程序粘贴到下面或者上载源程序

PrivateSubCommand1_Click（）

Fori=1To150

Forj=1Toi

t=2*j-1

a=a+t

s=s+a

Prints

EndSub

2、*下载数据文件data0002.txt到自己的机器中，编程求出该数据文件里的前10000个数中最大的奇数是多少。

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

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

（10分）

必须将本题程序最后的运行结果填入下面的框中。

否则，该题以零分计!

请将你解答本题所写的源程序粘贴到下面或者上载源程序

PrivateSubCommand1_Click（）

Dima（1To10）

Open"d:

\data002.txt"ForInputAs#1

Fori=1To10

Input#1,a（i）

Nexti

Max=1

Fori=1To10

Ifa（i）Mod2=1ThenIfa（i）>MaxThenMax=a（i）

Nexti

PrintMax

EndSub

展开阅读全文