2012年3月和9月NCRE二级VB笔试试卷.doc

2012年9月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计一、 选择题1、下列链表中，其逻辑结构属于非线性结构的是A、二叉链表B、循环链表C、双向链表D、带链的栈2、设循环队列的存储空间为Q(1:35)，初始状态为front=rear=35。现经过一系列入队与退队运算后，front=15,rear=15,则循环队列中的元素个数为A、15B、16C、20D、0或353、下列关于栈的叙述中，正确的是A、栈底元素一定是最后入栈的元素B、栈顶元素一定是最先入栈的元素C、栈操作遵循先进后出的原则D、以上三种说法都不对4、在关系数据库中，用来表示实体间联系的是A、属性B、二维表C、网状结构D、树状结构5、公司中有多个部门和多名职员，每个职员只能属于一个部门，一个部门可以有多名职员，则实体部门和职员间的联系是A、1:1联系B、m:1联系C、1:m联系D、m:n联系6、有两个关系 R和S如下：则由关系R得到关系S的操作是A、选择B、投影C、自然连接D、并7、数据字典（DD）所定义的对象都包含于A、数据流图（DFD图）B、程序流程图C、软件结构图D、方框图8、软件需求规格说明书的作用不包括A、软件验收的依据B、用户与开发人员对软件要做什么的共同理解C、软件设计的依据D、软件可行性研究的依据9、下面属于墨盒测试的方法是A、语句覆盖B、逻辑覆盖C、边界值分析D、路径覆盖10、下面不属于软件设计阶段任务的是A、软件总体设计B、算法设计C、制定软件确认测试计划D、数据库设计11、以下叙述中错误的是A、.vbp文件是工程文件，一个工程可以包含.bas文件B、.frm文件是窗体文件，一个窗体可以包含.bas文件C、.vbp文件是工程文件，一个工程可以由多个.frm文件组成D、.vbg文件是工程组文件，一个工程组可以由多个工程组成12、以下叙述中错误的是A、在Visual Basic的窗体中，一个命令按钮是一个对象B、事件是能够被对象识别的状态变化或动作C、事件都是由用户的键盘操作或鼠标操作触发的D、不同的对象可以具有相同的方法13、设x=3.3，y=4.5，表达式x-Int(x)+Fix(y)的值是A、3.5B、4.8C、4.3D、4.714、窗体上有一个名称为Command1的命令按钮，其中部分代码如下：Private Sub Command1_Click( ) Dim a(10) As Integer Dim n As Integer Call calc(a,n)End Subcalc过程的的首行应该是A、Sub calc（x() As Integer,n As Integer）B、Public Sub calc(x() As Integer)C、Private Sub calc(a(n) As Integer,n As Integer)D、Public Sub calc(a As Integer, n As Integer)15、设有如下程序Sub f(x As Integer，ByVal y As Integer) x=2*x y=y+xEnd SubPrivate Sub Command1_Click() Dim a As Integer , b As Integer a=6 ; b=35 call f(a,b) print a,bEnd Sub程序运行后，单击命令按钮Command1，输出结果为A、647B、1247C、635D、123516、以下叙述中正确的是A、窗体及窗体上所有控件的事件过程代码都保存在窗体文件中B、在工程中只有启动窗体可以建立菜单C、窗体名称必须与窗体文件的名称相同D、程序一定是从某个窗体开始执行的17、窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下：Private Sub Command1_Click() Static x As Variant n=0 x=array(1,2,3,4,5,6,7,8,9,10) While n=4 x(n)=x/(n+5) Print x(n); N=n+1WendEnd Sub运行程序，单击命令按钮Command1，窗体上显示的是A、12345B、678910C、23456D、6234518、窗体上有一个名称为Label1的标签和一个名称为Command1的命令按钮，命令按钮的单击事件过程如下：Private Sub Command1_click() x=InputBox(“输入x: ”，0) y=InputBox(“输入y: ”，0) Label1.caption=x+yEnd Sub运行程序后，单击命令按钮，在输入对话框中分别输入2，3，运行的结果是A、程序运行有错误，数据类型不匹配B、程序运行有错误，InputBox函数的格式不对C、在Label1中显示5D、在Label1中显示2519、窗体上有一个名称为Shape1的形状控件和由三个命令按钮组成的名称cmdDraw的控件数组。窗体外观如图所示（从上到下的3个命令按钮下标分别为0、1、2）。有事件过程如下：Private Sub cmdDraw_Click(Index As Integer) Select Case Index Case 0 Shape1.shape=0 Case 1 Shape1.shape=1 Case 2 Shape1.Shape=3 End SelectEnd Sub当单击“画圆”命令按钮时，会执行cmdDraw_Click事件过程。以下叙述中正确的是A、Case2分支有错，此Case后面表达式的值应该与赋给Shape1.Shape的值一致B、程序运行有错，控件数级别的下标应该从1开始C、Index是形状控件的参数D、程序正常运行，形状控件被显示为圆形20、如果一个正整数从高位到低位上的数字依次递减，则称其为降序数（如：9632是降序数，而8156则不是降序数）。现编写如下程序，判断输入的正整数是否为降序数。Private Sub Command1_Click() Dim n As Long Dim flag As Boolean n=InputBox(“输入一个正整数”) s=Trim(Str(n) For i=2 To Len(s) If Mid(s,i-1,1)0 x=x-3 x=iif(int(x/5)=x/5,x+2,x) loop print xEnd Sub程序运行后，单击命令按钮Command1，输出结果为A、0B、-1C、-2D、-324、以下关于通用对话框中叙述中，错误的是A、若没有指定InitDir属性值，则起始目录为当前目录B、用一个通用对话框控件可以建立几种不同的对话框C、FileTitle属性指明了文件对话框中所选择的文件名D、文件对话框用属性FilterIndex指定默认过滤器，它是一个从0开始的整数25、窗体上有一个名为Command1的命令按钮，并有如下程序：Private Command1_Click() Dim m As Integer , n As Integer m=InputBox(“输入第一个数”) n=InputBox(“输入第二个数”) Do While mn Do While mn m=m-n Loop Do While nm n=n-m Loop Loop Print mEnd Sub该程序的功能是A、求数值m和n的最大公约数B、求数值m和n的最小公倍数C、求数值m和n 中的较大数D、求数值m和n中的较小数26、窗体上有一个名称为Command1的命令按钮，其单击事件过程及有关函数过程如下：Private Sub Command1_Click() Dim n As Integer n=add(5,10) Print nEnd SubFunction add(v1 As Integer , v2 As Integer , Optional v3) As Integer If Not IsMissing(V3) Then add=v1+v2+v3 Else add=v1+v2 End IfEnd Function运行程序，单击命令按钮，以下叙述中正确的是A、程序不能正常运行，因为函数add的参数定义有错B、程序不能正常运行，因为函数定义与函数调用语句的参数个数不匹配C、程序能正常运行，结果是在窗体上显示15D、程序能正常运行，结果是在窗体上显示510V327、目录列表框Path属性所表示的含义是A、当前驱动器或指定驱动器上的路径B、当前驱动器或指定驱动器上的某目录下的文件列表C、根目录下的文件列表D、指定路径下的文件列表28、以下关于函数过程中叙述中错误的是A、函数过程一定有返回值B、函数过程一定有参数C、函数过程可以在窗体模块和标准模块中定义D、函数过程参数的类型与返回值的类型无关29、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Public Eunm s a=4 b=3End EnumPrivate Sub Command1_Click( ) Dim x As Integer x=a If x=3 Then MsgBox “Pass!”End Sub运行程序，其结果是A、运行错误，因为Enum定义有错B、运行错误，因为x=a类型不匹配C、运行正常结束，不显示任何信息D、运行正常，显示内容为“Pass！”的信息框30、设有如下程序Option Base 1Private Sub Form_Click( ) Dim a(5) As String , i As Integer For i=1 To 5a(i)=Chr(Asc(“A”)+i)Call f(a,i) Next iEnd SubSub f(ta() As String , n As Integer) Dim i As Integer For i=1 To Print ta(i); Next iEnd Sub对上述程序，以下叙述中正确的是A、程序有错，因为在过程f的定义中数组参数格式不正确B、程序可正常运行，输出内容的第一行是一个字母“A”C、程序可正常运行，输出内容的第一行是一个字母“B”D、程序可正常运行，输出内容的第一行是数字6531、窗体上有一个名称为Picture1的图片控件，一个名称为Timer的计时器控件，其Interval属性值为1000。要求每隔5秒钟图片框右移100。现编写程序如下：Private Sub Timer1_Timer( ) Static n As Integer n=n+1 If (n/5)=Int(n/5) And Picture1.LeftForm1.Width Then Picture1.Left=Picture1.Left+100 End IfEnd Sub分析以上程序，以下叙述中正确的是A、程序中没有设置5秒钟的时间，所以不能每隔5秒移动图片框一次B、此程序运行时图片框位置保持不动C、此程序运行时图片框移动方向与题目要求相反D、If语句条件中“Picture1.LeftForm1.Width”用于限制图片框移动的范围32、窗体上有一名称为Command1的命令按钮，其事件过程如下：Private Sub Command1_Click( ) Dim i As Integer,j As Integer , k As Integer Dim s As Double s=0 ; i=1 ; j=0 ; k=-1 Do While i6 s=s+k*（j/i） i=i+1 j=j+1 k=-kLoopPrint sEnd Sub以上程序所计算的表达式是A、1/2-2/3+3/4-4/5B、-1/2+2/3-3/4+4/5C、1-1/2+2/3-3/4+4/5D、-1+1/2-2/3+3/4-4/533、窗体上有一个名称为Command1的命令按钮，其单击事件过程如下：Private Sub Command1_Click( ) Dim a,b(2,3) As Integer a=Array(3,7,5,11,31,43,17,62,9,23,37,41) i=0 Do While im Then m=a(i) End IfNext If 【 13 】ThenPrint “没有满足条件的数”ElsePrint “满足条件的数是”;mEnd IfEnd Sub9. 在窗体上画一个名称为Timer1的计时器控件，其Enabled属性值为False，Interval属性值设为100。要求程序运行后，当鼠标在窗体上移动时，沿鼠标经过的轨迹画出一系列半径为100的小圆。其效果如图所示。以下是实现上述功能的程序，请填空。Dim a As Integer, b As IntegerPrivate Sub Form_【 14 】(Button As Integer,Shift As Integer,X As Single,Y As Single) a=X b=Y Timer1.Enabled=【 15 】End SubPrivate Sub Timer1_timer( )Form1.Cirle(a,b),100 以(a,b)为圆心画一个半径为100的圆End Sub答案12345678910ADCBCAADCC11121314151617181920BCCADABDDB21222324252627282930BABAACABDC3132333435DACBA填空题：1. 62. 203. 逻辑独立性4. 选择5. 系统6. Opt1(i)7. X8. List1.selected(i)9. Val(List1.list(i)10. Str (s)11. 18112. And13. m=014. MouseMove15. true2012年 3月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计（考试时间90 分钟，满分100分） 一、选择题（每小题2分，共70分） 下列各题A） 、B） 、C） 、D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。 （1）下列叙述中正确的是（ ） 。A）循环队列是队列的一种链式存储结构B）循环队列是队列的一种顺序存储结构C）循环队列是非线性结构D）循环队列是一种逻辑结构答案：B（2）下列叙述中正确的是A）栈是一种先进先出的线性表B）队列是一种后进先出的线性表C）栈与队列都是非线性结构D）以上三种说法都不对答案：D（3）一棵二叉树共有25个结点，其中5个是叶子结点，则度为1的结点数为A）16B）10C）6D）4答案：A（4）在下列模式中，能够给出数据库物理存储结构与物理存取方法的是A）外模式B）内模式C）概念模式D）逻辑模式答案：B（5）在满足实体完整性约束的条件下A）一个关系中应该有一个或多个候选关键字B）一个关系中只能有一个候选关键字C）一个关系中必须有多个候选关键字D）一个关系中可以没有候选关键字答案：A（6）有三个关系R、S和T如下：RSTABCABCABCa12a12b21b21d21c31c31则由关系R和S得到关系T的操作是A）自然连接B）并C）交D）差（7）软件生命周期中的活动不包括A）市场调研B）需求分析C）软件测试D）软件维护答案：A（8）下面不属于需求分析阶段任务的是A）确定软件系统的功能需求B）确定软件系统的性能需求C）需求规格说明书评审D）制定软件集成测试计划 答案：D（9）在黑盒测试方法中，设计测试用例的主要根据是A）程序内部逻辑B）程序外部功能C）程序数据结构D）程序流程图答案：B（10）在软件设计中不使用的工具是A）系统结构图B）PAD图C）数据流图（DFD图）D）程序流程图答案：C（11）以下合法的VB变量名是A）caseB）name10C）t-nameD）x*y答案：B（12）设x是小于10的非负数。对此叙述，以下正确的VB表达式是A）0x10B）0=x10C）x0 And x=0 Or x=10答案：C（13 以下关于窗体的叙述中，错误的是A）窗体的Name属性用于标识一个窗体B）运行程序时，改变窗体大小，能够触发窗体的Resize事件C）窗体的Enabled属性为False时，不能响应单击窗体的事件D）程序运行期间，可以改变Name属性值答案：D（14）下面定义窗体级变量a的语句中错误的是A）Dim a%B）Private a%C）Private a As IntegerD）Static a%答案：D（15）表达式Int(Rnd(0)*50)所产生的随机数范围是A）(0,50)B）(1,50)C）(0,49)D）(1,49)答案：C（16）设x=5，执行语句Print x = x + 10，窗体上显示的是A）15B）5C）TrueD）False答案：D（17）设有如下数组声明语句：Dim arr(-2 To 2, 0 To 3) As Integer该数组所包含的数组元素个数是A）20B）16C）15D）12答案：A（18）现有由多个单选按钮构成的控件数组，用于区别该控件数组中各控件的属性是A）NameB）IndexC）CaptionD）Value答案：B（19）设有分段函数： 以下表示上述分段函数的语句序列中错误的是A）Select Case xB）If x 0 Then Case Is 0y = 5 y = 5ElseIf x = 5 Then Case Is 0y = 2 * x y = 2 * xElse Case Elsey = x * x + 1 y = x * x + 1End IfEnd SelectC）y = IIf(x 0, 5, IIf(x = 5, 2 * x, x * x + 1)D）If x 0 Then y = 5If x = 0 Then y = 2 * xIf x 5 Then y = x * x + 1答案：A（20）设程序中有如下语句： x = InputBox(输入, 数据, 100)Print x运行程序，执行上述语句，输入5并单击输入对话框上的“取消”按钮，则窗体上输出A）0B）5C）100D）空白答案：D（21）现有如下一段程序：Option Base 1Private 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 sEnd Sub执行程序，单击Command1命令按钮，执行上述事件过程，输出结果是A）9753B）3579C）35D）79答案：B（22）设有一个命令按钮Command1的事件过程以及一个函数过程，程序如下： Option Base 1Private Sub Command1_Click() Static x As Integer x = f(x + 5) Cls Print xEnd SubPrivate Function f(x As Integer) As Integer f = x + xEnd Function连续单击命令按钮3次，第3次单击命令按钮后，窗体上显示的计算结果是A）10B）30C）60D）70答案：D（23）以下关于菜单设计的叙述中错误的是A）各菜单项可以构成控件数组B）每个菜单项可以看成是一个控件C）设计菜单时，菜单项的“有效”未选，即，表示该菜单项不显示D）菜单项只响应单击事件答案：C（24）以下关于多窗体的叙述中，正确的是A）任何时刻，只有一个当前窗体B）向一个工程添加多个窗体，存盘后生成一个窗体文件C）打开一个窗体时，其他窗体自动关闭D）只有第一个建立的窗体才是启动窗体答案：A（25）窗体上有一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮，并有如下事件过程：Private Sub Command1_Click() CommonDialog1.DefaultExt=doc CommonDialog1.FileName=VB.txt CommonDialog1.Filter = All(*.*)|*.*|Word|*.Doc| CommonDialog1.FilterIndex = 1 CommonDialog1.ShowSaveEnd Sub运行上述程序，如下叙述中正确的是A）打开的对话框中文件“保存类型”框中显示“All(*.*)”B）实现保存文件的操作，文件名是VB.txtC）DefaultExt属性FileName属性所指明的文件类型不一致，程序出错D）对话框的Filter属性没有指出txt类型，程序运行出错答案：A（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)答案：B（27）若要获得组合框中输入的数据，可使用的属性是A）ListIndexB）CaptionC）TextD）List答案：C（28） 在窗体上画两个名称分别为Text1、Text2的文本框，Text1的属性为“DataBase”，如图所示。现有如下事件过程：Private Sub Text1_Change() Text2.Text = Mid(Text1, 1, 5)End Sub运行程序，在文本框Text1中原有字符之前输入a，Text2中显示的是A）DataAB）DataBC）aDataD）aBase（29）有如下程序：Option Base 1Private 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 = Sum + a End If Next aEnd Sub运行上述程序时出现错误，错误之处是A）数组定义语句不对，应改为Dim arrB）没有指明For循环的终值C）应在For语句之前增加Sum = 0D）Next a应改为Next答案：A（30）要求产生10个随机整数，存放在数组arr中。从键盘输入要删除的数组元素的下标，将该元素中的数据删除，后面元素中的数据依次前移，并显示删除后剩余的数据。现有如下程序：Option Base 1Private Sub Command1_Click() Dim arr(10) As Integer For i = 1 To 10 arr(i) = Int(Rnd * 100) Print arr(i); Next Print X = InputBox(输入1-10的一个整数：) For i = X + 1 To 10 arr(i - 1) = arr(i) Next For i = 1 To 10 Print arr(i); NextEnd Sub程序运行后发现显示的结果不正确。应该进行的修改是A）产生随机数时不使用Int函数B）循环2的初值应为i = xC）数组定义改为Dim a(11) As IntegerD）循环3的循环终值应改为9答案：D（31）使用驱动器列表框Drive1、目录列表框Dir1、文件列表框File1时，需要设置控件的同步，以下能够正确设置两个控件同步的命令是A）Dir1.Path = Drive1.PathB）File1.Path = Dir1.PathC）File1.Path = Drive1.PathD）Drive1.Drive = Dir1.Path答案：B（32）以下关于弹出式菜单的叙述中，错误的是A）一个窗体只能有一个弹出式菜单B）弹出式菜单在菜单编辑器中建立 C）弹出式菜单的菜单名（主菜单项）的“可见”属性通常设置为False D）弹出式菜单通过窗体的PopupMenu方法显示 答案：A（33）有如下程序：Private Type stu X As String Y As IntegerEnd TypePrivate Sub Command1_Click() Dim a As stu a.X = ABCD a.Y = 12345 Print aEnd Sub程序运行时出现错误。错误的原因是A）Type定义语句没有放在标准模块中B）变量声明语句有错C）赋值语句不对D）输出语句Print不对答案：D（34）在窗体上画两个名称分别为Text1、Text2的文本框，一个名称为Label1的标签，窗体外观如图a所示。要求当改变任一个文本框的内容，就会将该文本框的内容显示在标签中，如图b所示。实现上述功能的程序如下： 图a 图bPrivate Sub Text1_Change() Call ShowText(Text1)End SubPrivate Sub Text2_Change() Call ShowText(Text2)End SubPrivate Sub ShowText(T As TextBox) Label1.Caption = 文本框中的内容是： & T.TextEnd Sub关于上述程序，以下叙述中错误的是A）ShowText过程的参数类型可以是ControlB）ShowText过程的参数类型可以是VariantC）两个过程调用语句有错，应分别改为Call ShowText(Text1.Text)、Call ShowText(Text2.Text)D）ShowText过程中的T是控件变量答案：C（35）设有打开文件的语句如下：Open text.dat For Random As #1要求把变量a中的数据保存到该文件中，应该使用的语句是A）Input #1, aB）Write #1, aC）Put #1, aD）Get #1, a答案：C二、填空题(每空2分，共30 分) 请将每空的正确答案写在答题卡【l】至【15】序号的横线上，答在试卷上不得分。（1）在长度为n的顺序存储的线性表中删除一个元素，最坏情况下需要移动表中的元素个数为 【1】 。答案：n-1（2）设循环队列的存储空间为Q(1:30)，初始状态为front=rear=30，现经过一系列入队与退队运算后，front=16，rear=15，则循环队列中有 【2】 个元素。答案：29（3）数据库管理系统提供的数据语言中，负责数据的增、删、改和查询的是 【3】 。答案：数据操纵语言或DML（4）在将E-R图转换到关系模式时，实体和联系都可以表示成 【4】 。答案：关系（5）常见的软件工程方法有结构化方法和面向对象方法，类、继承以及多态性等概念属于 【5】 。答案：面向对象方法（6）下面的事件过程执行时，可以把Text1文本框中的内容写到文件“file1.txt”中去。请填空。Private Sub Command1_Click() Open file1.txt For 【6】 As #1 Print 【7】 , Text1.Text Close #1End Sub答案：【6】Output【7】 #1（7）设窗体上有一个名称为Label1的标签，程序运行时，单击鼠标左键，再移动鼠标，鼠标的位置坐标会实时地显示在Label1标签中；单击鼠标右键则停止实时显示，并将标签中内容清除。下面的程序可实现这一功能，请填空。Dim down As BooleanPrivate 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 SelectEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If 【9】 Then 【10】 = X= & X & Y= & Y Else Label1.Caption = End IfEnd Sub答案：【8】Button【9】down = True或down【1