2006VB期末重考试卷

12005~2006学年第二学期VB重考试卷（2005级全校）班级学号姓名一、选择题(用铅笔把选中的方格涂黑40×1=40分)1ABCD2ABCD3ABCD4ABCD5ABCD6ABCD7ABCD8ABCD9ABCD10ABCD11ABCD12ABCD13ABCD14ABCD15ABCD16ABCD17ABCD18ABCD19ABCD20ABCD21ABCD22ABCD23ABCD24ABCD25ABCD26ABCD27ABCD28ABCD29ABCD30ABCD31ABCD32ABCD33ABCD34ABCD35ABCD36ABCD37ABCD38ABCD39ABCD40ABCD二、填空题（每空占一行，每行写一个答案30×2=60分）1.2.3.4.5.6.7.8.9.210.11.12.13.14.15.16.17.18.19.20.21.22.23.24.25.26.27.28.29.30.3一、单选题1、能够改变标签（Label）控件显示标题的属性是。（A）Caption（B）Name(C)Click(D)Text2、计时器控件响应的事件是。(A)Timer(B)Interval(C)Click(D)Enabled3、窗体Form1的Name属性为Myfrm，则它的Load事件过程名为。(A)Form_Load(B)Me_Load(C)Myfrm_Load(D)Form1_Load4、下面关于退出Sub和Function过程中，说法正确的是。（A）过程的最后一条语句是EndSub(或EndFunction)，因而一定要执行到EndSub(或EndFunction)才会结束过程的执行（B）一个过程可以没有ExitSub(或ExitFunction)语句，如果有则只能有一条（C）一个过程既可以通过ExitSub(或ExitFunction)语句结束过程的执行，也可以通过EndSub(或EndFunction)结束过程的执行（D）可以用GoTo语句来退出Sub过程5、下列控件中没有Caption属性的是。A、标签B、文本框C、框架D、命令按纽6、可以在中，使用语句PublicsAsString*20定义一个定长字符串。A.窗体模块B.标准模块C.类模块D.三者都可7、在某过程中说明变量a为Integer型,B为Boolean型，st为String型，D为Date型。以下四组语句正确的是。A.a=“333”+”22”B.D=#10/05/01#C.st=5+“abc”D.B=#true#8、在过程中可以用来定义变量的语句是。A.Dim、PrivateB.Dim、PublicC.Dim、StaticD.Dim、Static、Private9、下列表达式的值是False的有。A.n&969n97B.InStr(visualbasic,b)Len(basic)C.Str(2000)1997D.UCase(aBC)aBC10.下列函数中，返回值是字符串的是。A.ChrB.InStrC.ValD.Asc11、描述X、Y、Z中只有一个小于Z的逻辑表达式是。A.XZAndYZB.XZOrYZC.XZXorYZD.XYZ12、表达式Instr(“visualbasic”,”a”)的值是。A.4B.5C.6D.713、假定blnl是逻辑变量，下面赋值语句中不正确的是。A.blnl='True'B.blnl=TrueC.blnl=falseD.blnl=3414.VB有三种工作模式，其中不包含___。A.设计模式B.运行模式C.中断模式D.单步模式15、如果把一个人当做对象，那么血型相当于这个对象的。4（A）属性（B）方法（C）事件（D）特征16、Integer（整型数）的取值范围为。（A）0～255（B）0～256（C）－32768～32767（D）－32767～3276817、下面数据类型中，占用内存最小的是。（A）Boolean（B）Byte（C）Integer（D）Single18、下列哪一个是日期型常量。（A）2/1/99（B）2/1/99（C）#2/1/99#（D）{2/1/99}19、往列表框中增加一个条目，应使用列表框的什么方法。（A）InsertItem（B）AddItem（C）AppendItem（D）RemoveItem20、菜单控件没有下面哪一个属性。（A）Caption（B）Checked（C）Enabled（D）Value21、VB中三种文件的访问类型是。A.顺序、随机、文本B.顺序、随机、二进制C.数据库、表格、文本D.文本、随机、二进制22、表达式2^5mod3的值是。（A）1（B）2（C）3（D）423、以下说法中错误的是。A.VB中所有基本控件都可以改变大小B.可以通过双击工具箱中的控件，将控件加到窗体上C.控件工具箱中可以添加新的控件D.加到窗体上的控件，可以按Del键删除24、当一个命令按钮的属性设置为False时，该按钮为灰白显示。A.VisibleB.EnabledC.BackcolorD.default25、在VB中，要使一个窗体不可见，但不从内存中释放，应使用的语句是______。A．EndB.LoadC.HideD.Unload26、在程序中可以通过复选框和单选按钮的属性值来判断它们当前的状态。A.SelectedB.CheckedC.ValueD.Caption27、设在定义DimA()ASSingle语句之后，程序又执行了RedimA（2，3）语句，则以下可以正确执行的Redim语句是。A.RedimA（4,5）B.RedimA（5）ASIntegerC.RedimPreserveA（2，4）D.RedimPreserveA（3，6）ASInteger28、若有一个函数的定义为：PrivateFunctionfact(xAsInteger,yAsInteger)AsInteger。则以下能正确调用该函数的语句为。A.var1=fact(5)B.fact(5,6)C.callfact(5,2.3)D.callfact5,629、下面窗体的哪个事件在窗体从加载到卸载这个过程中只可能触发一次。（A）GotFocus（B）Activate（C）Load（D）Deactivate30、下面哪一个不是字符串常量。（A）计算机（B）（C）True（D）true31、设有如下的程序段，当单击窗体时，执行结果为_________。Dima(5)AsLong,aAsInteger,iAsIntegera=10Fori=1To5a(i)=i*aNexti5Printa,a(5)A.1050B.5050C.5010D.显示出错信息32、下面有关数组的叙述中，错误的是___。A.根据数组说明的方式，可将数组分为动态数组和固定大小数组B.在过程中，不可以用Private定义数组C.用Redim语句重新定义动态数组时，不得改变该数组的数据类型D.数组重新定维后，原有的数组元素内容将不予保留33、要访问数组中的所有元素，通常应使用________。A.For……NextB.Do……WhileLoopC.ForEach……NextD.A或C34、设有子过程Pro1，有一个形参变量且过程定义语句中没有对形参变量加以说明。下列调用语句中，按传址方式传递数据的语句是。A.CallPro1(a)B.CallPro1(2)C.CallPro1(a*a)D.CallPro1(12+a)35、标准模块文件的扩展名是。A．.FrmB..BasC..ClsD.Res36、表示X是能被7整除的奇数的逻辑表达式是。（A）xmod7=0Orxmod2=0(B)xmod7=0ANDxmod20(C)xmod7=0Xorxmod2=0(D)xmod70Andxmod2037、定时器控件的Interval属性值是指时间间隔，单位为_____。（A）分（B）秒（C）毫秒（D）微秒38、表达式7.5mod3的值是。（A）0（B）1（C）2（D）339、在列表框中，第一个列表项的索引值为。（A）0（B）1（C）2（D）-140、除法运算后，其结果的数据类型总是型（A）Integer（B）Long（C）Single（D）Double二、填空题1、数值型变量默认的初始值为（1），字符串变量的默认的初始值为___（2）___；2、生成任意一个两位正整数可用公式（3）表示。3、由Array函数建立的数组的名字必须是（4）类型的。4、如果在模块的声明段中有OptionBase0语句，则在该模块中使用Dima(6,3To5)声明的数组有___（5）____个元素。5、强制变量的声明，应在模块的声明段使用_____（6）__________语句。6、如果int1是整型变量，则执行int1=2+3语句之后，int1的值为_____（7）_______；执行int1=2+3语句之后，int1的值为_____（8）___________。7、VB提供的三个文件管理控件是（9）。8、VB中有两种Sub过程，即（10）。9、调用一个有参数的过程时，首先进行的是“形实结合”，即按对应“（11）”结合，而不是按“名字”结合。10、程序运行时，单击窗体后，在窗体上第三行显示的结果是（12）。6OptionExplicitPrivateSubForm_Click()DimsAsString,iAsInteger,n(9)AsIntegerDims1AsString*1,jAsIntegers=Trim(12345a307291b233)Fori=1ToLen(s)s1=Mid(s,i,1)Ifs1=0Ands1=9Thenj=Val(s1)n(j)=n(j)+1EndIfNextiForj=0To9Printj;:;n(j)NextjEndSub11、下面程序段的执行结果为（13）。X=6ForK=1to0X=X+KNextKPrintK;X12、程序运行时，单击命令按钮后，在输入对话框中输入“234”，输出结果是（14）。OptionExplicitFunctionfun(ByValnumAsLong)AsLongDimkAsLongk=1num=Abs(num)DoWhilenumk=k*(numMod10)num=num\10Loopfun=kEndFunctionPrivateSubcommand1_click()DimnAsLongDimrAsLongn=InputBox(请输入一个数)r=fun(n)PrintrEndSub13、下面的程序段在窗体上输出A-Z的26个大写字母，在画线处填入适当内容。dimaasstringdimbasinteger7a=“A”b=1Dowhileb26a=a&____（15）____b=b+1loopprinta14、执行下面的程序，单击窗体，则在窗体上显示的是（16）。OptionExplicitPrivateSubForm_Click()DimaAsInteger,bAsInteger,cAsIntegerb=7:c=7.5a=b=cPrintaEndSub15、执行下面的程序，则在窗体上显示的是（17）。OptionExplicitFunctionf(iAsInteger,aAsInteger)AsIntegerDimbAsIntegerStaticcAsIntegerb=b+ic=c+if=a+b+cEndFunctionPrivateSubcommand1_click()DimaAsInteger,iAsIntegera=2Fori=1To3Printf(i,a);NextiEndSub16、执行下面的程序，则在窗体上最后一行显示的是（18）。OptionExplicitPrivateSubCommand1_Click()DimchAsString,iAsIntegerch=ABCFori=1To2ch=Mid(ch,2*i-1)+Right(ch,Len(ch)-i)Pri