月计算机二级vb试题及答案_第1页
月计算机二级vb试题及答案_第2页
月计算机二级vb试题及答案_第3页
月计算机二级vb试题及答案_第4页
月计算机二级vb试题及答案_第5页
已阅读5页,还剩11页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、2012年3月全国计算机等级考试二级笔试试卷  Visual Basic语言程序设计  (考试时间90分钟,满分100分)  一、选择题(每小题2分,共70分)  下列各题A)、B)、C)、D)四个选项中,只有一个选项是正确的,请将正确选项涂在答题卡相应位置上,答在试卷上不得分。  (1) 下列叙述正确的是()。  A) 循环队列是队列的一种链式存储结构  B循环队列是队列的一种顺序存储结构  C循环队列是非线性结构  D循环队列是一种逻辑结构  (2)下列叙述正确

2、的是()。  A) 栈是一种先进先出的线性表  B队列是一种后进后出的线性表  C栈和队列都是非线性结构  D以上三种说法都不对  (3)一棵二叉树共有25个结点,其中5个是叶子结点,则度为1的结点数为()。  A16  B10  C6  D4  (4)在下列模式中,能够给出数据库物理存储结构与物理存取方法的是()。  A外模式  B内模式  C概念模式  D逻辑模式  (5)在满足实体完整性约束的条件下()。  A一个关系中

3、应该有一个或多个候选关键字  B一个关系中只能有一个候选关键字  C一个关系中不许有多个候选关键字  D一个关系中可以没有候选关键字  (6)有三个关系R、S和T如下:()。  则由关系R和S得到关系T的操作时  A自然连接  B并  C交  D差  (7)软件生命周期中的活动不包括()。  A市场调研  B需求分析  C软件测试  D软件维护  (8)下面不属于需求分析阶段任务的是()。  A确定软件系统的功能需求  B确定

4、软件系统的性能需求  C需求规格说明书评审  D制定软件集成测试计划  (9)在测试方法中,设计测试用例的主要根据是()。  A程序内部逻辑  B程序外部功能  C程序数据结构  D程序流程图  (10)在软件设计中不使用的工具是()。  A系统结构图  BPAD图  C数据流图(DFD图)  D程序流程图  (11)以下合法的VB变量名是()。  Acase Bname10 Ct-name Dx*y  (12)设x

5、是小于10的非负数。对此陈述,以下正确的VB表达式是()。  A0x<10  B0<=x<10  Cx>=0 and x<10  Dx>=0 or x<=10  (13)以下关于窗体的叙述中错误的是()。  A窗体的Name属性用于标识一个窗体  B运行程序时,改变窗体大小,能够触发窗体的Resize事件  C窗体的Enabled属性为False时,不能响应单击窗体的事件  D程序运行期间,可以改变Name属性值 

6、 (14)下面定义窗体级变量a的语句中错误的是()。  ADim a%  Bprivate a%  CPrivate a As Integer  DStatic 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,窗体上显示的是(

7、)。  A15 B5 CTrue DFalse  (17)设有如下数组声明语句:  Dim arr(-2 to 2,0 to 3)AS Integer  该数组所包含的数组元素个数是()。  A20 B16 C15D12  (18)现有由多个单选按钮构成的控件数组,用于区别该控件数组中各控件的属性是()。  AName  BIndex  CCaption  DValue  (1

8、9)设有分段函数: ASelect Case xCase Is<0Y=5Case Is <=5,Is>0 Y=2*x Case elseEnd selectBIf x<0 Theny=5Elseif x<=5 theny=2*xElse y=x*x+1End ifCy=iifx<0.5,iif(x<=5.2*x,x*x+1) DIf x<0 Then y=5If x<=5 and x>=0 then y=2*xIf x>5 then y=x*x+1(20)设程序中有如下语句: X=inputbox(“输入”,“数据”,

9、100) Print X 运行程序,执行上述语句,输入5并单击输入对话框上的“取消“按钮,则窗体上输出()。 A0 B5 C100 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 E

10、nd Sub 执行程序,单击Command1命令按钮,执行上述事件过程,输出结果是()。 A9753 B3579 C35 D79 (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 In

11、teger F=x+x End Funtion 连续单击命令按钮3次,第3次单击命令按钮后,窗体上显示的计算结果是()。 A10 B30 C60 D70 (23)以下关于菜单设计的叙述中错误的是()。 A各菜单项可以构成控件数组 B每个菜单项可以看成是一个控件 C设计菜单是,菜单项的“有效” 表选,即有效(E),表示该菜单项不显示 D菜单项只响应单击事件 (24)以下关于多窗体的叙述中,正确的是()。 A任何时刻,只有一个当前窗体 B向一个工程添加多个窗体,存盘后生成一个窗体文件 C打开一个窗体时,其他窗体自动关闭 D只有第一个建立的窗体才是启

12、动窗体 (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 运行上述程序,如下叙述正确的是(

13、)。 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&#

14、160;Private Sub p(a() As Integer) C Private Sub p(a(10) As Integer) D Private Sub p(a(n) As Integer) (27)若要获得组合框中输入的数据,可使用的属性是()。 AListindex BCaption CText DList (28)在窗体上画两个名称分别为Text1、Text2的文本框。Text1的Text属性为“Database”, 如图所示。 现有如下事

15、件过程: 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,

16、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中,从键盘输入要删除的数组元素的下标,将该元素中的数组删除,后面

17、元素中的数据依次前移,并显示删除后剩余的数据,现有如下程序: 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)

18、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时,需要设置控件的同步,以下能够正确设置两个同步的命令是()。 ADir1.path=Drive.pat

19、e BFile1.path=Dir1.pate CFile1.path=Drive1.pate DDrive1.Drive=Dir1.pate (32) 以下关于弹出式菜单的叙述中,错误的是()。 A一个窗体只能有一个弹出式菜单 B弹出式菜单在菜单编辑器中建立 C弹出式菜单的菜单名(主菜单项)的“可见”属性通常设置为False D弹出式菜单通过窗体的PopupMenu方法显示 (33)有如下程序: Private Type stu X As String Y As Integer End Type Private&

20、#160;Sub Command1_Click() Dim a As stu a.x=”ABCD” a.y=12345 Print a End Sub 程序运行时出现错误,错误的原因是()。 A Type定义语句没有放在标准模块中 B 变量声明语句有错 C 赋值语句不对 D 输出语句Print不对 (34)在窗体上画两个名称分别为Text1、Text2的文本框,一个名称为Lable1的标签。窗体外观如图a所示。要求当改变任一个文本框的内容,就会将该文本框的内容显示在标签中,如图b所示。实现上述功

21、能如下: 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 ShowTe

22、xt过程的参数类型可以是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

23、.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图转换到关系模式时,实体和联系都可以

24、表示成()。(5)常见的软件工程方法有结构化方法和面向对象方法,类、继承以及多态性等概念属于()。(6)下面的事件过程执行时,可以把Text1文本框中的内容写到文件“file1.txt“中去。请填空。Pivate Sub Command1_Click()Open “file1.txt”For    (6)   As#1print    (7)   Text1.TextClose #1End Sub(7)设窗体上有一个名称为Lable1的标签。程序运行时,单击鼠标左键,再移动鼠标,鼠标的

25、位置坐标会实时地显示在Lable1标签中:单击鼠标右键则停止实时显示,并将标签中内容清除。下面的程序可实现这一功能,请填空。Dim Down As BooleanPrivate Sub Form _MouseDown(Button As Integer,Shift  As Integer,x As Single,Y As Single)Select Case   (8)   Case 1Down=TrueCase 2Down=FalseEnd SelectEnd SubPrivate Sub Form _MouseMove(Button As Integer,Shift  As Integer,X As Single,Y As Single)If   (9)      (10)   =”X=”& X &”  Y=”& YElseLabel1.Caption=”End ifSub(8)窗体上有List1、List2两个列表框,程序运行时,在两个列表框中分别选中1个项目,如图a所示,单击名称为Command1的“交换”按钮,则把选中的项目互换,互换后的位置不限

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论