模拟题一

模拟题一一、填空题（120＝20）1.VisualBasic6.0的主要功能特点是具有面向对象的设计工具，非常适合于面向对象的编程方式。2.VisualBasic6.0的控件分为3类，即：。3.＂name＂为常数；Ｆalse为常数；＂11/16/99＂为常量；12.345为常量。4.滚动条响应的重要事件有和。5.VisualBasic中有一种控件组合了文本框和列表框的特性，这种控件是___6.一个数据库由一个或多个表组成，表的每一行就是一个，表中的每一列称作一个。7.在菜单编辑器中建立了一个菜单，名为pmenu，用下面的语句可以把它作为弹出式菜单弹出，请填空。Form1.Pmenu8.在改变默认的驱动器，可以通过设置驱动器控件的______属性；文件夹列表控件的当前路径被___属性所记录；文件列表控件中被选中的文件被____属性所记录。9.计时器控件能有规律的以一定时间间隔触发___事件，并执行该事件过程中的程序代码。10.以下语句的输出结果是S$=＂China＂S$=＂Beijing＂PrintS$11.显示窗体所使用的方法为_______；隐藏窗体但并不从内存中将其删除所使用的方法是_______；隐藏窗体并从内存中将其删除所使用的方法是_______。二、选择题（225=50）1.设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是：BA)text1.maxlength=0B)text1.enabled=flaseC)text1.visible=flaseD)text1.width=02.以下能在窗体Form1的标题栏中显示“VisualBasic窗体的语句是CA)Form1.Name=VisualBasic窗体B)Form1.Title=VisualBasic窗体C)Form1.Caption=VisualBasic窗体D)Form1.Text=VisualBasic窗体”3.在窗体上画一个名称为Text1的文本框，然后画一个名称为HScroll1的滚动条，其Min和Max属性分别为0和100。程序运行后，如果移动滚动框，则在文本框中显示滚动条的当前值，如图所示：以下能实现上述操作的程序段是AA)PrivateSubHScroll_Change()Text1.Text=HScroll1.ValueEndSubB)PrivateSubHScroll_Click()Text1.Text=HScroll1.ValueEndSubC)PrivateSubHScroll_Change()Text1.Text=HScroll.CaptionD)PrivateSubHScroll_Click()Text1.Text=HScroll.CaptionEndSub4.设菜单中有一个菜单项为Open。若要为该菜单命令设计访问键，即按下Alt及字母O时，能够执行Open命令，则在菜单编辑器中设置“Open命令的方式是AA)把Caption属性设置为&OpenB)把Caption属性设置为O&penC)把Name属性设置为&OpenD)把Name属性设置为O&pen5.(5)在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()x=InputBox(Input)SelectCasexCase1,3Print分支1CaseIs4Print分支2CaseElsePrintElse分支EndSelectEndSub程序运行后，如果在输入对话框中输入2，则窗体上显示的是CA）分支1B）分支2C）Else分支D)程序出错6.以下关于MsgBox的叙述中，错误的是DA）MsgBox函数返回一个整数B)通过MsgBox函数可以设置信息框中图标和按钮的类型C)MsgBox语句没有返回值D)MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量7.在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是DA）Timer1.InterVal=0.5B)Timer1.Interval=5C)Timer.Interval=50D)Timer1.Interval=5008.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()StaticxAsIntegerClsFori=1To2y=y+xx=x+2NextPrintx,yEndSub程序运行后，连续三次单击Command1按钮后，窗体上显示的是BA)42B)1218C)1230D)469.以下关于多重窗体程序的叙述中，错误的是AA)用Hide方法不但可以隐藏窗体，而且能清除内存中的窗体B）在多重窗体程序中，各窗体的菜单是彼此独立的C）在多重窗体程序中，可以根据需要指定启动窗体D）对于多重窗体程序中，而且单独保存每个窗体10.以下叙述中错误的是DA）事件过程是响应特定事件的一段程序B）不同的对象可以具有相同名称的方法C）对象的方法是执行指定操作的过程D）对象事件的名称可以由编程者指定11.以下合法的VisualBasic标识符是AA)ForLoopB)ConstC)9abcD)a#x12.当一个复选框被选中时，它的Value属性的值是CA)3B)2C)1D)013.表达式5Mod3+3\5*2的值是BA)0B)2C)4D)614.设x=4,y=8,z=7，以下表达式的值是DxyAnd(Notyz)OrzxA)1B)-1C)TrueD)False15.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()a$=VisualBasicPrintString(3,a$)EndSub程序运行后，单击命令按钮，在窗体上显示的内容是AA）VVVB)VisC)sicD)1116.设有如下程序段：Bx=2Fori=1To10Step2x=x+iNext运行以上程序后，x的值是A)26B)27C)38D)5717.以下叙述中错误的是BA)在KeyPress事件过程中不能识别键盘的按下与释放B)在KeyPress事件过程中不能识别回车键C)在KeyDown和KeyUp事件过程中，将键盘输入的A和a视作相同的字母D)在KeyDown和KeyUp事件过程中，从大键盘上输入的1和从右侧小键盘上输入的1被视作不同的字符18.执行如下两条语句，窗体上显示的是Da=9.8596PrintFormat(a,$00,00.00)A)0,009.86B)$9.86C)9.86D)$0,009.8619.在窗体上画一个名称为CommandDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：PrivateSubCommand1_Click()CommonDialog1.FileName=CommonDialog1.Filter=Allfile|*.*|(*.Doc)|*.Doc|(*.Txt)|*.TxtCommonDialog1.FilterIndex=2CommonDialog1.DialogTitle=VBTestCommonDialog1.Action=1EndSub对于这个程序，以下叙述中错误的是DA）该对话框被设置为“打开”对话框B）在该对话框中指定的默认文件名为空C）该对话框的标题为VBTestD）在该对话框中指定的默认文件类型为文本文件(*.Txt)20.设一个工程由两个窗体组成，其名称分别为Form1和Form2，在Form1上有一个名称为Command1的命令按钮。窗体Form1的程序代码如下：PrivateSubCommand1_Click()DimaAsIntegera=10Callg(Form2,a)EndSubPrivateSubg(fAsForm,xAsInteger)y=IIf(x10,100,-100)f,Showf.Caption=yEndSub运行以上程序，正确的结果是BA)Form1的Caption属性值为100B)Form2的Caption属性值为-100C)Form1的Caption属性值为-100D)Form2的Caption属性值为10021.在窗体上画一个名称为Command1的命令按钮，并编写如下程序：PrivateSubCommand1_Click()DimxAsIntegerStaticyAsIntegerx=10y=5Callf1(x,y)Printx,yEndSubPrivateSubf1(ByRefx1AsInteger,y1AsInteger)x1=x1+2y1=y1+2EndSub程序运行后，单击命令按钮，在窗体上显示的内容是DA)105B)125C)107D)12722.设有如下程序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以下叙述中错误的是CA）数组b中的偶数被保存在数组c中B）程序运行结束后，在窗体上显示的是c数组中元素的个数C）GetArray过程的参数n是按值传送的D）如果输入的数据大于10，则窗体上不显示任何显示23.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4,5)Fori=1ToUBound(a)a(i)=a(i)+i-1NextPrinta(3)EndSub程序运行后，单击命令按钮，则在窗体上显示的内容是A)4B)5C)6D)724.阅读程序OptionBase1PrivateSubForm_Click()Dimarr,SumSum=0arr=Array(1,3,5,7,9,11,13,15,17,19)Fori=0To9Ifarr(i)/3=arr(i)\3ThenSum=Sum+arr(i)EndIfNextiPrintSumEndSub程序运行后，单击窗体，输入结果为CA）13B）14C）27D）1525.在窗体上画一个名称为File1的文件列表框，并编写如下程序：PrivateSubFile1_DblClick()x=Shell(File1.FileName,1)EndSub以下关于该程序的叙述中，错误的是AA)x没有实际作用，因此可以将该语句写为：CallShell(File1,FileName,1)B)双击文件列表框中的文件，将触发该事件过程C)要执行的文件的名字通过File1.FileName指定D）File1中显示的是当前驱动器、当前目录下的文件26.在窗体上画一个名称为Label1、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timer1的计时器控件，并把其Interval属性设置为500,如图所示。编写如下程序：PrivateSubForm_Load()Timer1.Enabled=FalseEndSubPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubTimer1_Timer()IfLabel1.LeftWidthThenLabel1.Left=Label1.