当前位置:首页 > Visual Basic
全国计算机等级考试二级VB模拟试题12
答案
一、选择题(每题2分,共计70分) |
| 1.与数据元素本身的形式、内容、相对位置、个数无关的是数据的____。 A、存储结构 B、存储实现 C、逻辑结构 D、运算实现 |
| A B C D |
| 2.如果进栈序列为e1e2e3e4,则可能的出栈序列是____。 A、e3 e1 e4 e2 B、e4 e2 e1 e3 C、e3 e2 e1 e4 D、e3 e4 e1 e2 |
| A B C D |
| 3.以下关于链式存储结构的叙述中,哪一条是不正确的 A、结点除自身信息外还包括指针域,因此存储密度小于顺序存储结构 B、逻辑上相邻的结点物理上不必相邻 C、可以通过计算直接确定第I个结点的存储地址 D、插入、删除运算操作方便,不必移动结点 |
| A B C D |
| 4.用冒泡排序算法对数据:2,37,42,19,27,35,56,44,10进行从小到大排序。在将最大的数"沉"到最后时,数的顺序是____。 A、2,37,42,27,19,35,44,10,56 B、2,37,42,19,27,35,10,44,56 C、2,37,19,27,35,42,44,10,56 D、2,10,19,27,35,37,42,44,56 |
| A B C D |
| 5.在面向对象数据模型中,子类不但可以从其超类中继承所有的属性和方法,而且还可以定义自己的属性和方法,这有利于实现 A、可移植性 B、可扩充性 C、安全性 D、可靠性 |
| A B C D |
答案
| 6.与早期的软件开发方式相比较,结构化周期法最重要的指导原则应该是 A、自顶向下设计 B、分阶段开发 C、逐步求精 D、用户需求至上 |
| A B C D |
| 7.软件的______设计又称为总体结构设计,其主要任务是建立软件系统的总体结构。 A、概要 B、抽象 C、逻辑 D、规划 |
| A B C D |
| 8.数据库管理系统常用的数据模型有____三种。 A、网状模块、链状模型和层次模型 B、层次模型、环状模型和关系模型 C、层次模型、网状模型和关系模型 D、层次模型、网状模型和语义模型 |
| A B C D |
| 9.关系模型有三类完整性约束:实体完整性、参照完整性和用户定义的完整性。定义外键实现的哪一(些)类完整性? A、实体完整性 B、参照完整性 C、用户定义的完整性 D、实体完整性、参照完整性和用户定义的完整性 |
| A B C D |
| 10.基于"学生-选课-课程"数据库中如下三个关系: S(S#,SNAME,SEX,AGE),SC(S#,C#,GRADE),C(C#,CNAME,TEACHER) 查找学生号为"200301188"的学生的"数据库"课程的成绩,至少将使用关系 A、S和SC B、SC和C C、S和C D、S、SC和C |
| A B C D |
答案
| 11.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim num As Integer num=1 Do Until num>6 Print num; num=num+2.4 Loop End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是 A、1 3.4 5.8 B、1 3 5 C、1 4 7 D、无数据输出 |
| A B C D |
| 12.决定控件上文字的字体、字形、大小、效果的属性是____ A、Text B、Caption C、Name D、Font |
| A B C D |
| 13.当标签的内容太长,需要根据标题自动调整标签的大小时,应设置标签的____属性为True;若需要标签在垂直方向变化大小与标题相适应,还应设置Wordwrap属性为True.。 A、AutoSize B、WordWrap C、Enalbled D、Visble |
| A B C D |
| 14.下列关于菜单的说法中,错误的是____。 A、每个菜单项都是一个控件,与其他控件一样也有其属性和事件 B、除了Click事件之外,菜单项不可以响应其他事件 C、菜单控件可以建立数组 D、系统会自动为用户建立索引值 |
| A B C D |
| 15.新建一个工程将其窗体的Name属性设置为Myfrm,则默认的窗体文件名为_____。 A、Form1.frm B、Myfrm.frm C、Form1.vbp D、工程1.frm |
| A B C D |
答案
| 21.使用驱动器列表框的____属性可以返回或设置磁盘驱动器的名称。 A、ChDrive B、ListIndex C、List D、Drive |
| A B C D |
| 22.下面叙述中不正确的是____。 A、随机文件中记录的长度不是固定不变的 B、随机文件由若干条记录组成,并按记录号引用各个记录 C、可以按任意顺序访问随机文件中的数据 D、可以同时对打开的随机文件进行读写操作 |
| A B C D |
| 23.运行时,当用户向文本输入新的内容,或在程序代码中对文本框的Text属性进行赋值从而改变了文本框的Text属性时,将触发文本框的____事件。 A、Click B、Db1Click C、GotFocus D、Change |
| A B C D |
| 24.如果要在任何新建的模块中自动插入Option Explicit语句,则应采用下列____操作步骤。 A、单击“工具”菜单中的“选项”命令,打开“选项”对话框,单击“编辑器”选中“要求变量声名”选项 B、单击“编辑”菜单中的“插入文件”命令 C、单击“工程”菜单中的“添加文件”命令 D、以上操作都不对 |
| A B C D |
| 25.下面的过程定义语句中合法的是____。 A、Sub Procl(ByValn()) B、Sub Procl(n) As Integer C、Function Procl(Procl) D、Function Procl(ByVal n) |
| A B C D |
答案
| 21.使用驱动器列表框的____属性可以返回或设置磁盘驱动器的名称。 A、ChDrive B、ListIndex C、List D、Drive |
| A B C D |
| 22.下面叙述中不正确的是____。 A、随机文件中记录的长度不是固定不变的 B、随机文件由若干条记录组成,并按记录号引用各个记录 C、可以按任意顺序访问随机文件中的数据 D、可以同时对打开的随机文件进行读写操作 |
| A B C D |
| 23.运行时,当用户向文本输入新的内容,或在程序代码中对文本框的Text属性进行赋值从而改变了文本框的Text属性时,将触发文本框的____事件。 A、Click B、Db1Click C、GotFocus D、Change |
| A B C D |
| 24.如果要在任何新建的模块中自动插入Option Explicit语句,则应采用下列____操作步骤。 A、单击“工具”菜单中的“选项”命令,打开“选项”对话框,单击“编辑器”选中“要求变量声名”选项 B、单击“编辑”菜单中的“插入文件”命令 C、单击“工程”菜单中的“添加文件”命令 D、以上操作都不对 |
| A B C D |
| 25.下面的过程定义语句中合法的是____。 A、Sub Procl(ByValn()) B、Sub Procl(n) As Integer C、Function Procl(Procl) D、Function Procl(ByVal n) |
| A B C D |
答案
| 26.在下述选项中,正确的逻辑表达式是____。 A、x MOD 2=0 B、NOT x MOD 2<>0 C、(X\2*2-X)=0 D、NOT(x MOD 2) |
| A B C D |
| 27.在程序代码中将图片文件mypic.jpg装入图片框Picture的语句是____。 A、Picture1.picture="mypic.jpg" B、Picture.image="mypic,jpg" C、Picture1.picture=LoadPicture("mypic.jpg") D、LoadPicture("mypic.jpg") |
| A B C D |
| 28.单击命令按钮时,下列程序代码的执行结果为____。 Public Sub Procl(n As Integer,ByVal m As Integer) n=n Mod 10 m=m\10 End Sub Private Sub Command1_Click() Dim x As Integer,y As Integer X=12:y=34 Call Procl(x,y) Print x & ":" & y End sub A、12 34 B、2 34 C、2 3 D、12 3 |
| A B C D |
| 29.在窗体上画一个命令按钮,名称为C。程序运行后,如果单击命令按钮,则显示一个输入 对话框,在该对话框中输入一个整数,并用这个整数作为实参调用函数过程F1。在F1中判断 所输入的整数是否是奇数,如果是奇数,过程F1返回1,否则返回0。能够正确实现上述功能 的代码是 A、Private Sub command1_Click() x = InputBox("请输入整数") a = f1(Val(x)) Print a End Sub Function f1(b As Integer) As Integer If b Mod 2 = 0 Then f1 = 0 Else f1 = 1 End If End Function B、Private Sub Command1_Click() x=InputBox("请输入整数") a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End IF End Function C、Private Sub Command1_Click() x=InputBox("请输入整数") F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2 = 0 Then F1 = 1 Else F1 = 0 End If End Function D、Private Sub Command1_Click() x=InputBox("请输入整数") F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2 = 0 Then Return 0 Else Return 1 End If End Function |
| A B C D |
| 30.单击命令按钮时,下列程序代码的执行结果为21,则空白处应填入_____。 Private Function FirProc(x As Integer,y As Integer,z As Inetger) FirProc=2*x+y+3*z End Function Private Function SecProc(x As Integer,y As Integer,z As Integer) SecProc=FirProc(z,x,y)+x End Function Private Sub Command1_Click( ) Dim a As Integer,b As Integer,c As Integer a=2:b=3:c=4 Print _____ End Sub A、SecProc(a,c,b) B、FirProc(c,b,a) C、SecProc(c,b,a) D、FirProc(a,b,c) |
| A B C D |
答案
二、填空题(每空2分,共计30分) | |
| 1.在一个容量为15的循环队列中,若头指针front=6,尾指针rear=9,则该循环队列中共有____个元素。 | |
| 输入答案,中间不含空格: | |
| 2.设一线形表中有a1,a2,……a500,500个元素按递增顺序排列,则用二分法查找给定值K,最多需要比较____次。 | |
| 输入答案,中间不含空格: | |
| 3.软件是程序、数据和____的集合。 | |
| 输入答案,中间不含空格: | |
| 4.数据库系统与文件系统的本质区别在于____。 | |
| 输入答案,中间不含空格: | |
| 5.大型数据库的设计通常是MIS系统分析与设计的重要组成部分,数据库设计的方法应该属于____的范畴。 | |
| 输入答案,中间不含空格: | |
答案
| 6.以下程序判断从InputBox中输入的三个数,如果都为正,显示“POSITIVE!”;如果都为负,显示“NEGATIVE!”;否则显示“NEITHER!”。阅读下列程序,请在____填上正确的内容。 private Sub Command1_Click() a=Val(InputBox("")) b=Val(InputBox("")) c=Val(InputBox("")) If____Then Print "POSITIVE!" ElseIf____Then Print "NEGATIVE!" Else Print "NEITHER!" End If End Sub |
| 输入答案,中间不含空格: |
| 7.上一题 |
| 输入答案,中间不含空格: |
| 8.语句:Timer1.Interval=900(Timer1为窗体中的一个Timer控件)中的900指的是____。 |
| 输入答案,中间不含空格: |
| 9.将下列程序补充完整,程序的功能是将文本框中输入的十进制数转换成二进制数。 Private Sub Command1_Click() Text1.text="" n=Val(Text1.Text) Do k=n Mod 2 n=n \ 2 nk=____ ____ Label1.Caption=nk End Sub |
| 输入答案,中间不含空格: |
| 10.上一题 |
| 输入答案,中间不含空格: |
答案
| 6.以下程序判断从InputBox中输入的三个数,如果都为正,显示“POSITIVE!”;如果都为负,显示“NEGATIVE!”;否则显示“NEITHER!”。阅读下列程序,请在____填上正确的内容。 private Sub Command1_Click() a=Val(InputBox("")) b=Val(InputBox("")) c=Val(InputBox("")) If____Then Print "POSITIVE!" ElseIf____Then Print "NEGATIVE!" Else Print "NEITHER!" End If End Sub |
| 输入答案,中间不含空格: |
| 7.上一题 |
| 输入答案,中间不含空格: |
| 8.语句:Timer1.Interval=900(Timer1为窗体中的一个Timer控件)中的900指的是____。 |
| 输入答案,中间不含空格: |
| 9.将下列程序补充完整,程序的功能是将文本框中输入的十进制数转换成二进制数。 Private Sub Command1_Click() Text1.text="" n=Val(Text1.Text) Do k=n Mod 2 n=n \ 2 nk=____ ____ Label1.Caption=nk End Sub |
| 输入答案,中间不含空格: |
| 10.上一题 |
| 输入答案,中间不含空格: |
答案
| 11.下列程序的功能是控制窗体的显示与隐藏,请在____、 ____填上正确答案。 Private Sub Form_Click() Dim Msg As Integer Form1.____ MsgBox"Choose Ok to make the form reapear." Form1.____ End Sub |
| 输入答案,中间不含空格: |
| 12.上一题 |
| 输入答案,中间不含空格: |
| 13.下面的程序用“冒泡”法将数组a中的10个整数升序排列,请在____、____、 ____处将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim a a=Array(678,45,324,528,439,87,875,273,823) For i=____ For j=____ If a(i)____ a(j) Then a1=a(j) a(i)=a(j) a(j)=a1 End If Next j Next i For i=1 To 10 Print a(i) Next i End Sub |
| 输入答案,中间不含空格: |
| 14.上一题 |
| 输入答案,中间不含空格: |
| 15.上一题 |
| 输入答案,中间不含空格: |