VB考试题库大全

李苏林李苏林eeee到其他机器上不能运行的主要原因 A、该可执行文件有病毒B、运行的机器上无VB系统C、缺少.frm窗体文件D、以上原因都不对 A、\B、WindowsD、3、 A、对象的某些属性即可在属性窗口设置，也可以通过属性代码设置或改变。B、不同对象不可能有同名属性C、对象所有的属性都罗列在属性窗口列表D、不同对象的同名属性取值一定相同

4、所 就是使某个对象进入活动状（又称激活）A、对象B、属性C、方法D、事件 情况不会进入中断状态A、采用单步调试方式，每运行一个可执行代码行后。B、在程序运行中，按Ctrl+CC、用户在程序中设置了断点，当程序运行到断点时。D、程序运行中，发生了运行错误。 A、方法是一种特殊的过程或函数B、方法是构成对象实体的一个部分C、调用方法的一般格式是：对象名称．方法名称［参数］D A、过程B、用户C、工程D、对象 在用户的应用程序执行期间发生A、事件B、工程C、属性D、方法9、分别称为对象 A、方法、事件B、过程、方法C、事件、方法D、事件、属性 A、B、WindowsD、DOS和11、VisualBasic

A、名称B、位置C、状态D、大小 A、若不对启动窗体进行设置，工程中的第一个窗体默认为启动窗体B、启动窗体和其他窗体一样可以隐藏和关闭C、启动窗体一般作为用户工作的界面，不可D程”菜单中的“属性” A、方法B、事件C、打印字库D、属性14、球、踢、进球门 A、对象、属性、方法、事件B、属性、对象、方法、事件C、对象、属性、事件、方法D、属性、对象、事件、方法 A、调动B、事件C、方法D、编译16、一个应用程 窗体A、可包括多个B、应该有两个C、只许有一个D、可以没有17、VB的使用目的 A、制作WAVB、开发Windows应用程序C、文字处理

D、图像处理窗口 A、立即窗口B、代码窗口C、窗体布局窗口D、监视窗口 A、Alt+EnterB、C、D、 A、LabelB、FrameC、D、 A、一个对象的所有属性都可在属性窗口的列表中进行设置。BC、属性窗口中的属性列表既可按字母序也可按类别排列。D A、B、RemoveItem23、应用程序窗体的名称属性为Frm1 A、 B、Form_Click() 24、将命令按钮 属性设置为

A、DefaultB、Enable25、当对象失去焦点时，将会发 A、LostFocusB、Focus26、窗体Form1的名称属性是frmLoad事件过程名 A、B、Me_CmdOK A、List1.List(List1.ListCount)B、List1.Lis(ListCount)C、List1.List(ListCount- A、对象、方法、属性B、属性、对象、值C、对象、属性、值D、对象、值、属性 A、KeyPressB、Click A、未选中B、以被选中C、当前不可用D、未知

标题、属性值分别 A、Form,HelloB、Form1,Hello32、任何控件都具 属性A、NameB、TextC、D、 A、文本框中文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容B、文本框中的文本将变成灰色，用户仍然能的内容C、文本框中的文本将变成灰色，并且此时用户不能将光标置于文本框上D变文本框中的内容 A、FontBoldB、FontItalicD、35、 A、Form1.ClearB、List1.Clear36 属性值来判断它们的当前状态A、CheckedB、ValueD、 A、VisibleB、Default

38 的改变可以在设计时和运行时现出来， 只有在运行时执行A、事件过程、函数B、控件属性、子程序C、控件属性、事件过程D、控件属性、函数 A、复选框未被选中B、复选框内有灰色的勾C、复选框被选中D、复选框操作有误A、Form2.Print B、Me.Print 属性为8。A、CaptionB、ValueC、D、过一段由A、IntervalB、Enabled43、使 方法可将新的列表项添加A、ClearB、PrintC、D、 A、

B、Seleted45在VisualBasic中最基本的对象 A、窗体B、文本框C、命令按钮D、标签 A、List1.Addltem1,"China"B、List1.Addltem"China",1C、List1.Addltem"China",0D、List1.Addltem A、文本框、命令按钮B、标签、选项按钮、复选框C、任何控件D、选项按钮、复选框 A、RemoveItemB、ListCountC、D、 A、CaptionB、Name50、 A、不显示B、选中C、禁止D、不选中 A、Enabled;CaptionB、Enabled;VisibleC、Visible;NameD、Visible;

52、 ABackStyle属性设置为1，BorderStyle属性设置为1B、将其BackStyle属性设置为CBackStyle属性设置为0，BorderStyle属性设置为0D、将其BackStyle属性设置为1，BorderStyle属性设置为0 A、Form1.Caption=/欢迎使用VB/B、Form1.Caption=欢迎使用VBC、Form1.Caption="欢迎使用VB"D、Form1.Caption='欢迎使用54、Picture控件AutoSize A、FalseB、3C、 D、 A、索引B、名称C、标题D、快捷键垂直滚动条，应将ScrollBars设置为。A、0B、3D、57、效果的属性 A、NameB、FontD、 A、

B、FontC、D、59执行后，a变量中的值 A、B、"12334"D、 A、003,678.23B、000,003.678D、61表达式Len("123程序设计ABC A、B、20D、62、下列不正确的变量名 A、Arry@B、TextC、D、63、表达式X+1>X A、字符串表达式B、非法表达式C、算术表达式D、关系表达式 A、B、0.01*Int(100*(x+0.05))之间 符号分隔D66、下列字符串 是合

A、x\y,B、exp,123,x*D、end,1bcx PrintA、B、6D、68、有变量定义语句Dima,bAs变量a的类型和初值 A、String,""B、Integer,0C、D、Variant A、x+y<10Andx-y>0B、x+y<10.And.x-y>0C、(x+y)<10:(x-y)>D、x+y<10Orx- A、Text1=“200”*a/bB、Text1=a/b*aC、D、 A、B、C、随机数 A、100B、&O100

时会出错的 A、Bl=#True#B、Inta=4.6C、D、St=5& A、x=1：y=1：z=lB、x=y=z=175、函数Cint(-3.5)，Int(-3.5)，Fix(-的值分别 A、-3，-4，-3B、-4，-4，-3D、-4，-3，-76、下面叙述中正确的 A、Space函数能用于Print方法中，也能用于表达式B、以上说法均不对C、Spc函数与Space函数均生成空格，没有D、Spc函数能用于Print方法中，也能用于表77、语句Print5*20"输出的结果是 A、B、C、出现错误信息 A、将变量X的值存在X+1中去B、将变量X的值加1后赋给变量XC、变量X的值与X+1D、变量X的值为79、MsgBox A、长整型B、数值或字符串C、字符串D、变体80、表达式16/4-2^5*8/4MOD5/2

A、B、14C、D、 A、B、Test@qw82、如果将布尔常量False变量，则整型变量的值 A、B、-D、83、Mys1、Mys2 A、B、C、D、 A、达式 B、A、x>=3ORC、B、3<=xANDD、C、3<=xAND88、下列叙述不正确的 D、85、下列可以将变量A、BA 可读性A、A=B:B=C:BB、A=A+B:B=A-B:A=A-内容起注释作用，它不被解释和编译C、A=(A+B)/2:B=(A-CD、A=C:D、注释语句不能放在续行符的后面86、己知A="1234567889、下 是合法的字符常数A、' B、A、CB、D、C、90、下列程序的执行结果 D、Print94、下 是日期型常A、A、“江苏南京”B、-B、C、-CD、-D、“Iama91、下 是合法的变量名95、在程序中将变量Inta、Bl、St、DA、X-B、类型和DateC、下列赋值语句中，正确的 D、A、92、以下各项中 不是一个B、C、Inta="333"+A、"等级考试"D、St=5+"B、#96、表达式（7\3+1）*(18\5-1C D93、A、 B、A、…C、B、+D、C、 \、/、Mod、*四个算术运算符中D、优先级别最低的 A、 B、\A、你好CB、D、C、98、语句Print“Int(-13.2)=”;Int(-D、的输出结果 101、下列程序段的执行结果 A、Int(-x=Int((69-60)*Rnd+B、Int(-13.2)=-SelectCaseC、Int(-13.2)=-CaseIs>=D、Int(-13.2)=-Print99、DimyAsCase80Tom=PrintDoWhilem<=Case60Tom=m+PrintPrintCasePrintA、EndB、23A、优秀C、2B、良好D、234C、合格100、用MsgboxD、不合格102、执行以下语句后，a的值 DimaAsIntegerDoUntila=100A、溢出B、100103、 DimxIfxThenPrintxElsePrintxA、-B、0C、D、显示出错信息104、执行以下程序段，在窗体上显示的结 PrivateSubDimSAsString, iAsIntegerS="ab"

i=Len(S)To Step-1PrintChr(Asc(Mid(S,i,1))+i EndSubA、dbB、cbD、105、PrivateSubForm_Click(Forj=1Toa=a+jMod3NextjPrintaEndSub运行后输出的结果 A、B、1D、106、当Form1_Click PrivateSubForm_Click()DimMAsInteger,kAsInteger,tAsM=5:SelectCaseMcase1To10t=M:M=k:k=tCaseElseM=kMod3EndSelectPrintM,k,tEndSubA、75B、75C、57D、55107、下面程序的运行结果是 PrivateSubCommand1Click()x=1:Fori=1TOx=x+y:

NextiPrintx;yEndA、34B、5C、6D、13PrivateSubCommand1_Click()Fori=1ToNextiEnd上述程序的运行结果 A、在文本框中Text1中输出0B、出错C、在文本框中Text1中输出不定值D、在文本框中Text1中输出109、下面语句运行后的输出结果是 PrivateSubCommand1_Click()DoWhilex<10PrintxEndA、B、 A、Check1.Value=TrueB、IfOptionl.ValueC、IfOptionl.Value=TrueThen111、PrivateSubCommand1_Click

Printa+bEndSub 。A、B、C、出错112、下面程序段，显示的结果 DimxselectCasexCase5printCase4printCase3printCaseElseprintEndA、通过B、不通过C、良好A、D、优秀 B、A、Text3.Text=Val(Text1.Text)C、B、Text3.Text=Text1.Text&Text2.C、Text3.D、D、Text3.Text=Text1.114、115、据项 SubFori=1ToList1.AddItemNextMsgboxFori=1ToA、List1.RemoveItemB、-NextC、EndD、出错116、下列循环能正常结束循环的 A、i=5LoopUntili<0B、i=6LoopUntili=1LoopUntilLoopUntil A、递归结构、选择结构、循环结构B、选择结构、循环结构、顺序结构C

D、选择结构、过程结构、顺序结构118、下列程序运行后的输出结果是 PrivateSubCommand1_Click()Fori=1TOForj=0TOi-1nextjnextiprintkEndA、B、5D、119、下面程序执行的结果 PrivateSubDimaAsString,bAsa=b=C=Val(a)+Val(b)PrintC\100EndA、B、3C、D、 A、x=1为赋值语句，y=l为关系表达式B、x=1和y=l均为关系表达式C、x=1为关系表达式，y=1为赋值语句D、x=1和y=1均为赋值语句 PrivateSubCommand1_Click(StaticaASIntegera=a+1SelectCaseCase1:Print"欢迎大家"Case2PrintCase3PrintCase4PrintEndSelect

EndA、“努力就能成功”B、"希望你能通过考试"C、“欢迎大家”D、“再见” A、Ctrl+B、C、单击停止运行按钮123、的结果 PrivateSubDimStr1AsString,Str2AsString,iAsIntegerFori=Len(Str1)To1Step-1Str1=Str1&NextiPrintEndSubA、abceB、abdb124、在窗体中添加一个命令按钮，并编写PrivateSubCommand1_Click(DimyAsIntegery=0DoWhileMsgBoxyEnd程序运行后，消息对话框中显 A、B、9D、125、

PrivateSubCommand1_Click(Fori=1Tox=Forj=1ToFork=1To3x=x+3NextNextjNextiEndSubA、B、30C、D、126、在窗体上画一个命令按钮，名称为PrivateSubCommand1_Click()DimaAsInteger,bAsIntegerDoWhileb<100Ifb>20ThenExitDoPrinta,bEndSub A、75B、75C、50D、50 DimmAsInteger,nAsIntegerIfn*m=0ThenExitSubIfm<nThent=m:m=n:n=tEndIf

r=mModnLoopWhiler<>0A、B、100D、128、上显示的结果 PrivateSubCommand1_Click(DimStr1AsString,Str2AsStringDimStr3AsString,IAsIntegerStr1="e"Fori=1Tostr2=UCase(Str1)Str1=Str2&Str1Str3=Str3&Str1Str1=Chr(Asc(Str1)+1)NextIPrintEndA、B、eeFFD、129、OptionBase0PrivateSubDimcityAscity=Array("Beijing","Shanghai","NewYork","London")PrintEnd程序运行后，屏幕显 A、出错B、空白C、D、BeijingShanghaiNewYorkLondon A、Dima(34)AsIntegerB、Dima(n，n)As

C、Dima(34)AsIntegerD、Dima[3，4]As131、的 、用eDm改变数组的数据类型，除非是Vrit变量所包含的数组B、用 Preserve重新定义的动态组，当前存储在数组中的值全部丢失，重新定义的数组被赋予该类型变量的初始值C、用数组说明语句定义一个不指明大小的数组，VB就将它视为一个动态数组D在维界表达式中132、下列语句中的语句可以用来正确地声A、DimA()AsB、PrivateA(n)AsIntegerC、DimA(,)AsIntegerD、DimA(1to ①Constaas②PublicStAsString*③ReDimB(3)As④DimConstXAsA、①③B、②③④134、下列程序段的执行结果 DimA(3,3)ForM=1TO3ForN=1TOIfN=MOrN=3-M+1ThenEndIfNextNNextForM=1TO3ForN=1TOPrint

NextNNextMA、000000B、111111C、100100D、100110 ③用ReDimA、②④B、①③④CD136

DimaAsVarianta=Array(1,2,3,4)j=1Fori=4To1Step-s=s+a(i)*jj=j*10NextiPrintsEndSub 错误的 A、命令按钮的大小都相同B、命令按钮的所有Caption属性都是C、命令按钮共享相同的事件过程D、在代码中访问命令按钮只需使用名称137、在窗体上画一个命令按钮，然后编写OptionBasePrivateSub

A、B、138、 A、Dima(3，3)AsB、Dima(-1Tol，-5To-3)AsSingleC、Dima(-3To-1，5To7)AsIntegerD、Dima(9)As139、以下程序输出的结果是 DimaFori=Lbound(a)ToUbound(a)a(i)=a(i)*a(i)NextiPrinta(i)A、49B、程序出错C、不确定140、 DimiAsIntegerDima(8)Asy=18:i=a(i)=yMod2i=i+1y=y\LoopUntily<

Forj=i-1To0Step-1Printa(j)NextA、0011B、100C、1010D、1001141、 A、控件数组由一组具有共同名称和相同类型的控件组成B、控件数组中的每个元素的下标由控件的Index属性指定C、同一控件数组中的元素只能有相同的属性设置值D、控件组中的每一个控件共享同样的事件过142用"冒泡"法将数组a中的10 Fori=1ton-1Forj=1ton-iIf EndIfNextNextA、B、C、D、143、 A、在过程中，不能用Private语句定义数组。B、数组重新定维后，原有的数组元素内容将不予保留。C、利用ReDim语句重新定维时，不得改变已经说明过的数组的数据类型。D

数组和静态数组。144、对窗体编写如下代码：OptionBase1PrivateSubCommand1_Click(Fori=2ToIfa(i)>m1ThenEndIfNextiPrintEnd A、237B、498C、498D、48 OptionBase1PrivateSubDima(4,4)AsInteger,iAsInteger,sAsFori=1To4Forj=1Toa(i,j)=(i-NextjNextFori=1To4s=s+a(i,i)NextiPrintsA、B、32D、的个数

Dima(3,-2to2,A、B、13147、 A、语句DimX(3.6+2)AsInteger定义了一个维上界是6的一维的整型数组BCErase语句释放所有数组所占据的存储储空间D148、某过程的说明语句中，正确的数组说 。ConstNasinteger=4DimLasinteger①.DimX(L)AsInteger②.DimA(K)AsIntegerConstKAsInteger=3③.DimB(N)AsInteger④.DimY(2000To2008)AsA、②③B、③④D149、以下程序的输出结果是 OptionBase1PrivateSubDima(10)AsInteger,p(3)AsIntegerFori=1ToNextFori=1To3NextiFori=1To3NextiPrintkEndSubA、28B、35C、

D、150、假设数组A(2,4)各元素已赋值，执行以下语句段将输出其所有元素的值。ForEachelemInAPrintelemNextelemA、按赋值的先后顺序B、按列C、按行D、随机151、下列程序的输出结果是 DimiAsInteger,kAsIntegerDima(10)AsInteger,p(3)AsIntegerk=5Fori=0To9a(i)=iNextFori=0To2p(i)=a(i*(i+1))NextiFori=0To2k=k+p(i)*NextIPrintkA、23B、21D、152、当发生Command1_Clik DimiAsIntegerDima(10)AsIntegerFori=9To0Step-1NextPrintA、74B、85C、1215D、36153、在窗体上画一个命令按钮，然后编写OptionBasePrivateSubCommand1_Click(

DimaAsVarianta=Array(1,2,3,4)j=1Fori=4To1Step-s=s+a(i)*jj=j*10NextiPrintsEndSub A、B、34C、D、154、 进行数据传递。①全局变量A、②④B、④CD155、调用由语句PrivateSubConvert(Y A、ConvertB、CallConvert(X*1)C、Convert(X)D、CallConvert((156、以下说法正确的 A、在VB中，过程不可以嵌套定义但可以嵌套B、在VB中，过程可以嵌套定义但不可以嵌套C、在VB中，过程不可以嵌套定义也不可以嵌套调用D、在VB中，过程可以嵌套定义也可以嵌套调157在窗体上画一个名称Command1PrivateSubDimx,y,zAs

x=5:y=7:z=Text1.Text=""Callp1(x,y,z)Text1.Text=Str(z)EndSubPrivateSubp1(ByValaAsInteger,ByValbAsInteger,cAsInteger)c=a+bEndSub A、B、没有显示D、158、若在应用程序中用PrivateSubSub1(Xasinteger,YasSingle)定义了子 ①Call②Call③Call④CallSub1("245",A、①②③CD

A、标准模块、窗体模块和过程Sub1B、标准模块C、窗体模块D、过程Sub1161、159在窗体模块的通用声明处有如下语句 会产生错误的语句 ①ConstAAsInteger=25②PublicStAsString*8③ReDimB(3)AsInteger④DimXAsA、①③B、①②③160、"PublicGAsInteger"、"PrivateGAsInteger"和"DimGAsInteger"语句说明赋值语句"G=3596",则语句是给在

A、SubProcl(ByValn())B、FunctionProcl(ByValn)C、FunctionProcl(Procl)D、SubProcl(n)As162、单击按钮,输出为 PrivateSubfun()StaticaAsPrinta;EndPrivateSubCommand1_Click()DimmAsIntegerForm=1To3CallfunNextEndA、A、 B、24B、C、C、2D、 D、166、163、 A、ByValB、ValueC、D、164、在语句PublicSubSort(iAsInteger) A、常量B、地址D、变量KAsInteger,DimKAsInteger声明了两变量K，可采用

面的过程定义语句合法的 A、SubProcl(ByValn,ByValm)B、SubProcl(ByValn,m)C、SubProcl(n,ByValm)D、SubProcl(n,m)167、设有下列程序代码，在单击命令按钮 SubSS(ByValx,ByRefy,z)EndSubPrivateSubCommand1_Click()A=1:B=2:C=3CallSSPrintA,B,CEndSubA、13B、22C、13D、12168、 A、ByValB、按实参C、按地址D、按值169、 A、按地址B、ByRefC、按值D、按形参170、执行以下程序，在窗体上显示的第二 PrivateSub

Dimx%,y%x=10y=Callvalue(x,y)Printx;yEndPrivateSubvalue(ByValm%,m=m*n=n-5Printm;nEndSubA、 B、 C、 D、 17、有关过程的说法中错误的是 、递归过程既可以是递归Fcto过程也可以是递归S过程B、在Sub或Function过程中不能再定义其他Sub或Function过程C、在调用过程时，形参为数组的参数对应的实参只能是数组D、在调用过程时，与使用ByRef说明的形参对应的实参只能按地址传递方式结合172在Cmdl_C1ick PublicSubFl(n%)nEndPrivateSubCmdl_Click()Dimn%,m%n=3EndSubA、F1B、F1C、F1n+mD、F15 A、PrivateFunctionmx(a()AsInteger)AsB、PrivateFunctionmx(ByVala(12)

Integer)AsC、PrivateFunctionmx(a(12)AsInteger)AsIntegerD、PrivateFunctionmx(ByVala()AsInteger)AsInteger174、下面子过程语句合法的 A、Functionf(ByValnAsB、Functionf(ByValnAsInteger)AsC、Subf(ByValn()AsD、Subf(nAsInteger)As175、以下有关变量作用域的说明中，错误 A、只有在标准模块中用Public语句说明的变量才是全局变量。B、在标准模块的通用声明处可用Private语句说明模块级变量。C、在窗体的通用声明处可用Private语句说明窗体级变量。D、在过程中不能使用Public语句说明全局变176、若整型实参x、y的值分别为48、则主程序执行printf(x,y PrivateFunctionf(ByValm%,ByValn%)AsIntegerr=mModm=n=LoopWhiler<>0f=mEndA、B、都不是D、177、在同一个工程中，在窗体Form1通用段声明PublicaAsBoolean，则在窗体

178、若希望在离开某过程后，还能保存该 A、B、Private179在窗体模块的通用声明处有如下语句会产生错误的语句 ①ConstAAsInteger=25②PublicStAsString*8③ReDimB(3)As④DimConstXAsA、②③④B、①③CD180、 访问该变量 A、PrintForm1.aB、PrintForm.aC、不可以D、Print

A、SubProcl(n)AsIntegerB、FunctionProcl(ByValn)C、FunctionProcl(Procl)D、SubProcl(ByValn())181、设有下列程序代码，在单击命令按钮 SubSS(ByValx,ByRefy,z)EndSubPrivateSubCommand1_Click()A=1:B=2:C=3CallSSPrintA,B,CEndSubA、22B、12C、13D、13182、程序运行后，如果单击命令按钮，则 PrivateSubCommand1_Click()dimx,y,zAsIntegerx=5:y=7:z=0

callp1(x,y,z)EndSubPrivateSubp1(ByVala%,ByValb%,EndSubA、0B、C、D、没有显示183、Sub过程和Function过程最根本的区 A、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以B、Function过程可以有参数，Sub过程不可CSubFunction过程能通过过程名返回值D、两种过程参数的传递方式不同184、通用过程可以通过执行"工具"菜单中 A、添加过程B、添加模块C、通用过程D、添加窗体185、 A、全局用户自定义类型B、全局常量C、全局数组D、全局变量186、使用PublicConst A、标准模块的通用声明段B、过程中C、窗体模块的通用声明段D、窗体模块或标准模块的通用声明段187、一般来说，当变量名称相同而作用域 AB、更小C、比较小

188、名为sort的Sub子过程的形式参数为 A、PrivateSubsort(A(,)AsInteger)B、PrivateSubsort(A()AsInteger)C、PrivateSubsort(A(10)AsInteger)D、PrivateSubsort(ByValAAsInteger)AsInteger,yAsSingle)"定义过程Fun ①CallFun(i,j)②CallForm1.Fun(i,j)③Form1.Fun(i),j④Form1.Funi+1,(j)A、B、2D、190、 A、Subf1(ByValn%())B、FunctionC、Functionf1(ByValD、Subf1(n%)As191、要想在过程调用后返回两个结果，下 A、SubProcl(n,ByValm)B、SubProcl(n,m)C、SubProcl(ByValn,ByValm)D、SubProcl(ByValn,m)192、 A、④B、①②③D193、在窗体模块的通用声明处用下面的语

①PublicA(5)As②PublicNAs③PublicStAs④Privateb()AsA、B、3D、194、程序运行后，输出结果 。PrivateSubx=x+1:y=y+2:z=z+3Print"Sub=";x;y;zEndPrivateSubCommand1_Click()a1=10:b1=17:c1=41CallPrint"Main=";a1;b1;c1End