VB开发基础(习题卷24)

试卷科目：VB开发基础VB开发基础(习题卷24)PAGE"pagenumber"pagenumber/SECTIONPAGES"numberofpages"numberofpagesVB开发基础第1部分：单项选择题，共83题，每题只有一个正确答案,多选或少选均不得分。[单选题]1.下列不能打开属性窗口的操作是_____.A)B)C)D)A)执行"视图"菜单中的"属性窗口"命令B)按F4键C)单击工具栏上的"属性窗体"按钮D)按Ctrl+T答案:D解析:[单选题]2.有如下程序.PrivateSubCommand1_Click()m$="ABC"n$="abc"k$=LCase$(mS)j$=UCase$(n$)PrintAsc(k$+j$)EndSub程序运行后,输出的结果是().A)abcabcB)ABCABCC)65D)97答案:D解析:[单选题]3.如果设计时在属性窗口将命令按钮的()属性设置为False,则运行时按钮从窗体上消失.A)VisibleB)EnabledC)DisabledPictureD)Default答案:A解析:[单选题]4.下列不能打开属性窗口的操作是().A)执行"视图"菜单中的"属性窗口"命令B)按F4键C)按Ctrl+TD)单击工具栏上的"属性窗口"按钮答案:C解析:[单选题]5.语句DimAbc(5)所定义的数组元素个数是________。A)6B)5C)4D)10答案:A解析:[单选题]6.表达式"Turbo"+"c">"Ture"+"Basic"的值是().A)TrueB)FalseC)NullD)出错信息答案:B解析:[单选题]7.下列程序PrivateSubForm_Click()Forj=1To20a=a+jmod5NextjPrinta;jEndSub运行后,单击窗体输出的值为A)4021B)3421C)2134D)3420答案:A解析:[单选题]8.三种不同风格的组合框中,用户不能输入数据的组合框是()。A)下拉式组合框B)简单组合框C)下拉式列表框D)以上都不对答案:C解析:[单选题]9.下面程序运行时,内层循环的循环总次数是().Form=1To3Forn=0Tom-1NextnNextmA)4B)5C)6D)7答案:C解析:[单选题]10.下面所列中，（）是不合法的单精度常数A)100！B)100.0C)1E+2D)100.0D+2答案:D解析:[单选题]11.下列能将输入焦点置于名称为txtAdd文本框中的语句是______。()A)txtAdd=SetFocusB)txtAdd.SetFocusC)txtAdd.SetFocus=TrueD)SetFocus=True答案:B解析:[单选题]12.设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command1的命令按钮。Form1的代码如下:PublicxAsIntegerPrivateSubForm_Load()X=1Y=5EndSubPrivateSubCommand1_Click()Form2.ShowEndSubPrivateSubCommand1_Click()PrintForm1.x,yEndSubModule1的代码如下:PublicyAsInteger运行以上程序,单击Form1的命令按钮Command1,则显示Form2;再单击Form2上的命令按钮Command1,则窗体上显示的是()。A)15B)05C)00D)程序有错答案:A解析:[单选题]13.下列建立Sub过程不正确的语句是A)PrivateSubComp(arg1AsInteger,arg2AsString)B)PublicSubComp(arg1AsInteger,,Optionalarg3)C)StaticSubComp(arg1AsInteger,arg2AsString,Optionalarg3)D)ProtectedSubComp(arg1AsInteger)答案:D解析:[单选题]14.在窗体上建立通用对话框需要添加的控件是()A)Data控件B)Form控件C)CommonDialog控件D)VBComboBox控件答案:C解析:[单选题]15.写出如下程序运行结果().Functionf(mAsInteger)AsIntegerb=1StaticcAsIntegerb=b+1c=c+1f=m*b*cEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=2sum=0ForI=1To3sum=sum+f(a)NextIprintsumEndSubA)12B)16C)20D)24答案:D解析:[单选题]16.有如下程序.a$=""122345876""d$=Left$(a$,1)Fori=2ToLen(a$)z$=Mid$(a$,i,1)Ifz$>d$Thend$=z$NextiPrintd$运行后,输出的结果是().A)1B)7C)4D)8答案:D解析:[单选题]17.下面程序段的执行结果为().I=4A=5DoI=I+1A=A+2LoopUntilI>=7Print"I=";IPrint"A=";AA)I=4B)I=7C)I=8D)I=7答案:D解析:[单选题]18.下面()是日期型常量.A)"12/19/99"B)12/19/99C)<12/19/99<D){12/19/99}答案:C解析:[单选题]19.可视化编程的最大优点是().A)具有标准工具箱B)一个工程文件由若干个窗体文件组成C)不需要编写大量代码来描述图形对象D)所见即所得答案:C解析:[单选题]20.若使命令按钮无效，应设置其____属性为Flase。A)EnabledB)VisibleC)StyleD)Cancel答案:A解析:[单选题]21.对于语句ifx=1theny=1，下列说法正确的是()。A)x=1B)x=1C)x=1D)x=1答案:C解析:[单选题]22.下列可缩放图片的属性是().A)autosizeB)pictureC)stretchD)OleDrawMode答案:C解析:[单选题]23.以下属性和方法中（）可重定义坐标系A)DrawWidth属性B)ScaleMode属性C)DrawStyle属性D)Scale方法答案:D解析:[单选题]24.下列关于SelectCase的叙述中,错误的是()A)Case10To100表示判断Is是否介于10与100之间B)Case"abc","ABC"表示判断Is是否和"abc"、"ABC"两个字符中的一个相同C)Case"X"表示判断Is是否为大写字母XD)Case-7,0,100表示判断Is是否等于字符串"-7,0,100"答案:D解析:[单选题]25.下面四项中,______是VB中的数值变量.A)ABCB)E+2C)"True"D)0.0135答案:A解析:[单选题]26.VB工程文件的扩展名是()。A)frmB)vbpC)basD)frx答案:B解析:[单选题]27.假定有如下的sub过程:SubFun(xAsSingle,yAsSingle)t=x:x=t\y:y=tModyEndSub在窗体上画一个命令按钮和两个文本框(名称分别为Txt1和Txt2),然后编写如下事件过程PrivateSubCommand1_Click()DimaAsSingle,bAsSinglea=CInt(Txt1.Text):b=CInt(Txt2.Text)CallFun(a,b)Printa,bEndSub程序运行后在两个文本框中分别输入5和6,单击命令按钮后,输出结果为_____。A)56B)05C)14D)12答案:B解析:[单选题]28.下面关于顺序文件的描述正确的是().A)每条记录的长度必须相同B)可通过编程对文件中的某条记录方便地修改C)数据只能以ASCII码形式存放在文件中,所以可通过文本编辑软件显示D)文件的组织结构复杂答案:C解析:[单选题]29.有以下程序:OptionBase1Dimarr()AsIntegerPrivateSubForm_Click()DimiAsInteger,jAsIntegerReDimarr(3,2)Fori=1To3Forj=1To2arr(i,j)=i*10+jNextjNextiReDimPreservearr(3,4)Forj=3To4arr(3,j)=10*j+5NextjPrintarr(3,2);arr(3,4)EndSub程序运行后,单击窗体,输出结果为A)022B)3135C)3245D)00答案:C解析:[单选题]30.在代码中，定义了一个子过程：SubP(a,b)…EndSub下面调用该过程的格式正确的___________。A)P()B)P10,20,30C)P10D)P10,20答案:D解析:[单选题]31.启动VisualBasic后,就意味着要建立一个新的()A)窗体B)程序C)工程D)文件答案:C解析:[单选题]32.在窗体中添加一个命令按钮和一个文本框,并编写如下程序代码:PrivateSubCommand1_Click()Fora=1To5Y=1Forb=1To10ForC=1To6X=X+1Y=y+1NextCNextbNextaText.Text=yEndSub程序运行后,单击命令按钮,文本框中的值为0.A)(A)61B)(B)60C)(C)36D)(D)6答案:A解析:[单选题]33.以下不能在?工程资源管理器?窗口中列出的文件类型是()。A)baB)reC)frD)ocx答案:B解析:[单选题]34.在代码编辑窗口内将文本框Text1的Text属性设置为?水平考试?，正确的书写形式是____。A)Text1.Text="水平考试"B)Text1.Caption="水平考试"C)Caption=水平考试D)Text1.Caption("水平考试")答案:A解析:[单选题]35.Image图像框，用来设置自动调整与图片大小的自适应状态的属性是A)AppearanceB)AutoRedrawC)StretchD)AutoSize答案:C解析:[单选题]36.终止应用程序的正确方法是()A)卸载窗体,然后执行End语句B)卸载窗体C)执行End语句D)执行Stop语句答案:C解析:[单选题]37.在窗体上建立一个通用对话框,其名称为CommonDialog1,然后再添加一个命令按钮,并编写如下事件过程:PrivateSubCommand1_Click()CommonDialog1.Flags=cdlOFNHideReakOnlyCommonDialog1.Filter="AllFiles(*.*)**TextFiles"&?(*.txt)*.txtBatchFiles(*.bat)*.bat"CommonDialog1.FilterIndex=2CommonDialog1.ShowOpenMsgBoxCommonDialog1.FileNameEndsub程序运行后,单击命令按钮,将显示一个"打开"对话框,此时在?文件类型?框中显示的是0.A)AllFiles(**)B)TextFiles(*.txt)C)BatchFiles(*.bat)D)不确定答案:B解析:[单选题]38.执行语句a=MsgBox()后，所产生的信息框的标题是___。A)BBBBB)空C)AAAAD)出错，不能产生信息框答案:A解析:[单选题]39.窗体上有一个由两个文本框组成的控件数组,名称为Text1,并有如下事件过程:PrivateSubText1_Change(IndexAsInteger)SelectCaseIndexCase0Text1(1).FontSize=Text1(0).FontSize*2Text1(1).Text=Text1(0).TextCase1Text1(0).FontSize=Text1(1).FontSize/2Text1(0).Text=Text1(1).TextCaseElseMsgBox"执行Else分支"EndSelectEndSub关于上述程序,以下叙述中错误的是()。A)Index用于标识数组元素B)本程序中CaseElse分支的语句永远不会被执行C)向任何一个文本框输入字符,都会在另一个文本框中显示该字符D)下标为0的文本框中显示的字符尺寸将越来越小答案:B解析:[单选题]40.数组Arr(2To5,-2To5)中第三行第三个元素是()A)Arr(3,3)B)Arr(5,1)C)Arr(4,0)D)Arr(3,2)答案:C解析:[单选题]41.为了在按下Esc键时执行某个命令按钮的Click事件过程,需要把该命令按钮的一个属性设置为True,这个属性是().A)ValueB)DefaultC)CancelD)Enabled答案:C解析:[单选题]42.使用()方法,可将选中项移出列表框。A)ClearB)RemoveItemC)PrintD)AddItem答案:B解析:[单选题]43.有如下程序:a=1:b=2:c=3a=a+b:b=b+c:c=b+aIfa<>3Orb<>3Thena=b-a:b=C-a:C=b+aEndIfPrinta+b+c运行后,输出的结果是().A)16B)3C)6D)8答案:A解析:[单选题]44.执行以下程序段:A$="VisualBasicProgramming"B$="C++"C$=UCase(Left$(a$,7))&b$&Right$(a$,12)变量c$的值为()。A)VisualBASICProgrammingB)VISUALC++ProgrammingC)VisualC++ProgrammingD)VISUALBASICProgramming答案:B解析:[单选题]45.一个变量要保存-32786，不应定义成______型变量A)IntegerB)LongC)SingleD)Double答案:A解析:[单选题]46.表达式Int()/100的值是___。A)19B)19.05C)18.55D)18.5答案:C解析:[单选题]47.下列变量命名正确的是().A)LenB)Test@qwC)6cost_1D)count2s答案:D解析:[单选题]48.为保存一个工程至少应保存两个文件,这两个文件分别是()。A)文本文件和工程文件B)窗体文件和工程文件C)窗体文件和标准模块文件D)类模块文件和工程文件答案:B解析:[单选题]49.单击一次命令按钮,下列程序代码的执行结果为().PrivaeSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegera=2:b=3:c=4PrintP2(c,b,a)EndSubPrivateFunctionP1(xAsInteger,yAsInteger)P1=2*x+y+3*zEndFunctionPrivateFunctionP2(xAsInteger,yAsInteger,zAsInteger)P2=P1(x,y)+xEndFunctionA)15B)19C)17D)34答案:A解析:[单选题]50.在代码中定义了一个子过程：SubP(a,b)…EndSub下面调用该过程的正确格式为___________。A)CALLP(10,20,30)B)CallP()C)CALLP(10,20)D)CallP(10)答案:C解析:[单选题]51.设有语句x=InputBox(?AAAA?，?BBBB?，??),程序运行后，所产生的对话框的标题应为()。A)AAAAB)空C)BBBBD)出错，不能产生对话框答案:C解析:[单选题]52.假定有如下的Sub过程：SubS(xAsSingle,yAsSingle)t=xx=t/yy=tModyEndSub在窗体上添加一个命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimaAsSingleDimbAsSinglea=5:b=4Sa,bPrinta,bEndSub程序运行时，单击命令按钮得到的结果()。A)5B)1C)1.25D)1.25答案:D解析:[单选题]53.Check1为复选框，Command1为命令按钮框，Text1为文本框，Option1为框，则以下赋值语句错误的是_____。A)Command1.Caption="Exit"B)Check1.Caption="grayed"C)Option1.Value="grayed"D)Text1.Text="我的文档"答案:C解析:[单选题]54.当输入4时,以下程序的输出结果是().PrivateSubCommand1_Click()x=InputBox(x)Ifx^2<15Theny=1/xIfx^2>15Theny=x^2+1PrintyEndSubA)4B)17C)18D)25答案:B解析:[单选题]55.文本框(Text1)中有选定的文本,执行Text1.SelText="Hello"的结果是___.A)"Hello"将替换掉原来选定的文本B)"Hello"将插入到原来选定的文本之前C)Text1.SelLength为5D)文本框中只有"Hello"答案:A解析:[单选题]56.去掉字符串左边空格的函数是()。A)Ltrim$B)Rtrim$C)Left$D)Right$答案:A解析:[单选题]57.数组声明语句Dima(0to3,-2to2,0to5)中，数组a包含元素的个数为()。A)120B)75C)60D)13答案:A解析:[单选题]58.文件号最大可取的值为A)255B)511C)512D)256答案:B解析:[单选题]59.语句Print6*6\6/2的输出结果是()。A)3B)12C)0D)1答案:B解析:[单选题]60.为了在按下回车键时执行某个命令按钮的事件过程需要把该命令按钮的一个属性设置为True,这个属性是_____.A)ValueB)CancelC)EnabledD)Default答案:D解析:[单选题]61.在窗体上建立一个标签数组,名称为Label1,下标从0开始,自左至右顺序增大,然后编写如下事件过程:()PrivateSubForm_Click()ForEachLabelInLabel1Label1(i).Caption=Label1(i).IndexI=i+1NextEndSub运行程序,单击窗体,在4个标签(从左至右)中显示的内容分别为______。A)0123B)1234C)3210D)出错答案:A解析:[单选题]62.设a="a",b="b",c="c",d="d",执行语句x=IIf((aA)"A"B)"B"C)BD)A答案:D解析:[单选题]63.要清除Picture1中的图片，可用____语句。A)Picture1.Picture=LoadPicture()B)Picturel.Picture=""C)Picture1.Picture=LoadPicture("")D)ClsPicturel.Picture答案:C解析:[单选题]64.在用通用对话框控件建立?打开?或?保存?文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件)，则正确的描述格式是()。A)?textB)?文本文件(C)?text(.txt)||(*.txt)?D)?text(.txt)(*.txt)?答案:A解析:[单选题]65.有一数组定义语句如下,则数组中共包含有()个元素。DimA(99,99)AsIntegerA)99B)9999C)9000D)10000答案:D解析:[单选题]66.要在窗体Form1内显示字符串"MyForm"，可以使用的语句是________。A)Form1.Caption="MyForm"B)Form1.Print"MyForm"C)Form.Caption="MyForm"D)Form.Print"MyForm"答案:B解析:[单选题]67.能改变当前磁盘驱动器的是下列的哪个命令()?A)ChDirB)ChDriveC)CloseD)CurDir$答案:B解析:[单选题]68.执行以下程序段后,变量c的值为()a="VisualBasicPrograming":b="Quick"c=b&LCase(Mid(a,7,6))&Right(a,11)A)VisualbasicProgramingB)QuickbasicProgramingC)QUICKbasicProgramingD)QuickBasicPrograming答案:B解析:[单选题]69.要获得计算机当前屏幕的分辨率,可以使用()系统对象A)MouseB)AppC)PrinterD)Screen答案:D解析:[单选题]70.编写如下事件过程:PrivateSubform_Click()Fori=1To4t=t*10+iS=S+tNextiPrintSEndSub程序运行后,单击窗体,则窗体上显示的内容是().A)1234B)4321C)1370D)4444答案:C解析:[单选题]71.下面4项中合法的字符常数是().A)ABC$B)"ABC"C)'ABC'D)ABC答案:B解析:[单选题]72.VisualBasic集成环境的大部分窗口都可以从主菜单项()的下拉菜单中找到相应的打开命令.A)编辑B)视图C)格式D)调试答案:B解析:[单选题]73.PrintFormat(32548.5,"####,##.##")______.A)#325,48.5#B)325,48.5C)032,548.50D)32,548.5答案:D解析:[单选题]74.骰子是一个正六面体,分别用1~6代表这六个面,掷一次骰子出现的数可表示为().A)int(rnd*6+1)B)int(rnd*6)C)int(rnd*7)D)int(rnd(6)+1)答案:A解析:[单选题]75.使用Dima()AsInteger语句声明数组后,能够正确引用数组元素的是____。A)a(-1,5)B)a(1)C)a[-1，2]D)a(0,6)答案:A解析:[单选题]76.Print#1,STR1$中的Print是______.A)顺序文件的写语句B)在窗体上显示的方法C)子程序名D)打印命令答案:A解析:[单选题]77.不能通过()来删除列表框中的选项.A)List属性B)Removeltem方法C)Clear方法D)Test属性答案:D解析:[单选题]78.下面属性用于显示对象的标题()A)TextB)CaptionC)Name(名称)D)ForeColor答案:B解析:[单选题]79.当组合框的Style属性设置为0时,其表现形式是。()A)下拉列表框B)下拉组合框C)简单组合框D)文本框答案:B解析:[单选题]80.以下选项中,不属于标签的属性是()A)EnabledB)CaptionC)MaxLengthD)WordWrap答案:C解析:[单选题]81.在窗体中添加一个列表框(ListBox1)和一个命令按钮,并编写如下代码:PrivateSubCommand1_Click()DimEntry,I,MsgMsg="ChooseOKtoaddl00itemstoyourlistbox."MsgBoxMsgForI=1To100Entry="Entry"&IList1.AddltemEntryNextIEndSub程序完成的功能是().A)本示例使用Addltem方法增加100项给一个列表框B)本示例使用Addltem方法向一个列表框中添加的内容是1~100的罗列C)本示例使用Addltem方法向一个列表框中添加的内容是1~100的和D)本示例使用Addltem方法增加101项给一个列表框答案:A解析:[单选题]82.有如下程序:PrivateSubCommand1_Click()a$="AWORKERISOVERTHERE"x=Len(a$)Fori=1ToX-1b$=Mid$(a$,i,2)Ifb$="ER"Thens=s+1NextiPrintsEndSub程序运行后的输出结果是().A)1B)2