模拟试题二答案_10519

模拟试题二答案一、填空题（0.540＝20）1.VisualBasic6.0中应用可视化的面向对象的程序设计方法，采用事件驱动的编程机制。2.VisualBasic6.0的主要功能特点是具有面向对象的可视化的基于事件驱动设计工具，非常适合于面向对象的编程方式。3.当进如VisualBasic集体环境，发现没有显示“工具箱”窗口，应选择视图菜单的选项,使“工具箱”窗口显示。4.对象的方法是指对对象可以进行地操作。5.VisualBasic6.0中文版的菜单栏共有13个菜单项。6.VisualBasic6.0的控件分为3类，即：常用控件、ActiveX控件、可插入对象控件。7.十进制整型数的表示范围为-32768～＋32767。8.根据所给条件，引出逻辑表达式：（1）闰年的条件是：年号(year)能被4整除,但不能被100整除；或者能被400整除。逻辑表达式为：NOT(YearMOD4)AND(YearMOD100)ORNOT(YearMOD400)（2）一元二次方程有实根的条件为：a不等于0且b2-4ac=0逻辑表达式为：a0ANDb^2-4*a*c=09.＂name＂为字符串常数；Ｆalse为布尔型常数；＂11/16/99＂为字符串常量；12.345为浮点数常量。10.以下语句的输出结果是BeijingS$=＂China＂S$=＂Beijing＂PrintS$11..列表框中项目的序号是从0开始的，ListCount-1表示列表框中最后一项的序号。12.滚动条响应的重要事件有Change和Scroll。13.控件数组的名字由Name属性指定，而数组中的每个元素由Index属性指定。14.visualBasic中有一种控件组合了文本框和列表框的特性，这种控件是_组合框__15.计时器控件能有规律的以一定时间间隔触发_Timer__事件，并执行该事件过程中的程序代码。16.为了在运行时把图形文件Pf.jpg装入图片框Picture1，所使用的语句为_Pictuer1.Pictuer=LoadPictuer(Pf.jpg)___________。17.在菜单编辑器中建立了一个菜单，名为pmenu，用下面的语句可以把它作为弹出式菜单弹出，请填空。Form1.PopupMenuPmenu18.制作菜单的分隔栏时，选用的符号是___-____。19.VisualBasic提供的对数据文件的三种访问方式为随机访问方式_顺序访问方式__和二进制访问方式。20.一个数据库由一个或多个表组成，表的每一行就是一个记录，表中的每一列称作一个字段。21.Data控件是VisualBasic6.0和数据库之间的桥梁，而数据绑定控件则把Data控件和用户界面联系起来，两者构成了VisualBasic6.0开发数据库的主体。22.显示窗体所使用的方法为__show_____；隐藏窗体但并不从内存中将其删除所使用的方法是___Hide____；隐藏窗体并从内存中将其删除所使用的方法是__UnLoad_____。23.在改变默认的驱动器，可以通过设置驱动器控件的__Drive____属性；文件夹列表控件的当前路径被__Path_属性所记录；文件列表控件中被选中的文件被__FileName__属性所记录。二、选择题（219=38）1.可以用来在启动程序时对属性和变量进行初始化的事件(D)AClickBUnloadCActivateDLoad2.当窗体上有多个控件时，最多只有(A)个控件是活动的。A1B2C3D多3.当对被选择的控件进行对齐、调整大小等操作时，将以(C)为准。A所有控件B某些控件C基准控件D以上说法均不对4.VisualBasic中的语句通常按“一行一句，一句一行”的规则书写，但也允许多个语句放在同一行中。在这种情况下，用来隔开各语句的符号是(A)A冒号B分号C逗号D感叹号5.一般来说，在用VisualBasic开发应用程序时，其通常的步骤为(A)A①设置可视界面②编写代码③程序测试、运行B①建立可视用户界面②设置可视界面特性③编写事件驱动代码C①编写事件驱动代码②程序测试③程序运行和维护D以上步骤均不对6.下面4个选项中属于字符型数据的是(A)A“Hello”B`Hello`CHelloD#Hello7.双精度浮点数存储时占的字节数是(B)A4B8C16D328.下面为正确的整型常量的是(C)A&624B0347C&0127D&01289.把小写字母转换为大写字母的函数是(B)ALcase$BUcase$CInstrDLen10.“x是小于100的非负数”，用VisualBasic表达式表示正确的是(C)A0=x100B0=x100C0=xAndx100D0=xOrX10011.假定Picture1和Text1分别为图片框和文本框的名称，下列语句不正确的是(C)APrint100BPicture1.Print100CText1.Print100DDebug.Print10012.表达式4+5\6*7/8Mod9的值是(B)A4B5C6D713.在窗体上画一个命令按钮,然后编写如下事件过程：(D)PrivateSubCommand1_Click()a=InputBox(＂EntertheFirstInteger＂)b=InputBox(＂EntertheSecondinteger＂)Printb+aEndSub程序运行后,单击命令按钮,先后在两个输入对话框中分别输入456和123,则输出结果是A579B123C456D12345614.若要使标签控件显示时不覆盖其背景内容，要对其设置的属性是（D）ABackColorBBorderStyleCForeColorD.BackStyle15.下面程序x$=＂a＂y$=＂b＂z$=＂c＂ForI=1to2X$=y$：y$=z$：z$=x$NextIPrintx$+y$+z$运行后的输出结果是（D）AcabBbcaCbcbDcbc16.下面程序段ForI=1To3Step1PrintSpc(5-I);Forj=1To2*I-1Print＂*＂;Nextj;PrintNextI运行结果为（B）A*****B*************C*D********************17.设有语句openc：Test．DatForOutPutAs#1则以下错误的叙述是（A）A)该语句打开C盘根目录下一个己存在的文件Test．DatB)该语句在C盘根目录下建立一个名为Test．Dat的文件C)该语句建立的文件的文件号为1D)执行该语句后，就可以通过Print#语句向文件Test．Dat中写入信息18.表的每一行就是一个（A）；表中的每一列称作一个（），描述了它所含有的数据。A.记录字段B.索引字段C.字段记录D.记录索引19.Data控件的很多方法，当我们在运行时修改了Record-Source属性后，需要调用（A）方法刷新记录集。A.Refresh方法B.UpdateRecord方法C.UpdateControls方法D.Cancelupdate方法三、程序填空题（218＝34）1．下面的程序段是检查输入的文字段中大括号是否配对，并显示相应的结果．本程序在文本框中边输入边统计大括号的个数，以+输入回车作为结束标志，然后显示结果．请将程序补充完整．DimCount1%PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=＂{＂ThenCount1=Count1+1ElseIfKeyAscii=＂}＂ThenCount1=Count1+1IfKeyAscii=13ThenIfCount1=0ThenPrint＂左右大括号配对＂ElseIfCount10ThenPrint＂左大括号数多＂；Count1；＂个＂ElsePrint＂右大括号数多＂；-Count1；＂个＂EndIfEndIfEndSub2．阅读程序：PrivateSubForm_Click()num=0Dowhilenum=2num=num+1PrintnumLoopEndSub程序运行后，单击窗体，输出结果是123。3．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：PrivateSubCommand1_Click()Dimn()AsIntegerDima,bAsIntegera=InputBox(＂Enterthefirstnumber＂)b=InputBox(＂Enterthesecondnumber＂)ReDimn(aTob)Fork=Lbound(n,1)ToUbound(n,1)n(k)=kPrint＂n(＂＂;k;＂)=＂;n(k)NextkEndSub程序运行后，单击命令按钮，在输入对话框中分别输入２和３，输出结果为n(2)=2n(3)=3。4．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：PrivateSubCommand1_click()Dima(5)ForI=0To4A(i)=I+1T=I+1Ift=3ThenPrinta(i);A(t-1)=a(I-2)ElseA(t)=a(i)EndIfIfI=3Thena(I+1)=a(t-4)A(4)=1Printa(i);NextIEndSub程序运行后，单击命令按钮，输出结果为123141。5．在窗体中添加一个名称为Text1的文本框，两个名称分别为Command1和Command2的命令按钮。要求程序运行后，用户向文本框中输入字母，单击Command1按钮则文本框中字母全部转换为大写；然后单击Command2按钮则文本框中字母全部转换为小写。请将下列程序补充完整。PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)__Text1.Tag_________=Text1.TextEndSubPrivateSubCommand1_Click()Text1.Text=___UCase(Text1.Tag)__EndSubPrivateSubCommand2__Click____Text1.Text=LCase(Text1.Tag)EndSub6．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：PrivateSubCommand1_click()Dimm(10)AsIntegerFork=1To10M(k)=12-kNextkX=6Printm(2+m(x))EndSub程序运行后，单击命令按钮，输出结果为4。7．下面程序运行后，输出的结果为___0_____PrivateSubCommand1_Click()A$=”Beijing”B$=”dalian”C$=”shanghai”C$=Instr(LeftA$,2)+Right$(B$,2),C$)PrintC$EndSub8．在窗体上画两个标签，其名称分别为Label1和Label2,Caption属性分别为“数值”及空白；然后画一个名称为Hscoll1的水平滚动条，其Min的值为0，Max的值为100。程序运行后，如果单击滚动条两端的箭头，则在标签Lable2中显示滚动条的值，如图所示。请填入适当的内容，将程序补充完整。PrivateSubHScroll1_Change()Labl2.Caption=HScroll1.ValueEndSub9．在窗体上画一个名称为Command1、标题为“计算”的命令按钮；画两个文本框，名称分别为Text1和Text2；然后画4个标签，名称分别为Label1、Label2、Label3和Label4，标题分别为“操作数1”、“操作数2”、“运算结果”和空白；再建立一个含有4个单选按纽的控件数组，名称为Option1，标题分别为“+”、“-”、“*”和“/”。程序运行后，在Text1、Text2中输入两个数值，选中一个单选按钮后单击命令按钮，相应的计算结果显示在Lab