VB模拟试题7

一、单选题（30分，每小题1分）1．下列软件中______是常用的浏览器软件。(A)Windows(B)InternetExplorer(C)WPS(D)VisualBasic2．音箱属于计算机中的______。(A)中央处理器(B)存储器(C)输入设备(D)输出设备3．下列名称中只有________可以在Windows中作为文件名使用。(A)VB?.EXE(B)Windows/Program.Files.TXT(C)12:34.COM(D)Word.DOC4．二进制数11010101转换为十进制是______。(A)171(B)213(C)426(D)4275．文件名通配符*·*表示________。（A）硬盘上的全部文件（B）当前盘当前目录中的全部文件（C）当前盘的全部文件（D）根目录的全部文件6．下列文件中______类型不能在VB的工程资源管理器中显示。(A)VBP(B)BAS(C)FRM(D)OCX7．下列语句中______没有语法错误。(A)Dim3AasString(B)DimA#BasInteger(C)Dimprint_2AsBoolean(D)Dima(9To3)AsDouble8．下列对象中_______不能作为放置其他控件的容器。(A)Form(B)Image(C)PictureBox(D)Frame9．设窗体中有一个文本框Text1，要求该文本框只能显示信息而不能接收输入的信息，以下______语句能实现该功能。(A)Text1.MultiLine=False(B)Text1.Visible=False(C)Text1.Width=0(D)Text1.Enabled=False10．设窗体中有一个文本框Text1和一个滚动条HScroll1，当拖动滚动条的滑块时，需要文本框中显示滚动条的当前值。以下______事件过程能实现该功能。(A)PrivateSubHScroll1_Scroll()Text1.Text=HScroll1.ValueEndSub(B)PrivateSubHScroll1_Click()Text1.Text=HScroll1.ValueEndSub(C)PrivateSubHScroll1_Scroll()Text1.Text=HScroll1.CaptionEndSub(D)PrivateSubHScroll1_Click()Text1.Text=HScroll1.CaptionEndSub11．窗体中有一个命令按钮Command1。运行下列程序时单击命令按钮，则窗体中显示______。OptionBase1PrivateSubCommand1_Click()Dimcitycity=Array(北京,上海,南京,广州)Printcity(1)EndSub(A)空白(B)北京(C)上海(D)出现错误提示12．窗体中有一个命令按钮Command1。运行下列程序，单击命令按钮，窗体中显示______。DimXAsInteger'(通用)(声明)PrivateSubProc(ByValaAsInteger,ByValbAsInteger)X=a*aY=b+bEndSubPrivateSubCommand1_Click()X=5:Y=3CallProc(X,Y)PrintX,YEndSub(A)53(B)253(C)256(D)5613．在以下事件过程中，Private表示__________。PrivateSubText1_Change()……EndSub(A)此过程可以被任何其它过程调用(B)此过程只可以被本窗体模块中的其它过程调用(C)此过程不可以被任何其它过程调用(D)此过程只可以被本工程中的其它过程调用14．执行下面这段代码时，窗体中将会显示________。x=0n=3Fori=1TonForj=1Toix=x+1NextjNextiPrintx(A)3(B)4(C)5(D)615．设有如下程序，运行时单击命令按钮，则窗体上显示的结果是______。FunctionFun(SAsString)AsStringDims1AsString,iAsIntegerFori=1ToLen(S)s1=UCase(Mid(S,i,1))+s1NextiFun=s1EndFunctionPrivateSubCommand1_Click()DimStr1AsString,Str2AsStringStr1=abcdefgStr2=Fun(Str1)PrintStr2EndSub(A)abcdefg(B)ABCDEFG(C)gfedcba(D)GFEDCBA16．以下表达式中_____与其他几个的值不同。(A)Left(Right(ABCDEDEFG,6),4)(B)Right(Left(ABCDEDEFG,7),4)(C)Mid(ABCDEDEFG,4,4)(D)String(2,DE)17．设有如下程序，运行时单击命令按钮，则文本框中显示______。SubF(a(),xAsInteger)Fori=1To5x=x+a(i)NextiEndSubPrivateSubCommand1_Click()Dimarr(5),nAsIntegerFori=1To5arr(i)=iNextiCallF(arr(),n)Text1.Text=nEndSub(A)10(B)15(C)25(D)2418．以下程序段中______不能正确地计算5的阶乘。(A)n=5:x=1Fori=1Tonx=x*iNextiPrintx(B)n=5:x=1Fori=nTo1Step-1x=x*iNextiPrintx(C)n=5:x=1:i=1Dox=x*ii=i+1LoopUntili=nPrintx(D)n=5:x=1:i=1Dox=x*ii=i+1LoopWhilei=nPrintx19．执行如下程序，单击命令按钮3次，则标签Label1,Label2,Label3中分别显示______。DimxAsIntegerPrivateSubCommand1_Click()StaticyAsIntegerDimzAsIntegern=10z=n+z:y=y+z:x=x+zLabel1.Caption=xLabel2.Caption=yLabel3.Caption=zEndSub(A)101010(B)303010(C)303030(D)10303020．设已执行b=Array(1,3,5,7,9)，现要将数组b中的各元素逆序排列，程序段____可实现该功能。(A)Fori=0To5-1\2tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNexti(B)Fori=0To5\2tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNexti(C)Fori=0To5tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNexti(D)Fori=1To5\2tmp=b(i)b(i)=b(5-i-1)b(5-i-1)=tmpNexti21．设窗体中有一个组合框Combo1，并有如下代码，则启动窗体后，组合框中的内容是______。PrivateSubForm_Load()Fori=1To4Combo1.AddItemiNextiFori=1To2Combo1.RemoveItemiNextiEndSub(A)34(B)13(C)23(D)1422．执行下列程序段，文本框Text1中显示______。n=10SelectCasenCase1To20x=10Case2,4,6x=20CaseIs=10x=30Case10x=40EndSelectText1.Text=x(A)10(B)20(C)30(D)4023．设x=4，y=8，z=7，则表达式xyAnd(Notyz)Orzx的值是________。(A)1(B)-1(C)True(D)False24．窗体中有一个命令按钮Command1，并已编写下列代码。运行时在文本框输入6并单击命令按钮，则窗体显示______。FunctionF1(ByRefx)x=x*xF1=x+xEndFunctionFunctionF2(ByValx)x=x*xF2=x+x+xEndFunctionPrivateSubCommand1_Click()n=Val(Text1.Text)Ifn/2=n\2ThenF=F1(n)ElseF=F2(n)EndIfPrintF;nEndSub(A)7236(B)10836(C)726(D)108625．窗体上有名为Text1,Text2的两个文本框和一个命令按钮Command1，并有如下代码。代码中横线处应写入______语句，才能将文本框的内容正确地写入D盘文件test.dat。PrivateTypePersonPNAmeAsString*8MajorAsString*20EndTypePrivateSubCommand1_Click()DimpAsPersonp.PNAme=Text1.Textp.Major=Text2.Text________Close#1EndSub试题、试卷纸总9页第6页（E）卷(A)Opend:\test.datForRandomAs#1Put#1,1,p(B)Opend:\test.datForInputAs#1Put#1,1,p(C)Opend:\test.datForOutPutAs#1Put#1,1,p(D)Opend:\test.datForAppendAs#1Put#1,1,p26．要在下拉菜单中添加一条分隔线，则应在菜单编辑器中插入一个标题为______的菜单项。(A)=(B)*(C)&(D)-27．窗体中有一个命令按钮Command1和一个文本框Text1。运行如下程序，单击命令按钮，则文本框中显示______。PrivateSubCommand1_Click()Text1.Text=VisualMe.Text1=BasicText1=ProgramEndSub(A)Visual(B)Basic(C)Program(D)出错，无显示28．下面这段程序的功能是______。n=Val(Text1.Text)Fori=2TonForj=2ToSqr(i)IfiModj=0ThenExitForNextjIfjSqr(i)ThenPrintiNexti(A)输出n以内的奇数(B)输出n以内的偶数(C)输出n以内能被j整除的数(D)输出n以内的素数29．窗体中有4个名为Text1的文本框，如图，下标从0开始，从左到右顺序增大。单击命令按钮时，这4个文本框从左向右分别显示______。PrivateSubCommand1_Click()Fori=0To3Text1(i).Text=Text1(i).IndexNextiEndSub(A)0123(B)1234(C)0132(D)出错30．窗体中有一个通用对话框CommonDialog1和一个命令按钮Command1，并有以下程序。关于这试题、试卷纸总9页第7页（E）卷段程序功能的描述错误的是______。PrivateSubCommand1_Click()CommonDialog1.Filter=AllFile|*.*|WordDocuments|*.doc|TextDocuments|*.txtCommonDialog1.InitDir=D:\CommonDialog1.DialogTitle=VBTestCommonDialog1.Action=1EndSub(A)这段程序产生一个“打开文件”对话框(B)这个对话框的标题是“VBTest”(C)对话框中初始的路径是D盘的根目录(D)在这个对话框中只能选择打开Word文档或文本文件二、填空题（50分，每空2分，请在答题纸上标明每个空的编号）1．执行语句PrintString(5,ABC)，窗体中将显示__AAAAA___。2．VB中数据文件根据对文件的访问方式分为3