模拟试题二答案一、填空题（0.5 40＝20）1.Visual Basic6.0中应用可视化的面向对象的程序设计方法，采用事件驱动的编程机制。
2.Visual Basic6.0的主要功能特点是具有面向对象的可视化的基于事件驱动设计工具，非常适合于面向对象的编程方式。
3.当进如Visual Basic集体环境，发现没有显示“工具箱”窗口，应选择视图菜单的选项,使“工具箱”窗口显示。
4.对象的方法是指对对象可以进行地操作。
5.Visual Basic6.0中文版的菜单栏共有13 个菜单项。
6.Visual Basic6.0的控件分为3类，即：常用控件、ActiveX控件、可插入对象控件。
7.十进制整型数的表示范围为-32768～＋32767 。
8.根据所给条件，引出逻辑表达式：（1）闰年的条件是：年号(year)能被4整除,但不能被100整除；或者能被400整除。
逻辑表达式为：NOT(Year MOD 4) AND (Year MOD 100) OR NOT(Year MOD 400) （2）一元二次方程有实根的条件为：a不等于0且b2-4ac>=0逻辑表达式为：a<>0 AND b^2-4*a*c>=09.＂name＂为字符串常数；Ｆalse为布尔型常数；＂11/16/99＂为字符串常量；12.345为浮点数常量。
10.以下语句的输出结果是BeijingS$=＂China＂S$=＂Beijing＂Print S $11..列表框中项目的序号是从0 开始的，ListCount-1 表示列表框中最后一项的序号。
12.滚动条响应的重要事件有Change 和Scroll 。
13.控件数组的名字由Name 属性指定，而数组中的每个元素由Index 属性指定。
14.visual Basic中有一种控件组合了文本框和列表框的特性，这种控件是_组合框__15.计时器控件能有规律的以一定时间间隔触发_Timer__事件，并执行该事件过程中的程序代码。
16.为了在运行时把图形文件Pf.jpg装入图片框Picture1，所使用的语句为_Pictuer1.Pictuer=LoadPictuer(Pf.jpg)___________。
17.在菜单编辑器中建立了一个菜单，名为pmenu，用下面的语句可以把它作为弹出式菜单弹出，请填空。
Form1. PopupMenu Pmenu18.制作菜单的分隔栏时，选用的符号是___-____。
19.Visual Basic提供的对数据文件的三种访问方式为随机访问方式_顺序访问方式__和二进制访问方式。
20.一个数据库由一个或多个表组成，表的每一行就是一个记录，表中的每一列称作一个字段。
21.Data控件是Visual Basic 6.0和数据库之间的桥梁，而数据绑定控件则把Data控件和用户界面联系起来，两者构成了Visual Basic 6.0开发数据库的主体。
22.显示窗体所使用的方法为__show_____；隐藏窗体但并不从内存中将其删除所使用的方法是___Hide____；隐藏窗体并从内存中将其删除所使用的方法是__UnLoad_____。
23.在改变默认的驱动器，可以通过设置驱动器控件的__Drive____属性；文件夹列表控件的当前路径被__Path_属性所记录；文件列表控件中被选中的文件被__FileName__属性所记录。
二、选择题（2 19=38）1.可以用来在启动程序时对属性和变量进行初始化的事件( D )A ClickB UnloadC ActivateD Load2.当窗体上有多个控件时，最多只有( A )个控件是活动的。
A 1B 2C 3D 多3.当对被选择的控件进行对齐、调整大小等操作时，将以( C )为准。
A 所有控件B 某些控件C 基准控件D 以上说法均不对4.Visual Basic中的语句通常按“一行一句，一句一行”的规则书写，但也允许多个语句放在同一行中。
在这种情况下，用来隔开各语句的符号是( A )A 冒号B 分号C 逗号D 感叹号5.一般来说，在用Visual Basic开发应用程序时，其通常的步骤为( A )A ①设置可视界面②编写代码③程序测试、运行B ①建立可视用户界面②设置可视界面特性③编写事件驱动代码C ①编写事件驱动代码②程序测试③程序运行和维护D 以上步骤均不对6.下面4个选项中属于字符型数据的是( A )A “Hello”B `Hello`C HelloD #Hello7.双精度浮点数存储时占的字节数是( B )A 4B 8C 16D 328.下面为正确的整型常量的是( C )A &624B 0347C &0127D &01289.把小写字母转换为大写字母的函数是( B )A Lcase$B Ucase$C InstrD Len10.“x是小于100的非负数”，用Visual Basic表达式表示正确的是( C )A 0<=x<100B 0<=x<100C 0<=x And x<100D 0<=x Or X<10011.假定Picture1和Text1分别为图片框和文本框的名称，下列语句不正确的是( C )A Print 100B Picture1.Print 100C Text1. Print 100D Debug. Print 10012.表达式4+5\6*7/8Mod9的值是( B )A 4B 5C 6D 713.在窗体上画一个命令按钮,然后编写如下事件过程：( D )Private Sub C ommand1_Click( )a=InputBox(＂Enter the First Integer＂)b=InputBox(＂Enter the Second integer＂)Print b+aEnd Sub程序运行后,单击命令按钮,先后在两个输入对话框中分别输入456和123,则输出结果是 A 579 B 123C 456D 12345614.若要使标签控件显示时不覆盖其背景内容，要对其设置的属性是（D）A BackColorB BorderStyleC ForeColor D. BackStyle15.下面程序x$=＂a＂y$=＂b＂z$=＂c＂For I=1 to 2X$=y$：y$=z$：z$=x$Next IPrint x$+y$+z$运行后的输出结果是（D）A cabB bcaC bcbD cbc16.下面程序段For I=1 To 3 Step 1Print Spc(5-I);For j=1 To 2*I-1Print ＂*＂;Next j;PrintNext I运行结果为（B）A * * * * *B ** * * * * ** * * * * *C *D ** * * * * ** * ** * * * * * * * * *17.设有语句open "c：Test．Dat" For OutPut As#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．下面的程序段是检查输入的文字段中大括号是否配对，并显示相应的结果．本程序在文本框中边输入边统计大括号的个数，以+输入回车作为结束标志，然后显示结果．请将程序补充完整．Dim Count1%Private Sub Text1_KeyPress(Key Ascii As Integer)If Key Ascii =＂{＂ThenCount1=Count1+1Else If Key Ascii =＂}＂ThenCount1=Count1+1If KeyAscii=13 ThenIf Count1=0 ThenPrint ＂左右大括号配对＂Else If Count1>0 ThenPrint ＂左大括号数多＂；Count1；＂个＂ElsePrint ＂右大括号数多＂；-Count1；＂个＂End IfEnd IfEnd Sub2．阅读程序：Private Sub Form_Click( )num=0Do while num<=2num=num+1Print numLoopEnd Sub程序运行后，单击窗体，输出结果是 123 。
3．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Private Sub Command1_Click( )Dim n( )As IntegerDim a,b As Integera=InputBox(＂Enter the first number＂)b=InputBox(＂Enter the second number＂)ReDim n (a To b)For k=Lbound(n,1)To Ubound(n,1)n(k)=kPrint＂n(＂＂;k;＂)=＂;n(k)Next kEnd Sub程序运行后，单击命令按钮，在输入对话框中分别输入２和３，输出结果为n(2)=2n(3)=3。
4．在窗体上画一个命令按钮（其Name属性为Command1），然后编写如下代码：Private Sub Command1_click( )Dim a(5)For I=0 To 4A(i)=I+1T=I+1If t=3 ThenPrint a(i);A(t-1)=a(I-2)ElseA(t)=a(i)End IfIf I=3 Then a(I+1)=a(t-4)A(4)=1Print a(i);Next IEnd Sub程序运行后，单击命令按钮，输出结果为 1 2 3 1 4 1 。
5．在窗体中添加一个名称为Text1的文本框，两个名称分别为Command1和Command2的命令按钮。
要求程序运行后，用户向文本框中输入字母，单击Command1按钮则文本框中字母全部转换为大写；然后单击Command2按钮则文本框中字母全部转换为小写。
请将下列程序补充完整。