《VB程序设计》模拟考试试题2

第1页（共7页）《VB程序设计》模拟考试试题2一、填空题（每空1分，共18分）1.VisualBasic6.0是面向的程序设计方法，采用驱动的编程机制。2.当进如VisualBasic集体环境，发现没有显示“工具箱”窗口，应选择菜单的选项,使“工具箱”窗口显示。3.十进制整型数的表示范围为。4.根据所给条件，引出逻辑表达式：（1）闰年的条件是：年号(year)能被4整除,但不能被100整除；或者能被400整除。逻辑表达式为：（2）一元二次方程有实根的条件为：a不等于0且b2-4ac=0逻辑表达式为：5..列表框中项目的序号是从开始的，表示列表框中最后一项的序号。6.控件数组的名字由属性指定，而数组中的每个元素由属性指定。7.为了在运行时把图形文件Pf.jpg装入图片框Picture1，所使用的语句为。8.制作菜单的分隔栏时，选用的符号是______。9.VisualBasic提供的对数据文件的三种访问方式为随机访问方式___和二进制访问方式。10.控件是VisualBasic6.0和数据库之间的桥梁，而控件则把Data控件和用户界面联系起来，两者构成了VisualBasic6.0开发数据库的主体。二、选择题（每题2分，共38分）1.可以用来在启动程序时对属性和变量进行初始化的事件()AClickBUnloadCActivateDLoad2.当窗体上有多个控件时，最多只有()个控件是活动的。A1B2C3D多3.当对被选择的控件进行对齐、调整大小等操作时，将以()为准。A所有控件B某些控件C基准控件D以上说法均不对4.VisualBasic中的语句通常按“一行一句，一句一行”的规则书写，但也允许多个语句放在同一行中。在这种情况下，用来隔开各语句的符号是()A冒号B分号C逗号D感叹号5.一般来说，在用VisualBasic开发应用程序时，其通常的步骤为()A①设置可视界面②编写代码③程序测试、运行B①建立可视用户界面②设置可视界面特性③编写事件驱动代码C①编写事件驱动代码②程序测试③程序运行和维护D以上步骤均不对6.下面4个选项中属于字符型数据的是()A“Hello”B`Hello`CHelloD#Hello7.双精度浮点数存储时占的字节数是()第2页（共7页）A4B8C16D328.下面为正确的整型常量的是()A&624B0347C&0127D&01289.把小写字母转换为大写字母的函数是()ALcase$BUcase$CInstrDLen10.“x是小于100的非负数”，用VisualBasic表达式表示正确的是()A0=x100B0=x100C0=xAndx100D0=xOrX10011.假定Picture1和Text1分别为图片框和文本框的名称，下列语句不正确的是()APrint100BPicture1.Print100CText1.Print100DDebug.Print10012.表达式4+5\6*7/8Mod9的值是()A4B5C6D713.在窗体上画一个命令按钮,然后编写如下事件过程：()PrivateSubCommand1_Click()a=InputBox(＂EntertheFirstInteger＂)b=InputBox(＂EntertheSecondinteger＂)Printb+aEndSub程序运行后,单击命令按钮,先后在两个输入对话框中分别输入456和123,则输出结果是A579B123C456D12345614.若要使标签控件显示时不覆盖其背景内容，要对其设置的属性是（）ABackColorBBorderStyleCForeColorD.BackStyle15.下面程序x$=＂a＂y$=＂b＂z$=＂c＂ForI=1to2X$=y$：y$=z$：z$=x$NextIPrintx$+y$+z$运行后的输出结果是（）AcabBbcaCbcbDcbc16.下面程序段ForI=1To3Step1PrintSpc(5-I);Forj=1To2*I-1Print＂*＂;第3页（共7页）Nextj;PrintNextI运行结果为（）A*****B*************C*D********************17.设有语句openc：Test．DatForOutPutAs#1则以下错误的叙述是（）A)该语句打开C盘根目录下一个己存在的文件Test．DatB)该语句在C盘根目录下建立一个名为Test．Dat的文件C)该语句建立的文件的文件号为1D)执行该语句后，就可以通过Print#语句向文件Test．Dat中写入信息18.表的每一行就是一个（）；表中的每一列称作一个（），描述了它所含有的数据。A记录字段B索引字段C字段记录D记录索引19.Data控件的很多方法，当我们在运行时修改了Record-Source属性后，需要调用（）方法刷新记录集。ARefresh方法BUpdateRecord方法CUpdateControls方法DCancelupdate方法三、程序填空题（每空2分，共36分）1．下面的程序段是检查输入的文字段中大括号是否配对，并显示相应的结果．本程序在文本框中边输入边统计大括号的个数，以+输入回车作为结束标志，然后显示结果．请将程序补充完整．DimCount1%PrivateSubText1_KeyPress(KeyAsciiAsInteger)If=＂{＂ThenCount1=Count1+1ElseIf=＂}＂ThenIfKeyAscii=13ThenIfThenPrint＂左右大括号配对＂ElseIfThenPrint＂左大括号数多＂；Count1；＂个＂第4页（共7页）ElsePrint＂右大括号数多＂；-Count1；＂个＂EndIfEndIfEndSub2．阅读程序：PrivateSubForm_Click()num=0Dowhilenum=2num=num+1PrintnumLoopEndSub程序运行后，单击窗体，输出结果是。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程序运行后，单击命令按钮，在输入对话框中分别输入２和３，输出结果为。4．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：PrivateSubCommand1_click()Dima(5)ForI=0To4A(i)=I+1T=I+1Ift=3ThenPrinta(i);A(t-1)=a(I-2)Else第5页（共7页）A(t)=a(i)EndIfIfI=3Thena(I+1)=a(t-4)A(4)=1Printa(i);NextIEndSub程序运行后，单击命令按钮，输出结果为。5．在窗体中添加一个名称为Text1的文本框，两个名称分别为Command1和Command2的命令按钮。要求程序运行后，用户向文本框中输入字母，单击Command1按钮则文本框中字母全部转换为大写；然后单击Command2按钮则文本框中字母全部转换为小写。请将下列程序补充完整。PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)___________=Text1.TextEndSubPrivateSubCommand1_Click()Text1.Text=_____EndSubPrivateSubCommand2___________Text1.Text=LCase(Text1.Tag)EndSub6．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：PrivateSubCommand1_click()Dimm(10)AsIntegerFork=1To10M(k)=12-kNextkX=6Printm(2+m(x))EndSub程序运行后，单击命令按钮，输出结果为。7．下面程序运行后，输出的结果为_______PrivateSubCommand1_Click()A$=”Beijing”B$=”dalian”C$=”shanghai”C$=Instr(LeftA$,2)+Right$(B$,2),C$)PrintC$第6页（共7页）EndSub8．在窗体上画两个标签，其名称分别为Label1和Label2,Caption属性分别为“数值”及空白；然后画一个名称为Hscoll1的水平滚动条，其Min的值为0，Max的值为100。程序运行后，如果单击滚动条两端的箭头，则在标签Lable2中显示滚动条的值，如图所示。请填入适当的内容，将程序补充完整。PrivateSubHScroll1_()Labl2.Caption=HScroll1.EndSub9．在窗体上画一个名称为Command1、标题为“计算”的命令按钮；画两个文本框，名称分别为Text1和Text2；然后画4个标签，名称分别为Label1、Label2、Label3和Label4，标题分别为“操作数1”、“操作数2”、“运算结果”和空白；再建立一个含有4个单选按纽的控件数组，名称为Option1，标题分别为“+”、“-”、“*”和“/”。程序运行后，在Text1、Text2中输入两个数值，选中一个单选按钮后单击命令按钮，相应的计算结果显示在Label4，程序运行情况如图所示。请在填入适当的内容，将程序补充完整。PrivateSubCommand1_Click()Fori=0To3If=Truethenopt=Option1(i).CaptionEndIfNextSelectCaseCase”+”Result=Val(Text1.Text)+Val(Text2.Text)Case”-”Result=Val(Text1.Text)-Val(Text2.Text)Case”*”第7页（共7页）Result=Val(Text.Text)*Val(Text2.Text)Case”/”Result=Val(Text1.Text)/Val(Text2.Text)EndSelect=ResultEndSub四、程序改错题（共8分）在数组b中查找其中一个数，并输出该数在数组中的位置。其程序代码如下：Privatesubsearch(a（7）Asvariant，ByValkeyAsVariant，ByValindex%)DimI％ForI＝UBound(a)ToLBound(a)Ifkey＝a(I)Thenindex＝IExitsubEndIfNextIIndex＝-1EndSubPrivateSubForm_Load()ShowDimnAsStringDimb(n)AsVariantb＝Array(1，3，5，7，9，11，13，15)a=inputbox(“请输入所要查询的数字”,”查询”,0)search(b，a，n)PrintnEndSub