郑州大学vb考试题加答案

1、一、单项选择题（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="郑州大学"，则Text

2、1、Text、"郑州大学"分别代表（C）。（1分）A、对象、值、属性B、对象、方法、属性C、对象、属性、值D、属性、对象、值5、下列叙述中，正确的是（D）。（1分）AVB的事件由用户定义B、VB程序以顺序方式执行C、每一个VB程序都是从Main（）函数开始执行DVB运行时，系统等待事件的发生，事件的执行顺序与书写顺序无关6、下列叙述错误的是（A）。（1分）A、不允许使用行号与标号B、单条语句可分行书写C、同一行上可以书写多条语句DVB代码不区分字母的大小写7、VB程序中，通常不会产生错误提示的是（D）。（1分）A、编译错误B、实时错误C、运行时错误D逻辑错误8、启动Visu

3、alBasic后，系统为用户新建的工程起一个名为（A）的临时名称。（1分）A、工程1B、窗体1C、工程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键DF1键12、在VisualBasic的设计模式下，如果按下功能键F5,则（A）。（1分）A、开始运行正在设计的程序B、执行一句代码C、编译当前正在设计的程序D

4、K退出VisualBasic13、在设计阶段，双击窗体上的某个控件，可以打开（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

5、（proc1）不能脱离控件对象（包括客体）而独立存在的过程是（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、ByRefC、ValueD、Refrence20、窗体上有两个文本框(Te

6、xtl、Text2)和一个命令按钮(Comman。1,阅读如下程序：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，运行后，单击按钮，Te

7、xt1和Text2将分别显示(A)。(1分)AABCtJ口10B、1234和100C、ABCtJ口100D1234和1021、在定义过程时，若将参数传递方式指定为传值方式，应该用关键字（C）。（1分）A、DimB、VarC、ByValD、Byadr22、下列说法中，不正确的说法是（B）。（1分）A、可以在窗体的某个子程序中定义窗体级变量B、声明窗体级变量的位置是在窗体所有过程的最前面C、窗体级变量声明后，窗体内的各个过程都能使用它并能改变其值D、程序运行时，先执行窗体级变量声明语句，再去执行窗体上的过程23、由（C）关键字声明的局部变量在整个程序运行时一直存在。（1分）A、DimB、Publi

8、cC、StaticD、Private24、定义过程的局部变量时，用关键字（C）表示被定义的变量在调用离开过程后仍保留其值。（1分）A、DimB、ByValC、StaticD、Public25、以下四个用于变量声明的关键字中，不能在模块通用声明段中使用的是（A）。（1分）A、StaticB、PublicC、PrivateD、Dim26、VB中有三种类型的模块，分别是类模块、（A）o（1分）A、窗体模块和标准模块B、过程模块和窗体模块C、函数模块和标准模块D全局模块和标准模块27、在窗体的通用段声明变量时，不能使用（D）关键字。（1分）A、DimB、PublicC、PrivateD、Static2

9、8、下列说法中，不正确的说法是（A）。（1分）A、不能用Private定义模块级变量B、不能在“通用声明”段中为变量赋值C、不能在窗体的某个子程序中定义窗体级变量D、声明窗体级变量的位置是在窗体所有过程的最前面29、能够被本模块的其它过程引用的是（B）。（1分）A局部变量B、模块级变量C、静态变量D、以上都是30、在声明一个过程中必须有的是（B）。（1分）APrivate关键字B、SU联键字C、返回值类型说明D、参数31、以（A）保留字开始的为子过程。（1分）A、SubB、EventC、FunctionD、Property32、Sub子过程用的退出语句是（B）。（1分）A、EndSubB、Ex

10、itSubC、EndFunctionD、ExitFunction33、以下关于函数过程的叙述中，正确的是（B）。（1分）A函数过程形参的类型与函数返回值的类型没有关系B、在函数过程中，可以通过函数名返回一个值C、当数组作为函数过程的参数时，只能以传值方式传递，不能以传址方式传递D如果不指明函数过程参数的类型，则该参数没有数据类型34、以（C）保留字开始的为函数过程。（1分）A、SubB、EventC、FunctionD、Property35、一个工程含有多个窗体及标准模块，下列叙述错误的是（A）。（1分）A如果工程含Forml窗体，程序首先执行该窗体的事件过程B、任何时刻最多只有一个窗体是活动

11、窗体C、标准模块不能设置为启动模块D、Hide方法只是隐藏而不从内存中清除窗体36、如果要在应用程序中建立另一个窗体，正确的操作方法是（B）。（1分）A、在“文件”下拉菜单中选择“添加窗体”命令R在“工程”下拉菜单中选择“添加窗体”命令C、在“编辑”下拉菜单中选择“添加窗体”命令口在“工具”下拉菜单中选择“添加窗体”命令37、在VB中，建立新窗体的方法是（B）。（1分）A、利用标准工具箱中的窗体控件B、利用“工程”下拉菜单中的命令C、由系统自动生成D、利用VB命令生成38、如果一个工程含有多个窗体及标准模块，则以下叙述中，错误的是（A）。（1分）A、不能把标准模块设置为启动模块B、任何时刻最多

12、只有一个窗体是活动窗体C、用Hide方法将把窗体隐藏起来D如果工程中含SubMain过程，则程序可能首先执行该过程39、如果一个工程含有多个窗体及标准模块，则以下叙述中，错误的是（A）。（1分）A、如果工程中含有SubMain过程，则程序一定首先执行该工程R不能把标准模块设置为启动模块C、用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D任何时刻最多只有一个窗体是活动窗体40、如果Forml是启动窗体，并且Forml的Load事件过程中有Form2.Show则程序启动后（B）。（1分）A、Form2是最后的活动窗体B、Form1是最后的活动窗体C、编译错误D、运行出错41、如果Form2

13、是启动窗体，并且Form2的Load事件过程中有Form1.Show,则程序启动后（D）。（1分）A、发生一个运彳T时错误B、发生一个编译时错误C、在所有的初始化代码运行后Form1是活动窗体D在所有的初始化代码运行后Form2是活动窗体42、程序运行时，不是由系统触发的事件是（B）。（1分）A、InitializeB、ClickC、LoadD、Activate43、顺序文件是因为（D）。（1分）A、文件按每条记录的记录号从小到大排序B、文件按记录长度从小到大排序D记录按进入的先后顺序存放C、文件中按记录的某项关键字从大到小排序的，读出也是按照原写入的顺序进行的44、下列关于顺序文件的叙述正确

14、的是（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、顺序文件和随机文件DACSII文件和二进制文件47、下列叙述中，错误的叙述是（A）。（1分）A、文件号的使用范围是1256

15、B、顺序文件的数据或者只能读，或者只能写C、文件的打开必须使用Open语句D文件的关15必须使用Close语句48、要以读方式打开D盘根目录上的一个顺序文件Test.txt，应使用的语句是（B）。（1分）A、Open"Test.txt"ForOutputAs#1B、Open"D:Test.txt"ForInputAs#1C、Open"D:Test.txt"ForOutputAs#1D、Open"Test.txt"ForInputAs#149、要从顺序文件中读出一个数据项，可以用（A）函数。（1分）A、InputB、

16、WriteC、InputBoxD、InputString50、如果要向Stu.dat文件追加数据，正确打开该文件的语句是（B）。（1分）A、Open"Stu.dat"ForOutputAs#1B、Open"Stu.dat"ForAppendAs#1C、OpenStu.datForOutputAs#1D、OpenStu.datForAppendAs#17道小题，共30分）1、 *将一维数组a中的数值反序放置。*程序代码如下：PrivateSubCommand1_Click()Dima(10)AsInteger,iAsInteger,tAsIntegerFo

17、ri=1To10a(i)=Int(90*Rnd)10Printa(i);Nexti:PrintFori=1To5t=a(i)a(i)=a(11-i)a(11-i)=tNextiFori=1To10Printa(i);Nexti:PrintEndSub4分）2、 *输出九九乘法表的左下角程序代码如下：PrivateSubCommand1_Click()DimseAsStringPrintTab(35);"九九乘法表"For=1To9Forj=1toi-1se=i&"x"&j&"="&i*jPrintTab

18、(j-1)*91);se;NextjPrintNextiEndSub4分）3、*用随机函数产生n个1099之间的随机整数存入一维数组A,通过键盘输入X,然后在数组中查找。如果找到了，就把这个数从数组中删去；如果没有找到，则给出“无可删除的元素”信息。PrivateSubForm_Click()DimnAsInteger,a(100)AsIntegerDimxAsInteger,iAsIntegerDimkAsInteger,flagAsBooleann=InputBox("N=")Fori=1To99a(i)=Int(90*Rnd10)Printa(i);Nexti：Pri

19、ntx=InputBox("X="):Print"X="xflag=FalseFori=1TonIfa(i)=xThenflag=Truek=iExitForEndIfNextiIfNotflagThenPrint"无可删除的元素"ElseFori=kTon-1a(i)=a(i1)Nexti:n=n-1Fori=1TonPrinta(i);NextiEndIfEndSub4分）4、 *使用冒泡排序法，将一维数组A按从大到小排序（降序）。PrivateSubCommand启动_Click（）Dima(10)AsIntegerDimiAs

20、Integer,jAsInteger,tAsIntegerFori=1To10a(i)=Int(90*Rnd)10Printa(i);Nexti:PrintFori=10To2Step-1Forj=1Toi-1Ifa(j)<a(j1)Thent=a(j):a(j)=a(j1):a(j1)=tEndIfNextjNextiFori=1To10Printa(i);Nexti:PrintEndSub4分）5、 杨辉三角形如图所示：111121133114641151010511615201561程序代码如下：PrivateSubForm_Click()Dima(1To10,1To10)AsIn

21、teger,i%,j%Fori=1To10a(i,1)=1a(i,i)=1NextiFori=1To10Forj=2To-1a(i,j)=a(i-1,j-1)a(i-1,j)NextjNextiFori=1To10Forj=1Toi-1PrintTab(5*(j-1)1);a(i,j);NextjPrintNextiEndSub4分)10!6、 *利用阶乘函数过程fac(n)=n!求1!2!*程序代码如下：Publicjc(ByValnAsInteger)AsLongDimi%,jcAsLongjc=1Fori=1Tonjc=jc*iNextifac=jcEndFunctionPrivateSubForm_Click()DimS&,k%S=0Fork=1to10S=Sfac(k)NextkPrintSEndSub4分）7、 *设计一前景背景色互换程序,如图<1-1.jpg>*单击命令按钮“换”，互换窗体中标签的前景色和背景色。'1-1.jpgPrivateSubForm_Load