模拟题一(答案)

模拟题一（答案）一、填空题（120＝20）1.VisualBasic6.0的主要功能特点是具有面向对象的可视化的基于事件驱动设计工具，非常适合于面向对象的编程方式。2.VisualBasic6.0的控件分为3类，即：常用控件、ActiveX控件、可插入对象控件。3.＂name＂为字符串常数；Ｆalse为布尔型常数；＂11/16/99＂为字符串常量；12.345为浮点数常量。4.滚动条响应的重要事件有Change和Scroll。5.VisualBasic中有一种控件组合了文本框和列表框的特性，这种控件是_组合框__6.一个数据库由一个或多个表组成，表的每一行就是一个记录，表中的每一列称作一个字段。7.在菜单编辑器中建立了一个菜单，名为pmenu，用下面的语句可以把它作为弹出式菜单弹出，请填空。Form1.PopupMenuPmenu8.在改变默认的驱动器，可以通过设置驱动器控件的__Drive____属性；文件夹列表控件的当前路径被__Path_属性所记录；文件列表控件中被选中的文件被__FileName__属性所记录。9.计时器控件能有规律的以一定时间间隔触发_Timer__事件，并执行该事件过程中的程序代码。10.以下语句的输出结果是BeijingS$=＂China＂S$=＂Beijing＂PrintS$11.显示窗体所使用的方法为__show_____；隐藏窗体但并不从内存中将其删除所使用的方法是___Hide____；隐藏窗体并从内存中将其删除所使用的方法是__UnLoad_____。二、选择题（225=50）1.设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是：(B)A)text1.maxlength=0B)text1.enabled=flaseC)text1.visible=flaseD)text1.width=02.以下能在窗体Form1的标题栏中显示“VisualBasic窗体的语句是(C)A)Form1.Name=VisualBasic窗体B)Form1.Title=VisualBasic窗体C)Form1.Caption=VisualBasic窗体D)Form1.Text=VisualBasic窗体”3.在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，以下能实现上述操作的程序段是(A)A)PrivateSubHScroll_Change()Text1.Text=HScroll1.ValueEndSubB)PrivateSubHScroll_Click()Text1.Text=HScroll1.ValueEndSubC)PrivateSubHScroll_Change()Text1.Text=HScroll.CaptionEndSubD)PrivateSubHScroll_Click()Text1.Text=HScroll.CaptionEndSub4.设菜单中有一个菜单项为Open。若要为该菜单命令设计访问键，即按下Alt及字母O时，能够执行Open命令，则在菜单编辑器中设置“Open命令的方式是(A)A)把Caption属性设置为&OpenB)把Caption属性设置为O&penC)把Name属性设置为&OpenD)把Name属性设置为O&pen5.(5)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()x=InputBox(Input)SelectCasexCase1,3Print分支1CaseIs4Print分支2CaseElsePrintElse分支EndSelectEndSub程序运行后，如果在输入对话框中输入2，则窗体上显示的是(C)A）分支1B）分支2C）Else分支D)程序出错以下关于MsgBox的叙述中，错误的是(D)A）MsgBox函数返回一个整数B)通过MsgBox函数可以设置信息框中图标和按钮的类型C)MsgBox语句没有返回值D)MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量6.在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是(D)A）Timer1.InterVal=0.5B)Timer1.Interval=5C)Timer.Interval=50D)Timer1.Interval=5007.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()StaticxAsIntegerClsFori=1To2y=y+xx=x+2NextPrintx,yEndSub程序运行后，连续三次单击Command1按钮后，窗体上显示的是(B)A)42B)1218C)1230D)468.以下关于多重窗体程序的叙述中，错误的是(A)A)用Hide方法不但可以隐藏窗体，而且能清除内存中的窗体B）在多重窗体程序中，各窗体的菜单是彼此独立的C）在多重窗体程序中，可以根据需要指定启动窗体D）对于多重窗体程序中，而且单独保存每个窗体9.以下叙述中错误的是(D)A）事件过程是响应特定事件的一段程序B）不同的对象可以具有相同名称的方法C）对象的方法是执行指定操作的过程D）对象事件的名称可以由编程者指定10.以下合法的VisualBasic标识符是(A)A)ForLoopB)ConstC)9abcD)a#x11.当一个复选框被选中时，它的Value属性的值是(C)A)3B)2C)1D)012.表达式5Mod3+3\5*2的值是(B)A)0B)2C)4D)613.设x=4,y=8,z=7，以下表达式的值是(D)xyAnd(Notyz)OrzxA)1B)-1C)TrueD)False14.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()a$=VisualBasicPrintString(3,a$)EndSub程序运行后，单击命令按钮，在窗体上显示的内容是(A)A）VVVB)VisC)sicD)1115.设有如下程序段：(B)x=2Fori=1To10Step2x=x+iNext运行以上程序后，x的值是A)26B)27C)38D)5716.以下叙述中错误的是(B)A)在KeyPress事件过程中不能识别键盘的按下与释放B)在KeyPress事件过程中不能识别回车键C)在KeyDown和KeyUp事件过程中，将键盘输入的A和a视作相同的字母D)在KeyDown和KeyUp事件过程中，从大键盘上输入的1和从右侧小键盘上输入的1被视作不同的字符17.执行如下两条语句，窗体上显示的是(D)a=9.8596PrintFormat(a,$00,00.00)A)0,009.86B)$9.86C)9.86D)$0,009.8618.在窗体上画一个名称为CommandDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：PrivateSubCommand1_Click()CommonDialog1.FileName=CommonDialog1.Filter=Allfile|*.*|(*.Doc)|*.Doc|(*.Txt)|*.TxtCommonDialog1.FilterIndex=2CommonDialog1.DialogTitle=VBTestCommonDialog1.Action=1EndSub对于这个程序，以下叙述中错误的是(D)A）该对话框被设置为“打开”对话框B）在该对话框中指定的默认文件名为空C）该对话框的标题为VBTestD）在该对话框中指定的默认文件类型为文本文件(*.Txt)19.设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下：PrivateSubCommand1_Click()DimaAsIntegera=10Callg(Form2,a)EndSubPrivateSubg(fAsForm,xAsInteger)y=IIf(x10,100,-100)f,Showf.Caption=yEndSub运行以上程序，正确的结果是(B)A)Form1的Caption属性值为100B)Form2的Caption属性值为-100C)Form1的Caption属性值为-100D)Form2的Caption属性值为10020.设有如下程序OptionBase1PrivateSubCommand1_Click()Dima(10)AsIntegerDimnAsIntegern=InputBox(输入数据)Ifn10ThenCallGetArray(a,n)EndIfEndSubPrivateSubGetArray(b()AsInteger,nAsInteger)Dimc(10)AsIntegerj=0Fori=1Tonb(i)=CInt(Rnd()*100)Ifb(i)/2=b(i)\2Thenj=j+1c(j)=b(i)EndIfNextPrintjEndSub以下叙述中错误的是(C)A）数组b中的偶数被保存在数组c中B）程序运行结束后，在窗体上显示的是c数组中元素的个数C）GetArray过程的参数n是按值传送的D）如果输入的数据大于10，则窗体上不显示任何显示21.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4,5)Fori=1ToUBound(a)a(i)=a(i)+i-1NextPrinta(3)EndSub程序运行后，单击命令按钮，则在窗体上显示的内容是(B)A)4B)5C)6D)722.阅读程序OptionBase1PrivateSubForm_Click()Dimarr,SumSum=0arr=Array(1,3,5,7,9,11,13,15,17,19)Fori=1To10Ifarr(i)/3=arr(i)\3ThenSum=Sum+arr(i)EndIfNextiPrintSumEndSub程序运行后，单击窗体，输入结果为(C)A）13B）14C）27D）1523.执行以下程序段a$=abbacddcbaFori=6To2Step-2X=Mid(a,i,i)Y=Left(a,i)z=Right(a,i)z=UCase(X&Y&z)NextiPrintz输出结果为(B)A)ABAB）BBABBAC)ABBABAD)AABAAB24.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：(D)OptionBase1PrivateSubCommand1_Click()DimaAsVarianta=Array(1,2,3,4,5)Sum=0Fori=1To5Sum=sum+a(i)Nextix=Sum/5Fori=1To5Ifa(i)xThenPrinta(i);NextiEndSub程序运行后，单击命令按钮，在窗体上显示的内容是A）12B123C)345D）45三、程序填空题（215＝30）1.设有如下程序段：a$=BeijingShanghaib$=Mid(a$,InStr(a$,g)+1)执行上面的程序段后，变量b$的值为_____Shanghai_____。2.在窗体上画一个名称为Command1的命令按钮，并编写如下程序：PrivateSubCommand1_Click()DimxAsIntegerStaticyAsIntegerx=10y=5Callf1(x,y)Printx,yEndSubPrivateSubf1