VB程序设计综合试卷

VisualBasic综合试卷一、单项选择题1．与传统的程序设计语言相比，VisualBasuc最突出的特点是（）。A．结构化程序设计B．程序开发环境C．事件驱动编程机制D．程序调试技术2．在设计阶段，双击窗体上的某个控件时，打开的窗体是（）。A．工程资源管理器窗口B．代码编辑器窗口C．工具箱窗口D．属性窗口3．当需要上下文帮助时，选择要帮助的内容，希望出现MSDN窗口及显示所需的帮助信息，应按的键是（）。A．HelpB．F10C．EscD．F14．对于定时器（Timer）控件，设计其定时是否开启的属性是（）。A．IndexB．EnabledC．TagD．Left5．表达式2*3^2+2*8/4+3^2的值是（）。A．31B．42C．49D．646．后缀为.CLS的文件表示（）。A．类模块文件B．窗体文件C．标准类模块文件D．窗体二进制数据文件7.数字式子Sin30O写成VB表达式是（）。A．Sin30B．Sin(30)C．Sin(30O)D．Sin(30*3.14/180)8.当运行程序时，系统自动启动窗体的事件过程是（）。A．LoadB．ClickC．UnloadD．GotFocus9．要退出For…Next循环，可使用的语句是（）。A．ExitB．ExitForC．EndDoD．ExitDo10．对于窗体级变量，下列说法中错误的是（）。A．所在窗体的各子程序都可以访问B．其它窗体的子程序不能访问C．所在窗体的各子程序都不能访问用Private定义的窗体级变量D．一定要在所在窗体的通用区内定义11．用下面的语句所定义的数组的元素个数是（）。DimA（-1To3）AsIntegerA．2B．3C．4D．512.下列叙述正确的是（）。A．Load语句与Show语句功能完全相同B．UnLoad语句与Hide语句功能完全相同C．Load语句与Unload语句功能完全相反D．三者都对13.当一个工程中含有多个窗体时，则启动对象是（）。A.启动VB时建立的窗体B.第一个添加的窗体C.最后一个添加的窗体D.在“工程属性”对话框中通过“启动对象”指定的窗体14.VB程序中设置断点的按键是（）。A.F5键B.F6键C.F9键D.F10键15.对象的三要素是()A.属性,事件,方法B.属性,过程,方法C.元素,事件,过程D.元素,过程,方法16、在运行程序时，在文本框中输入新的内容，或在程序代码中改变Text的属性值，相应会触发到什么事件？A)GotFocusB)ClickC)ChangeD)DblClick17、如果一个变量未经定义就直接使用，则该变量的类型为AIntegerBByteCBooleanDVariant18、根据变量的作用域，可以将变量分为3类，分别为A局部变量、模块变量和全局变量B局部变量、模块变量和标准变量C局部变量、模块变量和窗体变量D局部变量、标准变量和全局变量19、下面的数组声明语句中正确的是ADimgg［1,5］AsStringBDimgg［1To5,1To5］AsStringCDimgg(1To5)AsStringDDimgg［1:5,1:5］AsString20、下列程序段的执行结果为I=4x=5DoI=I+1x=x+2LoopUntilI>=7Print"I=";IPrint"x=";xAI＝4x＝5BI＝7x＝15CI＝6x＝8DI＝7x＝1121、以下各表达式中,计算结果为0的是AINT(12.4)+INT(-12.6)BCINT(12.4)+CINT(-12.6)CFIX(13.6)+FIX(-12.6)DFIX(12.4)+FIX(-12.6)22、要获得当前驱动器应使用驱动器列表框的属性是APathBDriveCDirDPattern23、当在滚动条内拖动滚动块时触发AKeyUp事件BKeyPress事件CScroll事件DChange事件24、设已经在"菜单编辑器"中设计了窗体的快捷菜单，其顶级菜单为Bs，取消其"可见"属性，运行时，在以下事件过程中，可以使快捷菜单响应鼠标右键菜单的是APrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)IfButton=2ThenPopupMenuBs,2EndSubB)PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)PopupMenuBsEndSubC)PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)PopupMenuBs,0EndSubD)PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)If(Button=vbLeftButton)Or(Button=vbRightButton)ThenPopupMenuBsEndSub25、要将名为MyForm的窗体显示出来，正确的使用方法是AMyForm.ShowBShow.MyFormCMyFormLoadDMyFormShow26、下列语句中，获得列表框List1中项目个数的语句是Ax=List1.ListCountBx=ListCountCx=List1.ListIndexDx=ListIndex27、在窗体上画一个命令按钮，然后编写下列程序PrivateSubCommand3_Click()Tcl2Tcl3Tcl4EndSubSubTcl(aAsInteger)StaticxAsIntegerx=x+aPrintx;EndSub程序运行后，单击命令按钮，输出结果为A234B259C354D24328、下列各种形式的循环中，输出"*"的个数最少的循环是Aa=5:b=8DoPrint"*"a=a+1LoopWhilea<bBa=5:b=8DoPrint"*"a=a+1LoopUntila<bCa=5:b=8DoUntila-bPrint"*"b=b+1LoopDa=5:b=8DoUntila>bPrint"*"a=a+1Loop29、设置命令按钮的属性时，只有将何属性设置为1，Picture属性才有效，否则无效?AStyleBCaptionCEnabledDDefault30、能够获得一个文本框中被选取文本的内容的属性是ATextBLengthCSeltextDSelStart31.要在垂直位置上移动控件，应利用控件的属性。

A.LeftB.WidthC.TopD.Height

32.要使文本框中的文本显示掩码（密码）符，在属性设置时，首先必须设置属性为False。

A.TextB.EnabledC.VisibleD.Multiline

33.用键盘的光标键选中某一菜单项，并按回车将触发菜单的的事件。

A.KeyPressB.KeyDownC.ClickD.KeyUp

34.以下对象不具有Clear方法。

A.列表框B.组合框C.剪贴板D.图片框

35.在文件列表框中设定“文件列表”中显示文件类型应个性该控件的属性。

A.PathB.FileNameC.NameD.Pattern

36.组合框有三种风格，它们由Style属性所决定，其中为简单组合框时，Style属性值应为。

A．0B.1C.2D.3

37.下列可调整图片框的大小以适合图片的属性是

A.stretchB.autosizeC.pictureD.oledropmode

38.要想清除文本框中的内容则可利用(8)进行。

A.CaptionB.TextC.ClearD.Cls

39.下列表达式中,其值为0的是

A.7/9B.7mod15C.7\9D.15mod9

40.求以10为底X的常用对数的表达式为

A.LOG(X)/LOG(10)B.LN(X)C.LOG(X)/LOG(E)41．一个对象可以执行的动作和可被对象识别的动作分别称为。

A、事件、方法B、方法、事件C、属性、方法D、过程、事件

42．在窗体Form1的Click事件过程中有以下语句：

Label1.Caption=”VisualBasic”

若本语句执行之前，标签控件的Caption属性为默认值，则标签控件的Name属性和Caption属性在执行本语句之前的值分别为（12）。

A．”Label”、”Label”B、”Label1”、”VisualBasic”

C、”Label1”、”Label1”D、”Caption”、”Label”

43．对象不具有Caption属性。

A、LabelB、OptionC、FormD、Timer

44．Interger类型的变量可存的的最大整数是。

A、250B、256C、32768D、32767

45．下列数据类型中，占用内存最小的是。

A、BooleanB、ByteC、IntegerD、Single

46．对象不能作为控件的容器。

A、FormB、PictureBoxC、ShapeD、Frame

47、为了确定窗体的位置，需要设置的属性是A、top和leftB、top和bottomC、top和rightD、right和bottom

48．已知A、B、C中C最小，则判断A、B、C可否构成三角形三条边长的逻辑表达式是。

A、A>=BAndB>=CAndC>0B、A+C>BAndB+C>AAndC>0

C、(A+C)>=CAndA-C<=C)AndC>0D、A+B>CAndA-B>CAndC>0

49．下面是日期型常量。

A、”12/19/99”B、12/19/99C、#12/19/99#D、{12/19/99}

50.如果在图片框上使用绘图方法绘制一个圆，则图片框的属性不会对该圆的外观产生影响。

A、BackColorB、ForeColorC、DrawWidth二、填空题1.定时器（Timer）控件可识别的事件是，发生该事件的时间间隔由定时器的属性设置，其单位为。2.要想在代码中给名为text1的文本框赋予文本：GOODWORK！时，应当编写的语句是。3.以下语句的输出结果是。s$=“Beijing”s$=“china”Prints$4、要使标签控件Label1中显示“单击此处”，所使用的语句是___________。5.设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从-1到5，第二维下标从2到6，则相应的数组声明语句为。6事件就是在对象上所发生的事情，VisualBasic中的事件如、、等。一个对象可响应个事件。事件过程是指响应某个事件后所执行的程序代码，假如某一事件过程如下：PrivateSubcmd1_click()Form1.Caption=“VB示例”EndSub则响应该过程的对象名是，事件名是。7.一个VB工程之中能有个MDI父窗体。8.要将某窗体定义为一个MDI子窗体，需要将其属性值设置为True。9.若已建立了Form1和Form2两个窗体，默认启动窗体为Form1。通过菜单菜单项，可将启动窗体设置为Form2。在程序中若要显示Form1窗体，则执行语句。。10.Sub过程与Function过程最根本的区别是。11、请填写下列空白，实现运行后形成一个主对角线上元素值为1，其他元素为0的6×6阶矩阵。PrivateSubCommand1_Click()Dims(6,6)Fori=1To6Forj=1To6Ifi=jThenElseEndIfPrintNextjPrintNextiEndSub12、在窗体上加上一个文本控件PCSTextBox，画一个命令按钮，当单击命令按钮的时候将显示"打开文件"对话框，设置该对话框只用于打开文本文件，然后在文本控件中显示打开的文件名。请填空。PrivateSubCommand1_Click()CommonDialog1.Filter=CommonDialog1.ShowOpenPCSTextBox.Text=EndSub13、随机文件使用Put语句写数据，使用语句读数据。14、下列程序的功能是：当x<50时，y=0.8×x；当50≤x≤100时，y=0.7×x；当x>100时，没有意义。请填空。PrivateSubCommand1_Click() DimxAsSingle x=InputBox("请输入x的值！") CaseIs<50y=0.8*xCase50To100y=0.7*xPrint"输入的数据出界！"EndSelectPrintx,yEndSub15、以下程序的功能是从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输入负数时结束输入，输出结果。请补充完整下列程序段。Dimx,amax,aminAsSinglex=InputBox("Enterascore")amax=xamin=xDoWhileIfx>amaxThenamax=xEndIfIfThenamin=xEndIfx=InputBox("enterascore")LoopPrint"max=";amax,"min=";amin16、有一个事件过程，其功能是：从已存在于磁盘上的顺序文件NM1.txt中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件NM2.txt中。请填空。PrivateSubForm_Click()DimxAsSingle,yAsSingleOpen"NM1.txt"ForInputAs#1Open"NM2.txt"ForInputAs#2DoWhileNotEOF(1)Printxy=x^2PrintyLoopClose#1,#2EndSub17、在窗体上有一个命令按钮，然后编写如下程序：FunctionTrans(ByValnumAsLong)AsLongDimkAsLongk=1DoWhilenumk=k*(numMod10)num=num＼10LoopTrans=kPrintTransEndFunctionPrivateSubCommand1_Click()DimmAsLongDimsAsLongm=InputBox("请输入一个数")s=Trans(m)EndSub程序运行时，单击命令按钮，在输入对话框中输入"789"，输出结果为,在输入对话框中输入"987"输出,在输入对话框中输入"879"，输出结果为。18.设x=2,y=4,a=4,b=6,表达式（a>xXorb<x）ORx<yIMPy<b的结果为。

19．a和b中有仅只有一个不为1，相应的VisualBasic逻辑表达式为。

20.把条件为1≤x≤5写成VB表达式为：。

21．用随机函数产生10个100～500的整数，其表达可为：。

22．当x=2时，语句ifx=2thenPrintx=2的结果值是。

23.StaticPrivateSubcmdSum_Click()

DimSumasinteger

Sum=2*Sum+1

EndSub

问：第三次单击命令按钮cmdSum后，Sum的值为：。

24．声明单精度常量g(重力加速度)代表9．8可写成：。

25．欲使在自己设计VB程序运行过程中，不中止本程序的运行，同时又可调用系统中已有的应用程序c:\windows\notepad.exe,可在程序代码窗口必要的地方添加语句：。三、阅读程序题阅读下列程序并写出运行结果1.OptionExplicitPrivateSubCommand1_Click()DimSAsIntegerDimiAsIntegerS=1Fori=1To5S=S*iNextiPrintSEndSub结果：2.DimiAsInteger,jAsInteger,kAsIntegerk=0Fori=0To10Step3Forj=1To10Ifj>5Thenk=k+4:ExitFork=k+1NextjPrinti,kIfi>8ThenExitForNextiPrinti,k结果：3.PrivateSubform_Click()A=1b=ADoUntilA>=5X=A*bPrintStr(A)&"*";Str(b)&"=";Str(X)A=A+bb=b+ALoopEndSub结果：4.Fori=1To3Forj=1ToiFork=jTo3A=A+1NextkNextjNextiPrintA结果：5.PrivateSubCommand1_Click()DimA(1To4)AsIntegerDimbAsIntegerForb=1To4A(b)=bNextbText1.Text=A(b-1)EndSub6.C=InputBox(“请输入字符串：”)p=””ForL=Len(c)To2Step–2P=Mid(C,L–1,2)+PNextLPrintP如果输入：ABCDEFG，则结果：7.DimYAsIntegerPrivateSubCommand_Click()DimXAsIntegerX=1Y=1CallAA(Y+1)Z=BB(X)PrintX,Y,ZEndSubPrivateSubAA(ByValZAsInteger),;Y=Z+,XZ=X+YEndSubPrivateFunctionBB(ByRefYAsInteger)Y=Y+1BB=X+YEndFunction结果：8.PrivateSubCommand1_Click()DimSAsInteger,IAsIntegerS=0ForI=1To10IfZS(I)ThenIfI*2<=10ThenPrintStr(I*2)S=S+1ElseExitForEndIfEndIfNextIPrirt“S=”＆Str(S)EndSubPublicFunctionZS(ByValXAsInteger)ASBooleanDimJAsIntegerJ=2DoWhileJ<XIfInt(X/J)=X/JThenExitDoJ=J+1LoopIfJ=XThenZS=TrueElseZS=FalseEndIfEndFunction结果：9.DimYAsInteger

PrivateStubCommand_Click()

DimXAsInteger

X=1

Y=1

CallAA(Y+1)

Z=BB(X)

PrintX,Y,Z

EndSub

PrivateSubAA(ByValZAsInteger)

Y=Z+X

Z=X+Y

EndSub

PrivateFunctionBB(ByRefYAsInteger)

Y=Y+1

BB=X+Y

EndFunction结果：10.PrivatesubForm_click()

N=3

DimA(3，3)AsInteger

ForI=IToN

ForJ=IToN