多多吃好
VB历年真题集真题一一、选择题在下列各题的A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确的选项涂写在答题卡相应位置上，答在试卷上不得分。（1）为了避免流程图在描述程序逻辑时的灵活性,提出了用方框图来代替传统的程序流程图,通常也把这种图称为 A)PAD图B)N-S图 C)结构图D)数据流图（2）结构化程序设计主要强调的是 A)程序的规模 B)程序的效率 C)程序设计语言的先进性 D)程序易读性 （3）为了使模块尽可能独立,要求 A)模块的内聚程度要尽量高,且各模块间的耦合程度要尽量强 B)模块的内聚程度要尽量高,且各模块间的耦合程度要尽量弱 C)模块的内聚程度要尽量低,且各模块间的耦合程度要尽量弱 D)模块的内聚程度要尽量低,且各模块间的耦合程度要尽量强（4）需求分析阶段的任务是确定 A)软件开发方法 B)软件开发工具 C)软件开发费用 D)软件系统功能（5）算法的有穷性是指 A)算法程序的运行时间是有限的B)算法程序所处理的数据量是有限的 C)算法程序的长度是有限的D)算法只能被有限的用户使用 （6）对长度为n的线性表排序,在最坏情况下,比较次数不是n(n-1)/2的排序方法是 A)快速排序 B)冒泡排序 C)直接插入排序 D)堆排序 （7）如果进栈序列为e1,e2,e3,e4,则可能的出栈序列是 A)e3,e1,e4,e2 B)e2,e4,e3,e1 C)e3,e4,e1,e2 D) 任意顺序 （8）将E-R图转换到关系模式时,实体与联系都可以表示成 A)属性 B)关系 C)键 D)域 （9）有三个关系R、S和T如下: 由关系R和S通过运算得到关系T,则所使用的运算为 A)并 B)自然连接 C)笛卡尔积 D)交 （10）下列有关数据库的描述,正确的是 A)数据处理是将信息转化为数据的过程 B)数据的物理独立性是指当数据的逻辑结构改变时,数据的存储结构不变 C)关系中的每一列称为元组,一个元组就是一个字段 D)如果一个关系中的属性或属性组并非该关系的关键字,但它是另一个关系的关键字,则称其为本关系的外关键字 （11）窗体文件的扩展名是 A) .bas B) .cls C) .frm D) .res （12）设y是整形变量,能判断y为奇数的表达式是 A)Not(y Mod 2<>0) B)y Mod 2<>0 C)(y-1)Mod 2<>0 D)y Mod 2<>1 （13）下面说法不正确的是 A) 变量名的长度不能超过255个字符 B) 变量名可以包含小数点或者内嵌的类型声明字符 C) 变量名不能使用关键字 D) 变量名的第一个字符必须是字母 （14）定义有5个整数型元素的数组,正确的语句是 A)Dim a(4) As Integer B)Option Base 1:Dim a(5) C)Dim a &(5) D)Dime a(5) As Integer （15）设a=6,则执行 x=IIF(a>5,-1,0) 后,x的值为 A)5 B)6 C)0 D)-1 （16）如果将文本框的Locked属性设置为True,则以下说法正确的是 A) 此时在属性窗口不可以修改文本框的Text属性值 B) 运行时用户不可以在界面修改文本框中的内容 C) 在程序代码中不可以修改文本框的内容,如不可以使用语句"aaa" D) 以上均不正确（17）编写如下事件过程: Private Sub Form_keyDown(KeyCode As Integer,Shift As Integer)Print Chr(KeyCode) End Sub Private Sub Form_Keypress(KeyAscii As Integer)Print Chr(KeyAscii) End Sub 在一般情况下(即不按住Shift键和锁定大写键时) 运行程序,若按"T"键,则程序输出的结果是 A) T B) t T T C) T D) t t t（18）以下事件过程可以将打开对话框的标题改为"新时代"的是 A) Private Sub Command2_Click() "新时代" End Sub B) Private Sub Command2_Click() "新时代" End Sub C) Private Sub Command2_Click() "新时代" End Sub D) Private Sub Command2_Click() "新时代" End Sub （19）如果要将窗体中的某个命令按钮设置成无效状态,应该设置命令按钮的什么属性 A) Value B) Visible C) Enabled D) Default （20）要使文本框可输入多行文字,要更改的默认选项是 A) SorollBoars和MultiLine B) Visible C) ScrillBoars D) 以上都不是 （21）要触发组合框的DblClick事件,只有将组合框的Style属性设置为 A) 0 B) 1 C) 2 D) 3 （22）在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timer1。要求每一秒在文本框中显示一次当前的时间。程序为: Private Sub Timer1_ _________( ) End Sub 在下划线上应填入的内容是 A) Enabled B) Visible C) Interval D) Timer （23）要使文本框获得输入焦点,则应采用文本框控件的方法是 A) GotFocus B) LostFocous C) KeyPress D) SetFocus （24）假定有如下的窗体事件过程: Private Sub Form_Click() a$="MicrosoftVisual Basic" b$=Right(a$,5) c$=Mid(a$,1,9) MsgBox a$,34,b$,c$,5 End Sub 程序运行后,单击窗体,则在弹出的信息框的标题栏中显示的信息是 A) Microsoft Visual B) Microsoft C) Basic D) 5 （25）下面程序段执行结果为 x=Int(Rnd()+4) Select Case x Case 5 Print"excellent" Case4 Print"good" Case 3 Print"pass" Case Else Print "fail" End Select A) excellent B) good C) pass D) fall （26）设A="123456",则表达式Val(Left(A,4)+Mid(A,4,2))的值为 A)123456 B)123445 C)5 D)6 （27）在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程。 Private Sub Command1_Click() "All Files(*.*) |*.*|Text Files(*.txt)|*.txt MsgBox End Sub 程序运行后,单击命令按钮,将显示一个"打开"对话框,此时在"文件类型"框中显示的是 A) All Files(*.*) B) Text Files(*.txt) C) Batch Files(*.bat) D) All Files(*.*) |Text Files(*.txt) （28）如果要将窗体中的某个命令按钮设置成无效状态,应该设置命令按钮的哪个属性 A) Value B) Visible C) Enabled D) Default（29）函数过程Fun1的功能是:如果参数b为奇数,则返回值为1,否则返回值为0。 Function Fun1(b As Integer) if _____ Then Fun1=0 Else Fun1=1 End If End Function 使该功能完整,应在空行处填入以下哪条语句 A)b Mod 2<>0 B)b Mod 2=0 C)b / 2=1D)b （30）假定有下表所列的菜单结构: 要求程序运行后,如果单击菜单项"大图标",则在该菜单项前添加一个"√"。以下正确的事件过程是 A) Private Sub bigicon_Click() End SubB) Private Sub bigicon_Click() End Sub C) Private Sub bigicon_Click() End SubD) Private Sub bigicon_Click() End Sub （31）下列对变量的定义中,不能定义a为变体变量的是 A)Dim a As Double B)Dim a As Variant C)Dim a D)a=24 （32）有如下程序: Private Sub Command1_Click()a$="A WORKER IS HERE" x=Len(a$) For i=1 To x - 1 b$=Mid$(a$, i, 3) If b$="WOR" Then S=S + 1 Next Print S End Sub 单击命令按钮，程序运行结果为A) 1 B) 2 C) 3 D) 5 （33）Mid("Hello Everyone",7,3)的执行结果是 A)yon B) every C) Eve D) one （34）在窗体上有一个命令按钮,然后编写如下事件过程。 Private Sub Command1_Click()Dim a(5)As String FOR i=1 To 5 a(i)=Chr(Asc("A")+ (i-1)) Next For Each b In a Print b; Next End Sub 程序运行后,单击命令按钮,输出结果是 A)ABCDE B)1 2 3 4 5 C)abcde D)出错信息 （35）在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click()For i=1 To 4 x=4 For j=1 To 2 x=x+6 Next Next Print x End Sub 程序运行后,单击命令按钮,输出结果是 A)12 B)13 C)16 D)17 二、填空题请将每一个空的正确答案写在答题卡序号的横线上，答在试卷上不给分。（1）测试的目的是暴露错误,评价程序的可靠性;而 【1】 的目的是发现错误的位置并改正错误。 （2）某二叉树中度为2的结点有18个,则该二叉树中有 【2】 个叶子结点。（3）当循环队列非空且队尾指针等于队头指针时,说明循环队列已满,不能进行入队运算。这种情况称为 【3】 。（4）在关系模型中,把数据看成一个二维表,每一个二维表称为一个 【4】 。 （5）在计算机软件系统的体系结构中,数据库管理系统位于用户和 【5】 之间。 （6）下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a,其中最后一项为n个。 例如: a=5 , n=4时,则Sn=5+55+555+5555。请在空白处填入适当的内容,将程序补充完整。 Private Sub Command1_Click()Dim a As Integer, n As Integer, Cout As Integer Dim Sn As Long, Tn As Long Cout=1 Sn=0 Tn=0 a=InputBox("请输入a的值:") n = InputBox("请输入n的值!") Do Tn=Tn * 10 + a Sn=Sn + Tn Cout=Cout + 1 【6】 a, n, Sn End Sub （7）用户可以用 【7】 语句定义自己的数据类型。（8）下列程序运行后的输出结果是 【8】 。 Private Sub f(k,s) s=1 For j=1 To k s=s*j Next End Sub Private Sub Command1_Click()Sum=0 For i=1 To 3 Call f(i,s) Sum=Sum+s Next Print Sum End Sub （9）函数Int(Rnd*10)+10的值为范围是 【9】 。（10）有如下 函数过程: Function gys(By Val x As Integer, ByVal y As Integer) As Integer Do While y<>0 preminder=x / y x=Y y=preminder Loop gys=x End Function 以下是调用该函数的事件过程,该程序的运行结果是 【10】 。 Private Sub Command1_Click Dim a As Integer,b As Integer a=10:b=2 x=gys(a,b) Print x End Sub （11）语句 0 表示 【11】 ; 语句 1 表示 【12】 ;（12）下列程序的功能是:将数据1,2,…,8写入顺序文件中,请补充完整。 Private Sub Form_Click()Dim i As Integer Open ""For Output As #1 For i=1 To 8 � 【13】 � Next Close #1 End Sub （13）下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type Dim Ksc As Ang Private Sub Form Dim Y As Single Open � 【14】 � Y= / 180 For i=1 To 90 (i * Y) (i * Y) � 【15】 � Next i Close #2 End Sub 真题二一、选择题在下列各题的A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确的选项涂写在答题卡相应位置上，答在试卷上不得分。（1）程序流程图中带有箭头的线段表示的是 A)图元关系 B)数据流 C)控制流 D)调用关系 （2）下面不属于软件设计原则的是 A)抽象 B)模块化 C)自底向上 D)信息隐蔽（3）下列选项中,不属于模块间耦合的是 A)数据耦合 B)标记耦合 C)异构耦合 D)公共耦合（4）下列叙述中,不属于软件需求规格说明书的作用的是 A)便于用户、开发人员进行理解和交流 B)反映出用户问题的结构,可以作为软件开发工作的基础和依据 C)作为确认测试和验收的依据 D)便于开发人员进行需求分析 （5）算法的时间复杂度是指 A)执行算法程序所需要的时间 B)算法程序的长度 C)算法执行过程中所需要的基本运算次数 D)算法程序中的指令条数（6）已知数据表A中每个元素距其最终位置不远,为节省时间,应采用的算法是 A)堆排序 B)直接插入排序 C)快速排序 D)B)和C)（7）栈底至栈顶依次存放元素A、B、C、D,在第五个元素E入栈前,栈中元素可以出栈,则出栈序列可能是 A)ABCED B)DCBEAC)DBCEAD)CDABE （8）数据库设计包括两个方面的设计内容,它们是 A)概念设计和逻辑设计 B)模式设计和内模式设计 C)内模式设计和物理设计 D)结构特性设计和行为特性设计 （9）关系表中的每一横行称为一个 A)元组B)字段C)属性D)码 （10）设有表示学生选课的三张表,学生S(学号,姓名,性别,年龄,身份证号),课程C(课号,课名),选课SC(学号,课号,成绩),则表SC的关键字 (键或码)为 A)课号,成绩 B)学号,成绩 C)学号,课号 D)学号,姓名,成绩（11）下列选项中,不属于模块间耦合的是 A) 数据耦合 B) 同构耦合 C) 异构耦合 D) 公用耦合 （12）设a=5,b=4,c=3,d=2,则表达式3>2*b Or a=c And b<>c Or c>d的值是 A) 1B) TrueC) False D) 2（13）以下合法的变量名是 A)A%B B)Test1 C)1cost D)And （14）下列程序运行时输出的结果是 Option Base 1 Private Sub Form_Click()Dim x(10) As Integer,y(5) As Integer For i=1 to 10 x(i)=10-i+1 Next For i= 1 to 5 y(i)=x(2*i-1)+x(2*i) Next For i= 1 to 5 Print y(i) Next End Sub A) 3 7 11 45 19 B) 19 15 11 7 3 C) 1 3 5 7 9 D) 不确定的值 （15）在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序: Private Sub Command1_Click() a=InputBox("请输入日期 (1~31)") t="旅游景点:"& IIf(a>0 And a<=10, "长城","") & IIf(a>10 And a<=20, "故宫","") & IIf(a>20 And a<=31, "颐和园","") End Sub 程序运行后,如果从键盘上输入16,则在文本框中显示的内容是 A) 旅游景点:长城故宫 B) 旅游景点:长城颐和园 C) 旅游景点:颐和园 D) 旅游景点:故宫 （16）若要求从文本框中输入密码时在文本框中只显示"*"号,则应当在此文本框的属性窗口中设置 A)Text属性值为* B)Caption属性值为* C)password属性值为空 D)Passwordchar属性值为* （17）编写如下两个事件过程: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode) 恒转换出来都是大写字母End Sub Private Sub Form_Keypress(KeyAscii As Integer) Print Chr(KeyAscii) 看实际情况~~~~End Sub 在一般情况下(即不按住Shift键和锁定大写键时) 运行程序,如果按"A"键,则程序输出的结果是 A)AA B)aA C)Aa D)aa （18）单击滚动条的滚动箭头时,产生的事件是 A)Click B)Scroll C)Change D)Move （19）当把框架的什么属性设置为False时,其标题会变灰,框架中所有的对象均被屏蔽 A) NameB) EnabledC) CaptionD) Visible （20）要获得当前驱动器应使用驱动器列表框的属性是 A) Path B) DriveC) DirD) Pattern （21）在Visual Basic中,组合框是文本框和下列哪一项的特性的组合 A) 复选框B) 标签C) 列表框D) 目录列表框（22）计时器文件设置时间间隔的属性是 A)Enabeld B) IndexC)TagD) Interval （23）要使文本框获得输入焦点,则应采用文本框控件的 A)GotFocus方法 B)LostFocus方法 C)KeyPress方法 D)SetFocus方法 （24）在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() c="ABCD" For n=1 To 4 Print ______ Next End Sub 程序运行后,单击命令按钮,要求在窗体上显示如下内容: D CD BCD ABCD 则在______处应填入的内容为 A) Left(c,n)B) Right(c,n) C) Mid(c,n,1)D) Mid(c,n,n) （25）阅读程序: Function Fun(a As Integer) Static c b=0:b=b+2:c=c+2 F=a*b*c End Function Private Sub Command1_Click()Dim a As Integer a=2 For i=1 To 2 Print Fun(a); Next End Sub 运行上面的程序,单击命令按钮,输出结果为 A)8 16B)9 18C)10 20D)7 14 （26）下列程序段的执行结果为 For X=5 To 1 Step -1 For Y=1 To 6-x Print Tab(Y+5); "*"; Next Print Next A) ***** **** *** ** * B) ***** **** *** ** * C) * ** *** **** ***** D) * *** ***** ******* ********* （27）下列各选项说法错误的一项是 A) 文件对话框可分为两种,即打开(Open) 文件对话框和保存(Save As) 文件对话框 B) 通用对话框的Name属性的默认值为CommonDialogX,此外,每种对话框都有自己的默认标题 C) 打开文件对话框可以让用户指定一个文件,由程序使用;而用保存文件对话框可以指定一个文件,并以这个文件名保存当前文件 D) DefaultEXT属性和DialogTitle属性都是打开对话框的属性,但非保存对话框的属性 下列各选项说法错误的一项是 （28）以下语句中那句可以选择指定的表项或取消已选择的表项 A) 列表框.Selected(索引值) B) 列表框.Selected(索引值)=True|False C) 列表框.Selected D) 列表框.Selected=True|False （29） Sub过程与Function过程最根本的区别是 A) Sub过程可以用Call语句直接使用过程名调用,而Function过程不可以 B) Function过程可以有形参,Sub过程不可以 C) Sub过程不能返回值,而Function过程能返回值 D) 两种过程参数的传递方式不同 （30）要使菜单项MenuOne在程序运行时失效,使用的语句是 A) B) C) D) （31）设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组说法错误的是 A) 命令按钮的所有Caption属性都是Command1 B) 在代码中访问任意一个命令按钮只需使用名称Command1 C) 命令按钮的大小都相同 D) 命令按钮共享相同的事件过程（32）以下关系表达式中,其值为假的是 A)"XYZ"< "XYz" B)"VisualBasic"="visualbasic" C)"the"<>"there" D)"Integer">"Int" （33）在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click()c="ABCD" For n=1 To 4 Print Next End Sub 程序运行后,单击命令按钮,要求在窗体上显示如下内容: D CD BCD ABCD 则在处应填入的内容为 A) Left(c,n)B) Right(c,n) C) Mid(c,n,1)D) Mid(c,n,n) （34）阅读程序: Option Base 1 Dim arr()As Integer Private Sub Form_Click()Dim i As Integer, j As Integer ReDim arr(3,2) For i = 1 To 3 For j = 1 To 2 arr(i,j)=i*2+j Next Next ReDim Preserve arr(3,4) For j=3 To 4 arr(3,j)=j+9 Next Print arr(3,2)+arr(3,4) End Sub 程序运行后,单击窗体,输出结果为 A) 21 B) 13C) 8D) 25 （35）下列程序段的执行结果为 a=3:b=1 For i=1 To 3 f=a + b:a=b:b=f Print f Next I A) 4 3 6B) 4 5 9C) 6 3 4D) 7 2 8 二、填空题请将每一个空的正确答案写在答题卡序号的横线上，答在试卷上不给分。（1）测试用例包括输入值集和 【1】 值集。（2）在树形结构中,树根结点没有 【2】 。（3）数据结构分为逻辑结构与存储结构,线性链表属于 【3】 。（4）一个项目具有一个项目主管,一个项目主管可管理多个项目,则实体"项目主管"与实体"项目"的联系属于 【4】 的联系。（5）数据库设计分为以下6个设计阶段:需求分析阶段、 【5】 、逻辑设计阶段、物理设计阶段、实施阶段、运行和维护阶段。 （6）设有如下程序: Private Sub Form_Click()Dim a As Integer, s As Integer n=8:s=0 Do s=s+n:n=n-1 Loop While n>0 Print s End Sub 以上程序的功能是计算1到8的和。程序运行后,单击窗体,输出结果为 � 【6】 �。 （7）如果不指明函数过程参数的类型,则该参数的数据类型为 【7】 。（8）下面运行程序后,单击命令按钮,输出的结果是 � 【8】 � 。 Private Sub Command1_Click()Dim a%(1 To 5),i%, s# For i=1 To 5 a(i)=i Next s=Fun(a) Print "s="; s; End Sub Function Fun(a() As Integer) Dim t#, i% t=1 For i=LBound(a) To UBound(a) t=t*a(i) Next Fun=t End Function（9）在Visual Basic的立即窗口内输入以下语句 X=97
王凡Angela
1).新建一个工程，实现单击command1将text1中的内容复制（或者剪切）到text2中。（要求使用clipboard对象）保存。窗体上一个text文本框，两个command按钮，caption分别为“剪切”，“恢复”，运行后要求在text1中输入文本，点“剪切”，把text1中的内容剪切掉，点”恢复“，把text1中的内容恢复出来。提示：定义一个变量用来存放text1中的内容。2).新建一个工程，文本框text1,使用户输入字母一律转换为大写显示（焦点在最右端）保存。资料来源:学网(),原文地址:).新建一个工程，实现功能：在窗体中实现由下向上滚动显示“您好！网络之家”这几个字。保存。4).新建一个工程，在form1界面创建form2，form3两个子菜单的forms菜单，选择form2子菜单，以无模式显示form2,选择form3子菜单，以有模式显示form3.保存。5).新建一个工程，在界面上放置一个工具条toobar1,在工具条上有三个按纽，按下第一个按钮时用msgbox显示：“第一个按纽被按下”；按下第二个按纽时用msgbox显示：“第二个按纽被按下”；按下第三个按纽时用msgbox显示：“第三个按钮被按下”。保存。6)。新建一个工程，包含两个窗体form1,form2。实现功能制作－－－欢迎界面，时间为三秒，三秒后，form1消失，form2出现。保存。7)。新建一个工程，实现功能限制：在text1中只能输入10个字母，超过的在text2中显示。保存。8)。新建一个工程，实现功能单击text1框时，text1中的内容被全选。保存。9)。新建一个工程，实现功能点击command1按钮，读取系统的汉字字型，在combox列表框中显示。保存。10)。新建一个工程，实现单击commmand1将text1的内容剪切到text2中。（上次的那道题目是复制）保存。欢迎光临学网,收藏本篇文章[1][2][3]$False$11)。新建一个工程，其中含五个单选按钮，两个面板stratusbar1.第一面板题“欢迎探讨”，点击单选按钮时，第二个面板标题为选中的标题号。保存。12)。新建一个工程，使用打开对话框找到某一文件（硬盘上任意一文本文件），带全路径的文件名，显示在一文本框内。保存。13)。新建一个工程，其中含一个图片框picturebox1,五个命令按钮command1-command5，控件标题分别为画点、画线、画圆、擦除、休息。实现单击按钮图片框内实现功能。14)。新建一个工程，在窗体上放置一个data控件，实现程序功能：不用data控件启动工程时，可选择打开一个mdb文件，统计其中有多少张表。保存。（此题要求，我不理解，你看怎样）
popo小婷婷
2007年9月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计（考试时间90分钟，满分100分）一、选择题（每小题2分，共70分）下列各题A) 、B) 、C) 、D)四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。（1）软件是指A）程序 B）程序和文档C）算法加数据结构 D）程序、数据与相关文档的完整集合（2）软件调试的目的是 A）发现错误 B）改正错误 C）改善软件的性能 D）验证软件的正确性（3）在面向对象方法中，实现信息隐蔽是依靠 A）对象的继承 B）对象的多态 C）对象的封装 D）对象的分类（4）下列叙述中，不符合良好程序设计风格要求的是 A）程序的效率第一，清晰第二 B）程序的可读性好 C）程序中要有必要的注释 D）输入数据前要有提示信息（5）下列叙述中正确的是 A）程序执行的效率与数据的存储结构密切相关 B）程序执行的效率只取决于程序的控制结构 C）程序执行的效率只取决于所处理的数据量 D）以上三种说法都不对（6）下列叙述中正确的是A）数据的逻辑结构与存储结构必定是一一对应的B）由于计算机存储空间是向量式的存储结构，因此，数据的存储结构一定是线性结构C）程序设计语言中的数组一般是顺序存储结构，因此，利用数组只能处理线性结构D）以上三种说法都不对（7）冒泡排序在最坏情况下的比较次数是A）n(n＋1)/2 B）nlog2 n C）n(n－1)/2 D）n/2（8）一棵二叉树中共有70个叶子结点与80个度为1的结点，则该二叉树中的总结点数为A）219 B）221 C）229 D）231（9）下列叙述中正确的是A）数据库系统是一个独立的系统，不需要操作系统的支持B）数据库技术的根本目标是要解决数据的共享问题C）数据库管理系统就是数据库系统D）以上三种说法都不对（10）下列叙述中正确的是A）为了建立一个关系，首先要构造数据的逻辑关系B）表示关系的二维表中各元组的每一个分量还可以分成若干数据项C）一个关系的属性名表称为关系模式D）一个关系可以包括多个二维表（11）要使一个文本框可以显示多行文本，应设置为True的属性是A）Enabled B）MultiLine C）MasLenfth D）Width（12）在窗体上有一个名为Text1的文本框。当光标在文本框中时，如果按下字母键“A”，则被调用的事件过程是A）Form_KeyPress() B）Text1_LostFocus()C）Text1_Click() D）Test1_Change()（13）设在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。要求单击Command1按钮时可把光标移到文本框中。下面正确的事件过程是A）Private Sub Command1_Click() B）Private Sub End Sub EndSubC）Private Sub Command1_Click() D）Private Sub Sub End Sub（14）执行以下程序后输出的是Private Sub Command1_Click()Ch$=”AABCDEFGH”Print Mid(Righ(ch$,6),Len(left(ch$,4)),2)End SubA)CDEFGH B)ABCD C)FG D)AB（15）设在窗体Form1上有一个列表框List1，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是A)Prvate Sub List1_Click() B)Private Sub Form1_Click()Print Print Sub End SubC)Private Sub List1_Click() D)Private Sub Form1_Click()Print Sub End Sub（16）若窗体上的图片框中有一个命令按钮，则此按钮的Left属性是指A)按钮左端到窗体左端的距离 B)按钮左端到图片框左端的距离C)按钮中心点到窗体左端的距离 D)按钮中心点到图片框左端的距离（17）为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”，若通过程序设置该标题，则应使用的语句是A)“对话框窗口” B)“对话框窗口”C)“对话框窗口” D)“对话框窗口”（18）在窗体上有如右图所示的控件，各控件的名称与其标题相同，并有如下程序：Private Sub Form_Load() Sub刚运行程序时，看到的窗体外观是：（19）设在窗体中有一个名称为List1的列表框，其中有若干个项目（如图）。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是 A)Private Sub Command1_Click() SubB) Private Sub Command1_Click() SubC) Private Sub Command1_Click() SubD) Private Sub Command1_Click() Sub（20）某人设计了如下程序用来计算并输出7!（7的阶乘）Private Sub Command1_Click()t=0For k=7 To 2 Step -1t=t*kNextPrint tEnd Sub执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结构的是A）把t=0改为t=1B）把For k = 7 To 2 Step -1改为For k =7 To 1 Step -1C）把For k = 7 To 2 Stip-1改为Fork=1 To 7D）把Next改为Nexi k（21）若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是A）把所有单选按钮的Index属性改为相同值B）把所有单选按钮的Index 属性改为连续的不同值C）把所有单选按钮的Caption属性值改为相同D）把所有单选按钮的名称改为相同，且把它们的Index属性改为连续的不同值。（22）窗体上有文本框Text1和一个菜单，菜单标题、名称如表，结构见图。要求程序执行时单击“保存”菜单项，则把其标题显示在Text1文本框中。下面可实现此功能的事件过程是：标题 名称文件 file新建 new保存 saveA）Private Sub save_Click() B）Private Sub save_Click() Sub End SubC）Private Sub file_Click() D）Private Sub file_Click() Sub End Sub（23）某人在窗体上画了一个名称为Timer1的计时器和一个名称为Lab的属性设置为Enabled=True, Interval=0,并编程如下。希望在每2秒在标签上显示一次系统当前时间。Private Sub Timer1_Timer()$End Sub在程序执行时发现未能实现上述目的，那么，他应做的修改是A）通过属性窗口把计时器的Interval属性设置为2000B）通过属性窗口把计时器的Enabled属生设置为FalseC)把事件过程中的$语句改为$D)把事件过程中的$语句改为（24）形状控件的Shape属性有6种取值，分别代表6种几何图形。下列不属于这6种几何图形的是（25）下面关于文件的叙述中错误的是A）随机文件中各条记录的长度是相同的]B）打开随机文件时采用的文件存取方式应该是RandomC）向随机文件中写数据应使用语句Print#文件号D）打开随机文件与打开顺序文件一样，都使用Open语句（26）设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件，能实现此功能的语句是A）” B）(“”)C) LoadPicture(“”) D）Call LoadPicture(“”)（27）下面程序执行时，在窗体上显示的是Private Sub Command1_Click()Dim a(10)For k = 1 To 10a(k) = 11 – kNext kPrint a(a(3)\a(7) Mod a(5))End SubA）3 B）5 C）7（28）为达到把a、b中的值交换后输出的目的，某人编程如下：Private Sub Command1_Click()a% = 10:b% = 20Call swap(a,b)Print a,bEnd SubPrivate Sub swap(ByVal a As Integer,ByVal b As Integer)c= a:a=b:b=cEnd Sub在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是A）调用swap过程的语句错误，应改为Call swap a,bB）输出语句错误，应改为：Print ”a”,”b”C）过程的形式参数有错，应改为：swap(ByRef a As Integer,ByRef b As Integer)D）swap中3条赋值语句的顺序是错误的，应改为a=b:b=c:c=a（29）有如下函数：Function fun(a As Integer,n As Integer) As IntegerDim m As IntegerWhile a >=na=a-nm= m+1Wendfun=mEnd Function该函数的返回值是A）a乘以n的乘积 B）a加n的和C）a减n的差 D）a除以n的商（不含小数部分）（30）下面程序的输出结果是Private Sub Command1_Click()ch$=”ABCDEF”proc chPrint chEnd SubPrivate Sub proc(ch As String)S=””For k=Len(ch) To 1 Step-1s=s&Mid(ch,k,1)Next kch=sEnd SubA）ABCDEF B）FEDCBA C）A D）F（31）某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下：Function Maxvalue(a() As Integer) As IntegerDim max%max=1For k = 2 To 10If a(k)>a(max) Thenmax = kEnd IfNext kMaxvalue = maxEnd Function程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是A）语句max = 1应改为max = a(1)B）语句For k = 2 To 10应改为For k = 1 To 10C）If语句中的条件a(k)>a(max)应改为a(k)>maxD）语句Maxvalue = max 应改为Maxvalue = a(max)（32）在窗体上画一个名称为Command1的命令按钮，并编写以下程序：Private Sub Command1_Click()Dim n%,b,tt = 1:b = 1:n = 2Dob = b*nt = t + bn = n +1Loop Until n>9Print tEnd Sub此程序计算并输出一个表达式的值，该表达式是A）9！ B）10！ C）1！+2！+…+9！ D）1！+2！+…+10！（33）有一个名称为Form1的窗体，上面没有控件，设有以下程序（其中方法Pset(X,Y)的功能是在坐标X，Y处画一个点）：Dim cmdmave As BooleanPrivate Sub Form_MouseDown(Button As Integer,Shift As Integer, X As Single,Y As Single)cmdmave = TrueEnd SubPrivate Sub Form_MouseMove(Button As Integer,Shift As Integer, X As Single, Y As Single)If cmdmave (X,Y)End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single,Y As Single)cmdmave = FalseEnd Sub此程序的功能是A）每按下鼠标键一次，在鼠标所指位置画一个点B）按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失C）不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线D）按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线（34）某人设计了下面的函数fun，功能是返回参数a中数值的位数Function fun(a As Integer) As IntegerDim n%n = 1While a \ 10 >= 0n = n + 1a = a \ 10Wendfun = nEnd Function在调用该函数时发现返回的结果不正确，函数需要修改，下面的修改方案中正确的是A）把语句n = 1改为n = 0B）把循环条件a \ 10 >= 0改为a \ 10 > 0C）把语句 a = a \ 10改为a = a Mod 10D）把语句fun = n改为 fun = a（35）在窗体上有一个名称为Check1的复选框数组（含4个复选框），还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的方字罗列在文本框中（见图）。下面能实现此功能的事件过程是A）Private Sub Check1_Click(Indes As Integer) =""For k = 0 To 3If Check1(k).value = 1 = & Check1(k).Caption & " " '双引号中是空格End IfNext kEnd SubB）Private Sub Check1_Click(Index As Integer)For k = 0 To 3If Check1(k).value = 1 = & Check1(k).Caption & " " '双引号中是空格End IfNext kEnd SubC）Private Sub Check1_Click(Index As Integer) = ""For k = 0 To 3If Check1(k).value = 1 = & Check1(Index).Caption & " " '双引号中是空格End IfNext kEnd SubD）Private Sub Check1_Click(Index As Integer) = ""For k = 0 To 3If Check1(k).value = 1 = & Check1(k).Caption & " " '双引号中是空格Exit ForEnd IfNext kEnd Sub 二、填空题（每空2分，共30分）请将每空的正确答案写在答题卡[1]~[15]序号的横线上，答在试卷上不得分。(1)软件需求规格说明书应具有完整性，无岐义性、正确性、可验证性、可修改性等特征，其中最重要的是【1】 。(2)在两种基本测试方法中，【2】 测试的原则之一是保证所测模块中每一个独立路径至少执行一次。(3)线性表的存储结构主要分为顺序存储结构和链式存储结构。队列是一种特殊的线性表，循环队列是队列的【3】 存储结构。(4)对下列二叉树进行中序遍历的结果为【4】 。（5）在E-R图中，矩形表示【5】 。（6）窗体上有一个组合框，其中已输入了若干个项目。程序运行时，单击其中一项，即可把该项与最上面的一项交换。例如：单击图1中的“重庆”，则与“北京”交换，得到图2的结果。下面是可实现此功能的程序，请填空。Private Sub Combo1_Click()Dim temptemp = [6] = (0)(0) = tempEnd Sub（7）设窗体上有一个名称为HScroIII的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离（即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数）。下面是可实现此功能的程序，请填写。Dim [7] As IntegerPrivate Sub Form_Load()pos= SubPrivate Sub HScroIII_Change()Print [8] -pospos= Sub（8）设窗体上有一个名称为CD1的通用对话框，一个名称为Text1的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。下面是实现此功能的事件过程，请填空。Private Sub Command1_Click() ="文本文件1*.txt(Word 文档)*.doc" = <>""ThenOpen [9] For Input As #1Line Input #1,ch$Close # = [10] End IfEnd Sub（9）下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。例如：输入7685，则输出5867，输入1000，则输出0001。请填空。Private Sub Command1_Click()Dim x As Integerx=InputBox(“请输入一个正整数”)While x>__[11]___Print x Mod 10;x=x\10WendPrint__[12]__End Sub （10）有如图所示的窗体。程序执行时先在Text1文本框中输入编号，当焦点试图离开Text1时，程序检查编号的合法性，若编号合法，则焦点可以离开Text1文本框；否则，显示相应错误信息，并自动选中错误的字符，且焦点不能离开Text1文本框（见图）。合法编号的组成是：前2个字符是大写英文字母，第3个字符是“-”，后面是数字字符（至少1个）。下面程序可实现此功能，请填空。Private Sub Text1_Lostfocus()Dim k%,n%n=Len( [13] )For k=1 to if (n>3,n,4)c=Mid(Text1. Text,k,1)Select Case kCase 1,2If c<"A" Or c>"Z" ThenMsgBox("第"&k&"个字符必须是大写字母！")SetPosition kExit ForEnd IfCase 3If c<>"-" ThenMsgBox("第"&k&"个字符必须是字符"'"-"'")SetPosition kExit ForEnd IfCase ElseIf c<"0" Or c>"9" ThenMsgBox("第"&k&"个字符必须是数字！")SetPosition kExit ForEnd IfEnd SelectNext kEnd Sub Private Sub SetPosition(pos As Integer) [14] Text1. [15] End Sub 2007年9月全国计算机等级考试二级VB参考答案一、选择题1-5 DBCAA6-10 CCABA11-15 BDCCA16-20 BAACA21-25 DBABC26-30 BDCDB31-35 DCDBA 二、填空题1、无歧义性2、白盒测试3、顺序4、ACBDFEHGP5、实体集6、()7、pos8、、、ch11、1012、x13、、115、SetFocus
