关于VB上机试题解惑

VB上机试题解惑（2009年12月修改）资料说明：本资料是由历届同学从历年二级模拟考试系统、课后习题、实验课本习题中辛苦整理、积累下来的典型题目。基本上可以代表省二级VB考试的考试知识点、难度。对于考生二级VB的同学极具参考价值，推荐同学们细细研读。资料使用方法：1.看到相关题目就要联想相关的知识点，如果不很明白，就要翻教材察看、复习这些知识点，只有掌握了相关知识点才能真正应付考试中灵活多变的题目（当然还要能自由贯通这些知识点）；2.对于附有答题解释的题目，最好先不要看答案，自己分析过后再对照查看自己思路是否正确；3.切忌只看原体答案，不作总结；更加不可死记硬背！4.最好顺序向下看，有些题目考点、方法相同，只在靠前的题目作了解释。注意：新增解题提示--2007年6月的新题暂时还没加入；一、选择题1以下4种描述中，错误的是_______。DA.常量在程序执行期间其值不会发生改变B.根据数据类型不同，常量可分为字符型常量、数值常量、日期/时间型常量和布尔型常量C.符号常量是用一个标识符来代表一个常数，好象是为常数取一个名字，但仍保持常数的性质D.符号常量的使用和变量的使用没有差别2下面合法的常量是_______。DA.1/2B.'abcd'C.1.2*5D.False3VisualBasic中可以用类型说明符来标识变量的C类型，其中表示货币型的是_______。A.%B.#C.@D.$4以下关键字中，不能定义变量的是_______。AA.DeclareB.DimC.PublicD.Private5用十六进制表示VisualBasic的整型常数时，前面要加上的符号是_______。AA.&HB.&OC.HD.O6VisualBasic日期常量的定界符是_______。AA.##B.‘’C.()D.{}7数学关系3≤x<10表示成正确的VB表达式为_______。BA.3<=x<10B.3<=xANDx<10C.x>=3ORx<10D.3<=xAND<108\，/，Mod，*四个算术运算符中，优先级别最低的是_______。CA.\B./C.ModD.*9下面语句中有非法调用的是_______。CA.x=SGN(-1)B.x=FIX(-1)C.x=SQR(-1)D.x$=CHR$(65)10表达式23/5.8、23\5.8、23Mod5.8的运算结果分别是_______。BA.3、3.9655、3B.3.9655、3、5C.4、4、5D.3.9655、4、311如果变量a=2、b="abc"、c="acd"、d=5，则表达式a<dORb>cANDb<>c的值_______。AA.TrueB.FalseC.YesD.No12为了给x,y,z三个变量赋初值1，下面正确的赋值A语句是_______。A.x=1∶y=1∶z=1B.x=1,y=1,z=1C.x=y=z=1D.xyz=113以下4类运算符，优先级最低的是_______。DA.算术运算符B.字符运算符C.关系运算符D.逻辑运算符14已知a="12345678"，则表达式Left(a,4)+Mid(a,4,2)的值是_______。BA.123456B."123445"C.123445D.127915设有如下的记录类型TypeStudentnumberAsStringnameAsStringageAsIntegerEndType则正确引用该记录类型变量的代码是_______。BA.S="张红"B.DimsAsS="张红"C.DimsAsTypeStuentD.DimsAsT="张红"="张红"16下列程序运行时，从键盘输入字符"-"，则输出结果是_______。APrivateSubForm_Click()op$=InputBox("op=")Ifop$="+"Thena=a+2Ifop$="-"Thena=a-2PrintaEndSubA.-2B.0C.+2D.+017下列程序段的运行结果为_______。BFori=3To1Step-1PrintSpace(5-i);Forj=1To2*i-1Print"*";NextjPrintNextiA.*B.*****C.*****D.*************************18执行PRINT18/2*3,-3^2命令后，输出结果为_______。CA.39B.3-9C.27-9D.-92719执行PRINT9.4\3.7,9.4MOD3.7命令后，输出A结果为_______。A.21B.30C.220D.1220运行以下程序后，输出结果为_______。Cx%=1/4y%=11/4PRINTx%;y%ENDA.0.250.75B.02C.03D.1321窗体里有两个对象，分别是图片框Picture1和标签Label1。那么下面关于Print方法的使用中，错误的一条是_______。DA.Picture1.Print147B.Print147C.Printer.Print147D.Label1.Print14722下面的_______语句可以实现：先在窗体上输出大写字母A，然后在同一行的第10列输出小写字母b。BA.Print"A";Tab(9);"b"B.Print"A";Spc(8);"b"C.Print"A";Space(10);"b"D.Print"A";Tab(8);"b"23阅读下面的程序段：n1=InputBox("请输入第一个数：")n2=InputBox("请输入第二个数：")Printn1+n2当输入分别为111和222时，程序输出为______。AA.111222B.222C.333D.程序出错24语句PrintFormat("HELLO","<")的输出结果是_______。BA.HELLOB.helloC.HeD.he25语句Print(a=2)And(b=-2)的输出结果是_______。DA.TrueB.结果不确定C.-1D.False26以下程序段运行后，输出字符的排列顺序是_______。DFori=1To6IfiMod2=0ThenPrint"#";ElsePrint"*";EndIfNextiA.#*#*#B.#####C.*****D.*#*#*#27用MSGBOX函数显示的对话框，以下叙述正确的是_______。DA.该对话框有一个“确定”按钮B.该对话框有“是”，“否”两个按钮C.该对话框有“是”，“否”，“取消”三个按钮D.该对话框通过选择参数可以得到以上不同的的按钮组合28与语句Dimabc%作用相同的语句是_______。AA.DimabcAsIntegerB.DimabcAsLongC.DimabcAsStringD.DimabcAsDate29设a=1,b=2,c=3,d=4，则表达式IIf(a<b,a,IIf(c<d,a,d))的结果为_______。DA.4B.3C.2D.130表达式Int(198.555*100+0.5)/100的值为_______。CA.198B.199.6C.198.56D.20031要使变量x赋值为1～100间（含1，不含100）的一个随机整数，正确的语句是_______。DA.x=Int(100*Rnd)B.x=Int(101*Rnd)C.x=1+Int(100*Rnd)D.x=1+Int(99*Rnd)32VisualBasic表达式Cos(0)+Abs(1)+Int(Rnd(1))的值是_______。DA.1B.-1C.0D.233表达式Int(5*Rnd+1)*Int(5*Rnd-1)值的范围是_______。DA.[0,15]B.[-1,15]C.[-4,15]D.[-5,15]34当函数MsgBox返回值为1，对应的符号常量是vbOK，那么此时表示用户做的操作是_______。AA.用户单击了对话框中的“确定”按钮B.用户单击了对话框中的“取消”按钮C.用户单击了对话框中的“是”按钮D.用户单击了对话框中的“否”按钮35在VisualBasic中，InputBox函数的默认返回值类型为字符串，用InputBox函数输入数值型数据时，下列操作中可以有效防止程序出错的操作是_______。AA.事先对要接收的变量定义为数值型B.在函数InputBox前面使用Str函数进行类型转换C.在函数InputBox前面使用Value函数进行类型转换D.在函数InputBox前面使用String函数进行类型转换36表达式Len("123程序设计ABC")的值是_______。AA.10B.14C.20D.1737赋值语句g=123+Mid("123456",3,2)执行后，变量g中的值是_______。DA）"12334"B）123C）12334D）15738如果x是一个正实数，对x的第3位小数四舍五入的表达式是_______。BA.0.01*Int(x+0.005)B.0.01*Int(100*(x+0.005))C.0.01*Int(100*(x+0.05))D.0.01*Int(x+0.05)39MsgBox函数的返回值的类型是_______。AA）整数B）字符串C）逻辑值D）日期40使用下列语句：Dimx(1to10,3)AsSingle，则数组占用内存空间的字节数是_______。CA.132B.80C.160D.12041若x=1，执行语句IfxThenx=0Elsex=1的结果是_______。DA.实时错误B.编译错误C.x=1D.x=042下列程序段的循环结构执行后，i的输出值是_______。CDimyasIntegerFori=1To10Step2y=y+iNextiPrintiA.25B.10C.11D.因为y初值不知道，所以不确定43以下程序段的运行结果是_______。DPrivateSubForm_Click()x=5m=1n=1Dom=m*nn=n+1LoopUntiln>5Printx^2+m/3EndSubA.25B.45C.55D.6544以下程序段的运行结果是_______。APrivateSubForm_Click()DimsAsLong,fAsLongDimnAsInteger,iAsIntegerf=1n=4Fori=1Tonf=f*is=s+fNextiPrint"s=";sEndSubA.33B.34C.35D.3645以下程序段的运行结果是_______。APrivateSubForm_Click()a=1b=aDoUntila>=5X=a*bPrintStr(a)&"*"&Str(b)&"=";Str(X);a=a+bb=b+aLoopEndSubA.1*1=12*3=6B.1*1=22*2=4C.1*1=13*3=9D.1*1=23*2=646下面分别是求两个数中的大数的四个程序段，_______不正确。DA.Max=IIf(x>y,x,y)B.Ifx>yThenMax=xElseMax=yC.Max=xD.Ify>=xThenMax=yIfy>=xThenMax=yMax=x47下列循环能正常结束的是_______。CA.i=5B.i=1DODOi=i+1i=i+2LoopUntili<0LoopUntili=10C.i=10D.i=6DODOi=i+1i=i-2LoopUntili>0LoopUntili=148有如下程序，运行时从键盘输入4，则输出的结果是_______。BPrivateSubForm_Click()a=InputBox("Enteeravalueofa:")SelectCaseaCaseIs>2b=a+1CaseIs>3b=a+2CaseIs>5b=a+3CaseElseb=a+4EndSelectPrinta;bEndSubA.44B.45C.46D.4749执行如下程序段时，从键盘输入-5，输出的结果是_______。Ax=-5s=Val(InputBox("请输入s的值:"))SelectCasesCaseIs>0y=x+1CaseIs=0y=x+2CaseElsey=x+3EndSelectPrintx;yA.-5-2B.-5-4C.-5-3D.-5-550某林场1995年植树100亩，以后每年的植树面积按5%的速度增长，能正确计算到1998年时四年的植树总面积的程序是_______。BA.s=100:r=0.05B.s=100:sum=100:r=0.05Fori=1996To1998Fori=1996To1998s=s*(1+r)s=s*(1+r)Nextisum=sum+sPrintiNextiEndPrintsumC.s=100:r=0.05D.s0=100:sum=100:r=0.05Fori=1996To1998Fori=1996To1998s=s*(1+r)+ss=s0*(1+r)Nextisum=sum+sPrintiNextiEndPrintsum51以下程序段执行后，变量s、x的值分别为_______。CDimsAsInteger,xAsIntegers=10:x=1DoWhilex<10s=s+2x=x+2LoopPrints,xA.5011B.2010C.2011D.1001052以下程序段的执行结果是_______。AFori=1To4x=2Forj=1To3x=1Fork=1To2x=x+3NextkNextjNextiPrintxA.7B.6C.56D.7253用语句DimA(-3to5)AsLong定义的数组元素个数是_______。CA.7B.8C.9D.1054以下程序运行的结果是_______。DDimaa=Array(1,3,4,5,6,7)Fori=LBound(a)ToUBound(a)a(i)=a(i)*a(i)NextiPrinta(i)A.49B.0C.不确定D.下标越界55在窗体上添加一个命令按钮Command1，然后编写如下代码：PrivateSubCommand1_Click()DimcityAsVariantcity=Array("北京","上海","天津","重庆")Printcity(1)EndSub程序运行后，单击命令按钮，输出结果是_______。DA.空白B.错误提示C.北京D.上海56以下程序运行的结果是_______。DOptionBase1PrivateSubCommand1_Click()Dima,b(3,3)a=array(1,2,3,4,5,6,7,8,9)Fori=1To3Forj=1To3b(i,j)=a(i*j)If(j>=i)ThenPrintTab(j*3);Format(b(i,j),"###");NextjPrintNextiEndSubA.123B.1C.147D.1234564524646789789369957在窗体上画一个命令按钮Command1，然后编写如下代码：PrivateSubCommand1_Click()Dimarr1(10),arr2(10)AsIntegern=3Fori=1To5arr1(i)=iarr2(n)=2*n+iNextiPrintarr1(n),arr2(n);EndSub程序运行后，单击命令按钮，输出结果是_______。BA.113B.311C.133D.31358在窗体上画一个命令按钮Command1，然后编写如下代码：PrivateSubCommand1_Click()Dima(4,4)Fori=1To4Forj=1To4a(i,j)=(i-1)*3+jNextjNextiFori=3To4Forj=3To4Printa(j,i);NextjPrintNextiEndSub程序运行后，单击命令按钮，输出结果是_______。DA.69B.710C.811D.912710811912101359有如下程序：PrivateSubForm_Load()Dimarr1(10,10)AsIntegerDimi,jAsIntegerFori=1To3Forj=2To4arr1(i,j)=i+jNextjNextiText1.Text=arr1(2,3)+arr1(3,4)EndSub程序运行后，单击窗体，在文本框显示的值是_______。CA.5B.7C.12D.2060在窗体上添加一个命令按钮Command1，然后编写如下代码：OptionBase1PrivateSubCommand1_Click()d=0:c=10x=Array(10,12,21,32,24)Fori=1To5Ifx(i)>cThend=d+x(i)c=x(i)Elsed=d-cEndIfNextiPrintdEndSub程序运行后，单击命令按钮，输出结果是_______。CA.89B.99C.23D.7761下列语句声明的数组a包含的元素个数有_______。ADima(3，-2to2，5)A.120B.75C.60D.1362定义数组Array(1to5,5)后，下列哪一个数组元素不存在_______。CA.Array(1,1)B.Array(1,0)C.Array(0,1)D.Array(5,5)63在VisualBasic应用程序中，以下描述正确的是_______。BA.过程的定义可以嵌套，但过程的调用不能嵌套B.过程的定义不可以嵌套，但过程的调用可以嵌套C.过程的定义和过程的调用均可以嵌套D.过程的定义和过程的调用均不可以嵌套64假定有如下的Sub过程：Subswapp(xAsSingle,yAsSingle)t=xx=t/yy=tModyEndSub在窗体上添加一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimaAsSingleDimbAsSinglea=5:b=4swappa,bPrinta,bEndSub程序运行时，单击命令按钮得到的结果是_______。DA.54B.11C.1.254D.1.25165以下程序的运行结果是_______。CFunctionfun(aAsInteger)b=0Staticcb=b+1c=c+1fun=a+b+c'EndFunctionPrivateSubCommand1_Click()DimaAsIntegera=2Fori=1To3Sum=Sum+fun(a)NextiPrintSumEndSubA.24B.12C.15D.3266阅读程序：Subsubp(b()AsInteger)Fori=1To4b(i)=2*iNextiEndSubPrivateSubCommand1_Click()Dima(1To4)AsIntegera(1)=5:a(2)=6:a(3)=7:a(4)=8subpaFori=1To4Printa(i);NextiEndSub程序运行时，单击命令按钮得到的结果是_______。AA.2468B.5678C.10121416D.出错67假定有以下两个过程：Subs1(ByValxAsInteger,ByValyAsInteger)DimtAsIntegert=xx=yy=tEndSubSubs2(xAsInteger,yAsInteger)DimtAsIntegert=xx=yy=tEndSub则以下说法中正确的是_______。BA.用过程S1可以实现交换两个变量的值的操作，S2不能实现B.用过程S2可以实现交换两个变量的值的操作，S1不能实现C.用过程S1和S2都可以实现交换两个变量的值的操作D.用过程S1和S2都不能实现交换两个变量的值的操作68在窗体上添加一个命令按钮Command1和两个名称分别为Label1和Label2的标签，在通用声明段声明变量x,并编写如下事件过程和SUB过程：PrivatexAsIntegerPrivateSubCommand1_Click()x=5:y=3Callproc(x,y)Label1.Caption=xLabel2.Caption=yEndSubSubproc(ByValaAsInteger,ByValbAsInteger)x=a*ay=b+bEndSub程序运行后，单击命令按钮，则两个标签中显示的内容分别是_______。BA.5和3B.25和3C.25和6D.5和669下列程序输出结果为_______。APrivateSubCommand1_Click()Fori=1To3GetValue(i)NextiPrintGetValue(i)EndSubPrivateFunctionGetValue(ByValaAsInteger)dimSAsIntegerS=S+aGetValue=SEndFunctionA.4B.5C.10D.1170以下程序的运行结果是_______。CDimxAsInteger,yAsInteger,zAsIntegerSubs2(aAsInteger,ByValbAsInteger)a=2*ab=b+2EndSubPrivateSubCommand1_Click()x=4y=4Calls2(x,y)Printx+yEndSubA.0B.8C.12D.1471以下程序的运行结果是_______。CPrivateSubForm_Click()a=1:b=1Print"A=";a;"B=";bCallmult(a,B.Print"A=";a;"B=";bEndSubSubmult(x,y)x=2*xy=3*yEndSubA.A=1B=1B.A=1B=1C.A=1B=1D.A=1B=1A=1B=1A=1B=3A=2B=3A=2B=172在窗体上添加一个命令按钮Command1和3个名称分别为Label1，Label2和Label3的标签，然后编写如下事件过程：PrivatexAsIntegerPrivateSubCommand1_Click()StaticyAsIntegerDimzAsIntegern=10z=n+zy=y+zx=x+zLabel1.Caption=xLabel2.Caption=yLabel3.Caption=zEndSub程序运行后，连续3次单击命令按钮，则3个标签中显示的内容分别是_______。CA.101010B.303030C.303010D.10303073一个工程中包含两个名称分别为Form1和Form2的窗体，一个名称为mdlfunc的标准模块。假定Form1,Form2和mdlfunc中分别建立了自定义过程，其定义格式为：Form1中定义的过程：PrivatesubfrmFunction1()…EndSubForm2中定义的过程：PubilcsubfrmFunction2()…EndSubMd1func中定义的过程：Publicsubmd1Function()…EndSub在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是_______。DA.上述三个过程都可以在工程中的任何窗体或模块中被调用B.frmFunction2和md1Function过程能够在工程中各个窗体或模块中被调用C.上述三个过程都只能在各自被定义的模块中调用D.只有md1Function过程能够被工程中各个窗体或模块调用74以下程序段的运行结果是_______。BFunctionabc(nAsInteger)AsIntegerabc=n*5+10EndFunctionPrivateSubForm_Click()DimxAsIntegerx=abc(234)+109*abc(10)PrintxEndSubA.7700B.7720C.2340D.777075下列程序运行后显示的结果是_______。APublicSubF1(n%,ByValm%)PrivateSubCommand1_Click()n=nMod10Dimx%,y%m=m\10x=12:y=34EndSubCallF1(x,y)Printx,yEndSubA.234B.1234C.23D.12376以下关于窗体的描述中，错误的是_______。AA.执行UnloadForm1语句后，窗体Form1消失，但仍在内存中B.窗体的load事件在加载窗体时发生C.当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止D.窗体的Height、Width属性用于设置窗体的高和宽77若要使某命令按钮获得控制焦点，则可使用_______方法来设置。BA.RefreshB.SetFocusC.GotFocusD.Value78设组合框Combo1中有3个项目，则能删除最后一个项的语句是_______。BA.Combo1.RemoveItemTextB.Combo1.RemoveItem2C.Combo1.RemoveItem3D.Combo1.RemoveItemCombo1.Listcount79将数据项"China"添加到列表框List1中，成为第一项应使用语句_______。AA.List1.AddItem"China",0B.List1.AddItem"China",1C.List1.AddItem0,"China"D.List1.AddItem1,"China"80假定时钟控件的Interval属性为1000，Enabled属性为True，并且有下面的事件过程，计算机将发出_______次Beep声。DPrivateSubTimer1_Timer()Fori=1To5BeepNextiEndSubA.1000次B.10000次C.5次D.以上都不对81将命令按钮Command1的标题作为文本框Text1的文本内容，应执行语句_______。BA.Text1=Command1B.Text1.Text=Command1.CaptionC.Text1.Caption=Command1.CaptionD.Text1.Text=CStr(Command1)82下列控件可以用作其他控件容器的有_______。DA.窗体，标签，图片框B.窗体，框架，文本框C.窗体，图像，列表框D.窗体，框架，图片框83改变驱动器列表框的Drive属性将激活_______事件。AA.ChangeB.ScrollC.KeyDownD.KeyUp84在窗体上添加一个列表框和一个文本框，然后编写如下两个事件过程：PrivateSubForm_Load()List1.AddItem"357"List1.AddItem"246"List1.AddItem"123"List1.AddItem"456"EndSubPrivateSubList1_DblClick()a=List1.TextPrinta+Text1.TextEndSub程序运行后，在文本框中输入"789"，然后双击列表框中的"456"，则输出结果为_______。BA.1245B.456789C.789456D.085在窗体上添加一个文本框，然后编写如下事件过程：PrivateSubForm_Load()Text1.Text=""Fori=1To10Sum=Sum+iNextiText1.Text=SumEndSub上述程序的运行结果是_______。AA.在文本框Text1中输出55B.在文本框Text1中输出0C.出错D.在文本框Text1中输出不定值86在窗体上添加一命令按钮Command1，并将其Caption属性设置为cmdAA、名称属性设置为cmdBB，则关于该控件的下列_______语句是正确的。CA.Command1.Left=100B.cmdAA.Left=100C.cmdBB.Left=100D.以上语句都不对87在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。在List1的单击事件过程中能正确实现上述功能的语句是_______。DA）Label1.Caption=List1.ListIndexB.Label1.Name=List1.ListIndexC）Label1.Name=List1.TextD）Label1.Caption=List1.Text88下面对语句Open"Rizhi.dat"ForOutputAs#1的功能描述错误的是_______。CA.以顺序输出模式打开文件"Rizhi.dat"B.如果文件"Rizhi.dat"不存在，则建立一个新文件C.如果文件"Rizhi.dat"已存在，则打开该文件，新写入的的数据将添加到文件末尾D.如果文件"Rizhi.dat"已存在，则打开该文件，新写入的的数据将覆盖原来的数据89执行语句Open"Sample.dat"ForRandomAs#1Len=50后，对文件"Sample.dat"中的数据能够进行的操作是_______。CA.只能写不能读B.只能读不能写C.即可以读，也可以写D.不能读，也不能写90下列说法错误的是_______。CA.当用Write#语句写顺序文件时，文件必须以Output或Append方式打开B.用Input方式打开一个文件时，对同一个文件可以用几个不同的文件号打开C.用Output和Append方式打开文件时，不用将文件关闭，就能重新打开文件D.用Append方式打开文件时，进行写操作，写入文件的数据附加到原来文件的后面91下面几个关键字均表示文件的打开方式，只能进行读不能写的是_______。AA.InputB.OutputC.RandomD.Append92下列哪个不是写文件语句_______。DA.PutB.PrintC.WriteD.Output93以下叙述中正确的是_______。BA.一个记录中所包含的各个元素的数据类型必须相同B.随机文件中每个记录的长度是固定的C.Open命令的作用是打开一个已经存在的文件D.使用Input#语句可以从随机文件中读取数据94在窗体上添加一个命令按钮Command1和一个文本框Text1，然后编写如下事件过程：PrivateSubCommand1_Click()DimsAsString*20s=Text1.Text……EndSub该程序的功能是当单击按钮Command1时，把变量S的内容写入一个顺序文件dat1.dat中，正确的程序段是_______。BA.Open"dat1.dat"ForInputAs#1B.Open"dat1.dat"ForOutputAs#1Write#1,sWrite#1,sClose#1Close#1C.Open"dat1.dat"ForRandomAs#1D.Open"dat1.dat"ForBinaryAs#1Write#1,sWrite#1,sClose#1Close#195FileFiles.Pattern="*.dat"程序代码执行后，会显示_______。AA.只包含文件扩展名为".dat"的文件B.第一个dat文件C.包含所有的文件D.显示磁盘的路径96目录列表框的Path属性的作用是_______。AA.显示当前驱动器或指定驱动器上的路径B.显示当前驱动器或指定驱动器上的某个目录下的文件名C.显示根目录下的文件D.只显示当前路径下的文件97为了使Drive1驱动器列表框、Dir1目录路径列表框和File1文件列表框同步协调工作，需要_______。AA.Drive1的Change事件过程中加入Dir1.Path=Drive1.Drive，在Dir1的Change事件中加入File1.Path=Dir1.Path代码B.Drive1的Change事件过程中加入Dir1.Path=Dir1.Path，在Dir1的Change事件中加入File1.Path=Drive1.Drive代码C.Dir1的Change事件过程中加入Dir1.Path=Drive1.Drive，在Drive1的Change事件中加入File1.Path=File1.FileName代码D.Dir1的Change事件过程中加入Dir1.Path=Drive1.Drive，在Drive1的Change事件中加入File1.Path=Dir1.Path代码98以下程序运行后，a1.dat文件的内容是_______。BPrivateSubForm_Click()Dimf1AsInteger,f2AsInteger,f3AsIntegerOpen"d:\a1.dat"ForOutputAs#1f1=2f2=3f3=f2+f1Write#1,f1*f2,f2,f3Close#1EndSubA.2，3，3B.6，3，5C.2，5，6D.无内容99以下能判断是否到达文件尾的函数是_______。DA.BOFB.LOCC.LOFD.EOF100一条语句要分行书写，用_______符号作续行符。CA.+B.-C._D.…101VB6.0的标准化控件位于IDE(集成开发环境)中的_______窗口内。BA.工具栏B.工具箱C.对象浏览器D.窗体设计器102关于VisualBasic应用程序正确的叙述是_______。AA.VisualBasic程序运行时，总是等待事件被触发B.VisualBasic程序设计就是编写代码C.VisualBasic程序是以线性方式顺序执行的D.VisualBasic的事件可以由用户随意定义，而事件过程是系统预先设置好的103保存文件时，窗体的所有数据以_______存储。BA.*.PRGB.*.FRMC.*.VBPD.*.EXE104下列哪组语句可以将变量a，b的值互换_______。BA.a=b:b=aB.a=a+b:b=a-b:a=a-bC.a=c:c=b:b=aD.a=(a+B./2:b=(a-B./2105以下程序段执行后，整型变量n的值为_______。Ayear1=2004n=year1\4+year1\400-year1\100A.486B.496C.506D.466106将一文本框与数据控件相关联，需要设定文本框的_______属性。CA.DataMemberB.DatafieldC.DataSourceD.DataFormat107窗体Form1上有两个文本框Text1、Text2和一个命令按钮Command1，编写如下两个事件过程：PrivateSubCommand1_Click()a=Text1.Text+Text2.TextPrintaEndSubPrivateSubForm_Load()Text1.Text="123"Text2.Text="321"EndSub程序运行时点击Command1按钮，窗体上显示的运行结果是_______。BA.444B.123321C.321123D.132231108在窗体上添加三个文本框，名称分别为Text1、Text2、Text3，一个命令按钮Command1。如果在Text1中输入150，Text2中输入数200，则执行下列程序后，Text3中显示的数为_______。DPrivateSubCommand1_Click()DimmAsInteger,nAsIntegerm=Val(Text1.Text)n=Val(Text2.Text)Ifm<nThent=m:m=n:n=tEndIfDor=mModnm=nn=rLoopWhiler<>0Text3.Text=Str(m)EndSubA.200B.150C.100D.50109以下程序段的执行结果是_______。Ba=10:y=0Doa=a+2y=y+aIfy>20ThenExitDoEndIfLoopWhilea<=14Print"a=";a;"y=";yA.a=18y=24B.a=14y=26C.a=14y=24D.a=12y=12110以下叙述中错误的是_______。AA）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件B）以.BAS为扩展名的文件是标准模块文件C）窗体文件包含该窗体及其控件的属性D）一个工程中可以含有多个标准模块文件111关于VB中的监视表达式，错误的叙述是_______。AA）监视表达式不能引起中断B）可使监视表达式为真时引起中断C）可使监视表达式的值变化时引起中断D）监视表达式可以监视对象112以下程序段的运行结果是_______。CPrivateSubForm_Click()Dimx()AsStringa="Howareyou!"n=Len(A.ReDimx(1Ton)Fori=nTo1Step-1x(i)=Mid(a,i,1)NextIFori=1TonPrintx(i);NextiEndSubA.!uoyerawoHB.!uoyerawohC.Howareyou!D.howareyou!113以下程序段的运行结果是_______。DPrivateSubForm_Click()DimnsumAsIntegernsum=1Fori=2To4nsum=nsum+factor(i)NextiPrintnsumEndSubFunctionfactor(ByValnAsInteger)AsIntegerDimtempAsIntegertemp=1Fori=1Tontemp=temp*iNextifactor=tempEndFunctionA.10B.13C.23D.33114以下程序段的运行结果是_______。CPrivateSubForm_Click()DimsAsString,onceAsString,sumAsIntegerFori=1To5once=InputBox("请输入一个字符")'分别输入A,C,A,D,Esum=sum+checks(once,s)NextiPrints;sumEndSubPrivateFunctionchecks(ByValxAsString,yAsString)AsIntegerIfx<>"A"Theny=y+x'xy都是字符串,所以这里是连接运算,结果放入ychecks=1'使函数返回1,此时是x不是"A",x为其它字符则函数返回0EndIfEndFunctionA.ACA3B.ACA5C.CDE3D.CDE5115以下程序段的运行结果是_______。BPrivateSubForm_Click()DimiAsInteger,yAsIntegeri=0DoWhilei<=4y=fa(i+1)i=i+1LoopPrintyEndSub