2012-2013第二学期VB期末考试卷(A卷)终极版

1贵州大学2012-2013学年第二学期期末考试（A卷）高级程序设计语言VB（考试时间：100分钟，试卷总分：100分）一、选择题。（共35题，1-20题每题1分，后21-35题每题2分，共50分）1、下面哪一个不是VisualBasic保留的关键字？（）（A）Function（B）Else（C）Righ（D）Left2、修改窗体的标题栏内容通过设置窗体的（）属性（A）Backcolor（B）Caption（C）Forecolor（D）Appearance3、以下不属于VisualBasic的工作模式是模式。（A）编译（B）设计（C）运行（D）中断4、下面4项中合法的字符常数是：（）（A）'ABC'（B）ABC（C）ABC$（D）ABC5、以下语句的输出结果是（A）$1.7321（B）$0001.7321（C)）$$1.7321（D）$$0001.73216、下面是合法的变量名。(A)integer（B）123abc（C）X_yz（D）X-Y7、下列程序段的执行结果是（）。（A）3040（B）303010（C）3010（D）10308、下列程序段的运行结果是：（）DimAAsInteger,BAsIntegerA=-15B=-4PRINT4+AmodBA、5B、7C、1D、出错9、下面是不合法的单精度常数。（A）100！（B）100.0D+2（C）1E+2(D)100.010、执行以下语句后的显示结果为（）（A）1（B）-1（C）0（D）不确定DimxAsInteger：x=1Ifx-1thenPrintxElsePrintx-1a=Sqr(3)printFormat(a,$$####.0000)J1=10J2=30：J1=J2+J1IfJ1J2ThenPrintJ2;PrintJ2;J12Int（198.555*100+0.5）/10011、数学关系3≤X10表示成正确的VB表达式为。（A）abs(X)＞=3orabs(X)＜10（B）sqr(X)＞=3orsqr(X)＜10（C）abs(X)＞=3andabs(X)＜10（D）sqr(X)＞=3andsqr(X)＜1012、假定Pic1和Lab1分别是图片框和标签框的名称，下列不正确的语句是(A)Pic1.Print25(B)Print25(C)Lab1.Print25(D)debug.Print2513、下列语句正确的是（）（A）IfA≥BThenT=A:A=B:B=T（B）IfA≥BThenT=A;A=B;B=t（C）IfA=BThenT=A;A=B;B=T（D）IfA=BThenT=A:A=B:B=T14、下面表达式的值是（A）198（B）198.6（C）198.56（D）20015、为了使文本框同时具有水平和垂直滚动条，应先把MultiLine属性设置为True，然后再把ScrollBars属性设置成d（A）0（B）1（C）2（D）316、为了在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True，这个属性是(A)Value(B)Default(C)Enabled(D)Cancel17、已知A$=”1234123456789”，则表达式的值为（A）123456（B）123445（C）00-2-30（D）5678918、下列程序段的运行结果是（）DimAAsInteger,BAsInteger,XAsIntegerA=1：B=2IFABTHENX=A-BELSEX=B+A:x=1PRINTX(A)-1(B)1(C)2(D)319、假定在图片框Pictrue1中装入了一个图形，为了清除该图形（注意，不是删除图片框），应该采用的正确方法是（）A)选择图片框，然后按Del键B)在程序中执行语句Pictrue1.Picture=C)选择图片框，在属性窗口中选择Picture属性条，然后按回车键D)在程序中执行语句Pictrue1.Picture=LoadPicture()20、为了使文本框具有水平滚动条，应先把属性设置为True（A）Caption（B）Text（C）ScrollBars（D）MultiLine21、下列程序段的执行结果为（）。X=int(rnd*21+20)+10SelectCaseXCaseIs=10Print“A”CaseIs=20Val(Mid$(a$,9))贵州大学2012-2013学年第一学期末考试高级程序设计语言VB3Print“B”CaseIs=30Print“C”CaseIs=40Print“D”EndSelect（A）A（B）B（C）C（D）D22、下列程序段的执行结果为（）。（A）-16（B）-116（C）106（D）113123、下列程序段的执行结果为（）。X=5Y=20IfNotXYThenX=Y+XElseY=X+3PrintX;Y-X（A）-33（B）5-8（C）3-3（D）25-524、下列程序段的执行结果为（）。PrivateSubForm_click()A=1B=2A=Val(A+B)B=Val(A)+Val(B)IfABThenPrintA-BElsePrintB-AEndSub（A）-9（B）9（C）-2（D）1425、在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码：PrivateSubCommand1_Click()DimArr1(10),arr2(10)AsIntegern=3Fori=1To5Arr1(i)=iarr2(n)=2*n+iNextiPrintarr2(n+1);Arr1(n)EndSub程序运行后，单击命令按钮，输出结果是A）113B）311C）03D）313X=6ForK=10To1Step2X=X+KNextKPrintK;X贵州大学2012-2013学年第一学期末考试高级程序设计语言VB426、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：程序运行后，单击命令按钮，则在窗体上显示的内容是（A）4（B）5（C）6（D）727、为了清除列表框中所有的项目，应使用的方法为()(A)Cls(B)Clear(C)Remove(D)RemoveItem28、以下定义数组或给数组元素赋值的语句中，正确的是29、在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码：运行上面的程序，单击窗体，其输出结果是（A）4321（B）1234（C）34（D）12OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4,5)Fori=1ToLBound(a)a(i)=a(i)+i-1NextPrinta(4)EndSubOptionBase1PrivateSubform_Click()Dimas=0a=Array(1,2,3,4)j=1000Fori=4To1Step-1s=s+a(i)*jj=j/10NextiPrintsEndSub（A）Dima(10)AsIntegera=Array(1,2,3,4,5)（B）DimaAsVarianta=Array(1,2,3,4,5)（C）Dima%(10)a(1)=ABCDE（D）Dima(3),b(3)AsIntegera(0)=0a(1)=1a(2)=2b=a贵州大学2012-2013学年第一学期末考试高级程序设计语言VB530、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：程序运行后，单击命令按钮，则在窗体上显示的内容是（A）4（B）5（C）6（D）731、假定建立了一个名为Command1的命令按钮数组，则以下说法中错误的是______。A)数组中每个命令按钮的名称（Name属性）均为Command1B)数组中每个命令按钮的标题（Caption属性）都一样C)数组中所有命令按钮可以使用同一个事件过程D)用名称Command1(下标)可以访问数组中的每个命令按钮32、在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：程序运行后，在文本框中输入“123”，然后双击列表框中的“246”，则输出结果为（）A)1245B)456123C)123456D)24612333、假定有如下的Sub过程：在窗体上画一个命令按钮，然后编写如下事件过程：SubS(xAsSingle,ByValyAsSingle)t=xx=t/yy=tModyEndSubOptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4,5)Fori=1ToUBound(a)a(i)=a(i)+i-1NextiPrinta(4)EndSubPrivateSubForm_Load()List1.AddItem357List1.AddItem246List1.AddItem123List1.AddItem456Text1.Text=EndSubPrivateSubList1_DblClick()M=List1.TextPrintM+Text1.TextEndSub贵州大学2012-2013学年第一学期末考试高级程序设计语言VB6程序运行后，单击命令按钮，输出结果为()。A.54B.50.8C.1.254D.1.25134、阅读程序：运行上面的程序。单击命令按钮，输出结果为()。A.4B.5C.6D.546874710935、下列程序段的执行结果为（）。A=abcdB=bcdeE=Right(A,3)F=Mid(B,1,3)IfEFThenPrintE+FElsePrintF+E（A）cdebcd（B）cdd（C）bcdbcd（D）bcdcde二、填空题：（共20题，每题2分，共40分，请注意所填空的序号，填错位置不给分）1、VB中标准模块文件的扩展名是1。2、执行以下语句的输出结果是2。PrivateSubCommand1_Click()DimaAsSingleDimbAsSinglea=5b=4Sb,aPrinta,bEndSubFunctionF(aAsInteger)b=1Staticcb=b+1c=c+2F=a+b+cEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=2Fori=1To3PrintF(a)NextiEndSub贵州大学2012-2013学年第一学期末考试高级程序设计语言VB7S=”123456789”Printleft(s,2)+mid(s,2,3)3、在用VisualBasic6.0开发应用程序时，一般需要3、设置属性和编写代码三步。4、循环结构分为4和直到型循环两种。5、与数学式子abab2)(422对应的VisualBasic表达式是___________5______________。6、计时器事件之间的间隔是通过_____6_______属性来设置的。7、列表框要添加新的项目，应使用的方法为78、以下程序用来产生20个[30，80]之间的随机整数，并将其中的奇数打印出来。PrivateSubCommand1_Click()RandomizeForI=1To20X=Int(8)If9ThenPrintXNextIEndSub9、以下循环的执行次数是________10______。10、以下程序文本框Text1中输入任一字符串，并按相反的次序显示在文本框Text2中。PrivateSubCommand1_Click()DimNAsString,CAsString,DAsStringN=Text1.TextM=len(N)ForI=11C=Mid(N,I,1)D=12NextI13=DEndSub11、下面程序段是统计英文字符串中各个英文字符个数（英文不计大小写），请填空完成。PrivateSubCommand1_Click()DimA(1To26)AsIntegerDimTAsStringDimCAsString*1DimLAsInte