2012年上半年计算机二级VB试题

2012年3月全国计算机等级考试二级笔试试卷 Visual Basic语言程序设计 来源: ：91UP快学堂 时间：2012/7/31 www.91up.com 一、选择题（每小题2分，共70分）   下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂在答题卡相应位置上，答在试卷上不得分。  （1） 下列叙述正确的是（　　）。   A) 循环队列是队列的一种链式存储结构   B．循环队列是队列的一种顺序存储结构   C．循环队列是非线性结构   D．循环队列是一种逻辑结构  （2）下列叙述正确的是（　　）。   A) 栈是一种先进先出的线性表   B．队列是一种后进后出的线性表   C．栈和队列都是非线性结构   D．以上三种说法都不对  （3）一棵二叉树共有25个结点，其中5个是叶子结点，则度为1的结点数为（　　）。   A．16   B．10   C．6   D．4  （4）在下列模式中，能够给出数据库物理存储结构与物理存取方法的是（　　）。   A．外模式   B．内模式   C．概念模式   D．逻辑模式  （5）在满足实体完整性约束的条件下（　　）。   A．一个关系中应该有一个或多个候选关键字   B．一个关系中只能有一个候选关键字   C．一个关系中不许有多个候选关键字   D．一个关系中可以没有候选关键字  （6）有三个关系R、S和T如下：（　　）。   （7）软件生命周期中的活动不包括（　　）。   A．市场调研   B．需求 分析 定性数据统计分析pdf销售业绩分析模板建筑结构震害分析销售进度分析表京东商城竞争战略分析    C．软件测试   D．软件维护  （8）下面不属于需求分析阶段任务的是（　　）。   A．确定软件系统的功能需求   B．确定软件系统的性能需求   C．需求规格说明 书 关于书的成语关于读书的排比句社区图书漂流公约怎么写关于读书的小报汉书pdf 评审   D．制定软件集成测试 计划 项目进度计划表范例计划下载计划下载计划下载课程教学计划下载   （9）在测试方法中，设计测试用例的主要根据是（　　）。   A．程序内部逻辑   B．程序外部功能   C．程序数据结构   D．程序 流程 快递问题件怎么处理流程河南自建厂房流程下载关于规范招聘需求审批流程制作流程表下载邮件下载流程设计 图  （10）在软件设计中不使用的工具是（　　）。   A．系统结构图   B．PAD图   C．数据流图（DFD图）   D．程序流程图  （11）以下合法的VB变量名是（　　）。   A．case  B．name10  C．t-name  D．x*y  （12）设x是小于10的非负数。对此陈述，以下正确的VB表达式是（　　）。   A．0≤x<10   B．0<=x<10   C．x>=0 and x<10   D．x>=0 or x<=10  （13）以下关于窗体的叙述中错误的是（　　）。   A．窗体的Name属性用于标识一个窗体   B．运行程序时，改变窗体大小，能够触发窗体的Resize事件   C．窗体的Enabled属性为False时，不能响应单击窗体的事件   D．程序运行期间，可以改变Name属性值  （14）下面定义窗体级变量a的语句中错误的是（　　）。   A．Dim a%   B．private a%   C．Private a As Integer   D．Static a%  （15）表达式Int(Rnd(0)*50)所产生的随机数范围是（　　）。   A． （0，50）   B． （1，50）   C． （0，49）   D． （1，49）  （16）设x=5，执行语句Print x=x+10，窗体上显示的是（　　）。   A．15  B．5  C．True  D．False  （17）设有如下数组声明语句：   Dim arr（-2 to 2,0 to 3）AS Integer   该数组所包含的数组元素个数是（　　）。   A．20  B．16  C．15 D．12  （18）现有由多个单选按钮构成的控件数组，用于区别该控件数组中各控件的属性是（　　）。   A．Name   B．Index   C．Caption   D．Value  （19）设有分段函数：  A．Select Case x 　　　　　Case Is<0 　　　　　　　　Y=5 　　　　　Case Is <=5,Is>0  　　　　　　　　Y=2*x  　　　　　Case else 　　End select B．If x<0 Then 　　　　y=5 　　Elseif x<=5 then 　　　　y=2*x 　　Else  　　　　y=x*x+1 　　End if C．y=iif｛x<0.5，iif(x<=5.2*x，x*x+1) ｝ D．If x<0 Then y=5 　　If x<=5 and x>=0 then y=2*x 　　If x>5 then y=x*x+1 （20）设程序中有如下语句：  X=inputbox(“输入”,“数据”,100)  Print X  运行程序，执行上述语句，输入5并单击输入对话框上的“取消“按钮，则窗体上输出（　　）。  A．0  B．5  C．100  D．空白 （21）现有如下一段程序：  Option Base 1  Private Sub Command1_Click()  Dim a  a=Array(3,5,7,9)  x=1  For i=4 to 1 Step -1  S=s+a ( i )*x  x=x*10  Next  Print s  End Sub  执行程序，单击Command1命令按钮，执行上述事件过程，输出结果是（　　）。  A．9753  B．3579  C．35  D．79 （22）设有一个命令按钮Commsand1的事件过程以及一个函数过程。程序如下：  Private Sub Command1_Click(0  Static x As Integer  x=f(x+5)  Cls  Print x  End Sub  Private Funtion f(x As integer)As Integer  F=x+x  End Funtion  连续单击命令按钮3次，第3次单击命令按钮后，窗体上显示的计算结果是（　　）。  A．10  B．30  C．60  D．70 （23）以下关于菜单设计的叙述中错误的是（　　）。  A．各菜单项可以构成控件数组  B．每个菜单项可以看成是一个控件  C．设计菜单是，菜单项的“有效” 表选，即’□有效(E)’,表示该菜单项不显示  D．菜单项只响应单击事件 （24）以下关于多窗体的叙述中，正确的是（　　）。  A．任何时刻，只有一个当前窗体  B．向一个工程添加多个窗体，存盘后生成一个窗体文件  C．打开一个窗体时，其他窗体自动关闭  D．只有第一个建立的窗体才是启动窗体 （25）窗体上有一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮，并有如下事件过程：  Private Sub Command1_Click()  CommandDialog1.DefaultExt=”doc”  CommandDialog1.FileName=”VB.txt”  CommandDialog1.FileName=”All(*.*)|*.*|Word|*.Doc|”  CommandDialog1.FileName=1  CommandDialog1.ShowSave  End Sub  运行上述程序，如下叙述正确的是（　　）。  A． 打开的对话框中文件“保存类型”框中显示“All(*.*)”  B． 实现保存文件的操作，文件名是VB.txt  C． DefaultExt属性与FileName属性所指明的文件类型不一致，程序出错  D． 对话框的Filter属性没有指出txt类型，程序运行出错 （26）设程序中有如下数组定义和过程调用语句：  Dim a(10) As Integer  ……  Call p(a)  如下过程定义中，正确的是（　　）。  A． Private Sub p(a As Integer)  B． Private Sub p(a() As Integer)  C． Private Sub p(a(10) As Integer)  D． Private Sub p(a(n) As Integer) （27）若要获得组合框中输入的数据，可使用的属性是（　　）。  A．Listindex  B．Caption  C．Text  D．List （28）在窗体上画两个名称分别为Text1、Text2的文本框。Text1的Text属性为“Database”， 如图所示。  现有如下事件过程： Private Sub Text1_Change()  Text2.Text=Mid(Text1,1,1)  End Sub  运行程序，在文本框Text1中原有字符之前输入a，Text2中显示的是：（　　）。  A． DataA  B． DataB  C． aData   D． aBase （29）有如下程序：  Option Base !  Private Sub Command1_Click()  Dim arr(10)  arr=Array(10,35,28,90,54,68,72,90)  For Each a In arr  If a>50 Then  Sum=Sun+a  End If  Next a  End Sub  运行上述程序时出现错误，错误之处是（　　）。  A． 数组定义语句不对，应改为Dim arr  B． 没有指明For循环的终值  C． 应在For语句之前增加Sum=0  D． Next a应改为Next （30）要求产生10个随机整数，存放在数组arr中，从键盘输入要删除的数组元素的下标，将该元素中的数组删除，后面元素中的数据依次前移，并显示删除后剩余的数据，现有如下程序：  Option Base 1  Private Sub Command1_Click()  Dim arr(10) AS Integer   For i=1 to 10  arr(i)=int (Rnd*100)  Print arr(i);  Next  x=inputbox(“输入1到10的一个整数：”)  For i=x+1 to 10 ‘循环2  arr(i-1)=arr(i)  Next  For i=1 to 10 ‘循环3  Print arr(i);  Next  End Sub  程序运行后发现显示的结果不正确，应该进行的修改是（　　）。  A． 产生随机数时不使用Int函数  B． 循环2的初始值应为i=x  C． 数组定义改为Dim a(11) as integer  D． 循环3是循环终值应改为9 （31）使用驱动器列表框Drive1、目录列表框Fiel1时，需要设置控件的同步，以下能够正确设置两个同步的命令是（　　）。  A．Dir1.path=Drive.pate  B．File1.path=Dir1.pate  C．File1.path=Drive1.pate  D．Drive1.Drive=Dir1.pate （32） 以下关于弹出式菜单的叙述中，错误的是（　　）。  A．一个窗体只能有一个弹出式菜单  B．弹出式菜单在菜单编辑器中建立  C．弹出式菜单的菜单名（主菜单项）的“可见”属性通常设置为False  D．弹出式菜单通过窗体的PopupMenu方法显示 （33）有如下程序：  Private Type stu  X As String  Y As Integer  End Type  Private Sub Command1_Click()  Dim a As stu  a.x=”ABCD”  a.y=12345  Print a  End Sub\  程序运行时出现错误，错误的原因是（　　）。  A． Type定义语句没有放在 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 模块中  B． 变量声明语句有错  C． 赋值语句不对  D． 输出语句Print不对 （34）在窗体上画两个名称分别为Text1、Text2的文本框，一个名称为Lable1的标签。窗体外观如图a所示。要求当改变任一个文本框的内容，就会将该文本框的内容显示在标签中，如图b所示。实现上述功能如下：  Pivate Sub Text1_Change()  Call ShowText(Text1)  End Sub  Private Sub Text2 Change()  Call ShowText(Text2)  End Sub  private Sub showText(T As TextBox)  Label1.Caption=”文本框中的内容是：”&T.Text  Enb Sub  关于上述程序，以下叙述中错误的是（　　）。  A． ShowText过程的参数类型可以是Control  B． ShowText过程的参数类型可以是Variant  C． 两个过程调用语句有错，应分别改为Call ShowText（Text1.Text）、CallShowText（Text2.Text）  D． ShowText过程中的T是控件变量 （35）设有打开文件的语句如下：  Open“test.dat” For Random As #1  要求把变量a中的数据保存到该文件中，应该使用的语句是（　　）。  A． Inpur #1，a  B． Write #1.a  C． Put #1，.a  D． Get #1..a 二、 填空题（每空2分，共30分） 请将每空的正确答案写在答题卡【1】~【15】序号的横线上，答在试卷上不得分。 （1） 在长度为n的顺序存储的线性表中删除一个元素，最坏情况下需要移动表中的元素个数为 （　　）。 （2）设循环队列的存储空间为Q（1：30），初始状态为Front=rear=30.现经过一系列入队与退队运算后，front=16，rear=15，则循环队列中有（　　）个元素。 （3）数据库管理系统提供的数据语言中，负责数据的增、删、改和查询的是（　　）。 （4）在将E-R图转换到关系模式时，实体和联系都可以表示成（　　）。 （5）常见的软件工程方法有结构化方法和面向对象方法，类、继承以及多态性等概念属于（　　）。 （6）下面的事件过程执行时，可以把Text1文本框中的内容写到文件“file1.txt“中去。请填空。 Pivate Sub Command1_Click() Open “file1.txt”For    （　6　）   As#1 print    （　7　）   Text1.Text Close #1 End Sub （7）设窗体上有一个名称为Lable1的标签。程序运行时，单击鼠标左键，再移动鼠标，鼠标的位置坐标会实时地显示在Lable1标签中：单击鼠标右键则停止实时显示，并将标签中内容清除。下面的程序可实现这一功能，请填空。 Dim Down As Boolean Private Sub Form _MouseDown(Button As Integer，Shift  As Integer，x As Single，Y As Single) Select Case   （　8　）    Case 1 Down=True Case 2 Down=False End Select End Sub Private Sub Form _MouseMove(Button As Integer，Shift  As Integer，X As Single，Y As Single) If   （　9　）       （　10　）   =”X=”& X &”  Y=”& Y Else Label1.Caption=”” End if Sub （8）窗体上有List1、List2两个列表框，程序运行时，在两个列表框中分别选中1个项目，如图a所示，单击名称为Command1的“交换”按钮，则把选中的项目互换，互换后的位置不限，如图b所示。下面的程序可实现这一功能，请填空。 Private Sub Command1_Click() If List1.Text=”” or List2.Text=”” Then MsgBox”请选择交换的物品！” Else List1.AddItem List2.Text List2.RemoveItem    （　11　）         （　12　）    List1.RemoveItem List1.ListIndex End If End Sub （9）设窗体上有Text1文本框和Command命令按钮，并有以下程序： Private Sub Command1_Click() Iemp$=“” For k=1 To Len(Text1) Ch$=Mid(Text1,k,1) If Not found(temp,ch)Then Temp=temp&    （　13　）    End if Next k Text1=   （　14　）    End Sub Private Function found(str As String,ch As String)As Boolean For K=1 To Len(str) If ch=Mid(Str,k,1) Then  Found=    （　15　）    Exit Function End If Next k Found=False End Function 运行时，在文本框中输入若干英文字母，然后单击命令按钮，则可以删去文本框中所有重复的字母。例如，若文本框中原有字符串为“abcddbbc”，则单击命令按钮后文本框中字符串为“abcd“。其中函数found的功能是判断字符串str中是否有字符ch，若有，函数返回True，否则返回False。请填空。 91UP快学堂 :www.91up.com