全国计算机等级考试二级VB模拟试题9

日期:12-29| http://www.59wj.com |VB模拟题|人气:689

全国计算机等级考试二级VB模拟试题9 答案
一、选择题(每题2分,共计70分)
1.若某线性表中最常用的操作是取第I个元素和找第I个元素的前趋元素,则采用____存储方式最节省时间。
A、顺序表
B、单链表
C、双链表
D、单循环链表
A   B   C   D  
2.设在栈中,由顶向下已存放元素c、b、a,在第4个元素d入栈之前,栈中元素可以出栈,试问d入栈前后,不可能的出栈序列是____。
A、d c b a
B、c b d a
C、c a d b
D、c d b a
A   B   C   D  
3.某二叉树结点的前序序列为E、A、C、B、D、G、F,对称序列为A、B、C、D、E、F、G。该二叉树结点的后序序列为
A、B、C、F、G、E
B、C、F、A、G、E
C、E、G、F、A、B
D、E、G、A、C、F、B
A   B   C   D  
4.对下面四个序列用快速排序的方法进行排序,以序列的第一个元素为基础进行划分。在第一趟划分过程中,元素移动次数最多的序列是____。
A、82,75,70,16,10,90,68,23
B、23,10,16,70,82,75,68,90
C、70,75,68,23,10,16,90,82
D、70,75,82,90,23,16,10,68
A   B   C   D  
5.在面向对象的方法中,一个对象请求另一个对象为其服务的方式是通过发送
A、调用语句
B、命令
C、口令
D、消息
A   B   C   D  
www.59wj.com 答案
6.描述数据内容的概念模式是
A、E-R图
B、DFD图
C、结构图
D、数据字典
A   B   C   D  
7.数据流图(DFD)是用于描述结构化方法中 _____阶段的工具。
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.设关系R和S的元组个数分别为100和300,关系T是R与S的笛卡尔积,则T的元组个数是
A、400
B、10000
C、30000
D、90000
A   B   C   D  
www.59wj.com 答案
11. 在窗体上画两个滚动条,名称分别为Hscroll1、hscroll2;六个标签,名称分别为
Label1、Label2、Label3、Label4、Label5、Label6,其中标签Label4~Label6分别显示
“A”“B”“A*B”等文字信息,标签Label1、Label2分别显示其右侧的滚动条的数值,
Label3显示“A*B”的计算结果。当移动滚动框时,在相应的标签中显示滚动条的值。当
单击命令按钮“计算”时,对标签Label1、Label2中显示的两个值求积,并将结果显示
在Label3中。以下不能实现上述功能的事件过程是:

A)、Private Sub Command1_Click()
Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption))
End Sub
B)、Private Sub Command1_Click()
Label3.Caption=HScroll1.Value*HScroll2.Value
End Sub
C)、Private Sub Command1_Click()
Label3.Caption=HScroll1*HScroll2
End Sub
D)、Private Sub Command1_Click()
Label3.Caption=HScroll1.Text*HScroll2.Text
End Sub
A   B   C   D  
12.下面_____控件不支持Change事件。
A、TextBox
B、ListBox
C、Label
D、PictureBox
A   B   C   D  
13.以下关于变量作用域的叙述中,正确的是
A、窗体中凡被声明为Private的变量只能在某个指定的过程中使用
B、全局变量必须在标准模块中声明
C、模块级变量只能用Private关键字声明
D、Static类型变量的作用域是它所在的窗体或模块文件
A   B   C   D  
14.设在菜单编辑器里定义了一个菜单项,名为menu1。为了在运行时隐藏该菜单项,应使用的语句是____。
A、menu1.Enabled = True
B、menu1.Enabled = False
C、menu1.Visible = True
D、menu1.Visible = False
A   B   C   D  
15.下列符号常量的声明中,____是不合法的。
A、Const a As Single=1.1
B、Const a As Integer="15b"
C、Const a As Double=1
D、Const a As String = "Sin1"
A   B   C   D  
www.59wj.com 答案
16.使用通用对话框控件打开字体对话框时,如果要在字体对话框中显示样式和颜色,必须设置通用对话框控件的Flags属性为____。
A、127
B、128
C、255
D、256
A   B   C   D  
17.下面语句正确的是_____。
A、If X≥Y Then T=A A=B B=T
B、If X≥Y Then T=A ;A=B ;B=T
C、If X>=Y Then T=A A=B B=T
D、If X>=Y Then T=A :A=B: B=T
A   B   C   D  
18.InputBox函数返回值的类型为____。
A、数值
B、字符串
C、变体
D、数值或字符串(视输入的数据而定)
A   B   C   D  
19.表达式Val(".52H12D")的值是____。
A、52
B、52
C、0
D、52H12D
A   B   C   D  
20.Visual Basic程序设计语言属于_____。
A、面向过程的语言
B、机器语言
C、面向对象的语言
D、汇编语言
A   B   C   D  
www.59wj.com 答案
21.使用目录列表框的____属性可以返回或设置当前工作目录的包括驱动器盘符完整路径。
A、Drive
B、Path
C、Dir
D、ListIndex
A   B   C   D  
22.使用Public Const语句声明一个全局的符号常量时,该语句应放在____。
A、过程中
B、标准模块的通用声明段
C、窗体模块的通用声明段
D、窗体模块或标准模块的通用声明段
A   B   C   D  
23.将文本框的____属性设置为True时,文本框可以输入或显示多行文本,且会在输入的内容超出文本框的宽度时自动换行。
A、Multiline
B、Scrollbars
C、Text
D、Enabled
A   B   C   D  
24.以下叙述错误的是
A、在工程资源管理窗口中只能包含一个工程文件及属于该工程的其他文件
B、以.BAS为扩展名的文件是标准模块文件
C、窗体文件包含该窗体及其控件的属性
D、一个工程中可以含有多个标准模块文件
A   B   C   D  
25.设A="963214587",则表达式Val(Left(A,4)+Mid(A,4,2)的值为____。
A、963214
B、963221
C、963216321
D、963213214
A   B   C   D  
www.59wj.com 答案
26.通过文本框____事件过程可以获取文本框中输入字符的ASCII码值。
A、Change
B、GotFocus
C、LostFocus
D、KeyPress
A   B   C   D  
27.如果在C盘当前文件夹下已存在名为StuData.dat的顺序文件,那么执行语句Open"C:StuData.dat"For A ppend
As #1之后将 ____。
A、删除文件中原有的内容
B、保留文件中原有的内容,可在文件尾添加新内容
C、保留文件中原有内容,在文件头开始添加新内容
D、以上均不对
A   B   C   D  
28.单击窗体时,下列程序代码的执行结果为 ____。
Private Sub Invert(ByVal xStr As String, yStr As String)
Dim tempStr As String
Dim I As Integer
I = Len(xStr)
Do While I > 1
tempStr = tempStr + Mid(xStr, I, 1)
I = I - 1
Loop
yStr = tempStr
End Sub
Private Sub Form_Click()
Dim s1 As String,s2 As String
sl="abcdef"
Invert s1,s2
Print s2
End Sub
A、abcdef
B、afbecd
C、fedcba
D、defabc
A   B   C   D  
29.在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Commandl),然后编写如下事件过程:
Private Sub Commandl_Click()
x=0
Do While x<50
x=(x+2)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序运行后,单击命令按钮,在两个文本框中显示的值分别为____。
A、1和0
B、2和72
C、3和50
D、4168
A   B   C   D  
30.执行下列程序:
private Sub Command1_Click()
For j=1 to 4
print Tab(2*j+1);12*j
next j
End Sub
单击命令按钮,程序的执行结果为____。
A、12
24
36
48
B、12
24
36
48
C、12
24
36
48
D、12243648
A   B   C   D  
www.59wj.com 答案
31.新建一个工程,内有两个窗体,窗体Form1上有一个命令按钮Command1,单击该按钮,Form1窗体消失,显示窗体Form2,程序如下:
Private Sub Command1_Click()
_____
Form2._____
End Sub
试补充完整。
A、UnLoad;Show
B、UnLoad Me;Show
C、Form1.UnLoad;Form1.Show
D、Form1_UnLoad;Form1.Show
A   B   C   D  
32.在窗体上画一个命令按钮Command1和两个文本框,名称分别为Text1和Text2,编写如下两个事件过程:____。
Dim str As String,str1 As String
Private Sub form_load( )
Text1.Text=""
Text2.Text=""
Text1.Enabled=False
Text2.Enabled=False
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
str=str & Chr(KeyAscii)
End Sub
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
str1=str1 & Chr(KeyCode)
End Sub
Private Sub Command1_Click( )
Text1.Text=str
Text2.Text=str1
str=""
str1=""
End Sub
当在设计阶段把窗体的KeyPreview属性设置为True时,程序运行运程中,在键盘上输入小写字母xyz,然后单击命令按钮,则
文本框Text1中显示的内容为:
A、xyz
B、不显示任何信息
C、XYZ
D、出错
A   B   C   D  
33.在C盘当前文件夹下建立一个名为“Work Data.txt”的顺序文件。要求用InputBox
函数输入5个工人的姓名(WorkName),工资(Workup),工龄(WorkAge)。
Private Sub Form_Click( )
Open "C:WorkData.txt" For output As #1
For i=1 To 5
WorkName=InputBox("请输入姓名")
Workp=InputBox("请输入工资")
WorkAge=Val(InputBox("请输入年龄"))
_____
Next i
Close #1
End Sub
供选择的答案如下:
A、While Not EOF(1)
B、While EOF(1)
C、Write #1,WorkName,Workup,WorkAge
D、Write #1, "WorkName","Workup","WorkAge"
A   B   C   D  
34.对窗体编写如下代码:
Option Base 1
Private Sub Form_KeyPress(KeyAscii As Integer)
a=Array(237,126,87,48,498)
m1=a(1)
m2=1
If KeyAscii=13 Then
For i=2 To 5
If a(i)>m1 Then
m1=a(i)
m2=i
End If
End If
Next i
End If
Print m1
Print m2
End Sub
程序运行后,按回车键,输出结果为____。
A、48
4
B、237
1
C、498
5
D、498
4
A   B   C   D  
35.窗体中有一个命令按钮,窗体运行,单击一次命令按钮之后,下列程序代码的执行结果为____。
Public Sub Proc(a() As Integer)
Static i As Integer
Do
a(i) = a(i) + a(i + 1)
i = i + 1
Loop While i < 2
End Sub
Private Sub Command1_Click()
Dim m As Integer, i As Integer, x(10) As Integer
For i = 0 To 4: x(i) = i + 1: Next i
For i = 0 To 2: Call Proc(x): Next i
For i = 0 To 4: Print x(i);: Next i
End Sub
A、3 4 7 5 6
B、1 2 3 4 5
C、3 5 7 9 5
D、1 2 3 5 7
A   B   C   D  
www.59wj.com 答案
二、填空题(每空2分,共计30分)
1.二叉树是节点的有限集合,这个有限集合或者为____,或者由一个根结点及两棵
不相交的、分别称作根的左子树和右子数的二叉数组成。
输入答案,中间不含空格:
2.在插入和选择排序中,若初始数据基本反序,则选用____。
输入答案,中间不含空格:
3.单元测试又称模块测试,一般采用____测试。
输入答案,中间不含空格:
4.三级模式中,只有____才真正存储数据,而模式和外模式均不存储数据。
输入答案,中间不含空格:
5.概念结构设计的目的是产生一个能反映____的概念模型。
输入答案,中间不含空格:
www.59wj.com 答案
6.窗体设计器窗口简称____,是应用程序最终面向用户的窗口,它对于应用程序的运行结
果。各种图形、图像、数据等窗体或窗体中的控件显示出来。
输入答案,中间不含空格:
7.为了把一个窗体装入内容,所使用的语句为____;而为了清除内存中指定的窗体,所
使用的语句为____。
输入答案,中间不含空格:
8.上一题
输入答案,中间不含空格:
9.一个Visual Basic应用程序可由____、标准模块和类模块组成。
输入答案,中间不含空格:
10.以下程序用于计算数学表达式12-22+32-42+…+(N-1)2-N2
Private Sub Command1_Click( )
N=Val(InputBox("请输入大于零的偶然N:"))
S=0
I=1
C=1
Do
S=S+C*I*I
C=____
I=I+1
Loop While ____
Print "S=";S
End Sub
输入答案,中间不含空格:
www.59wj.com 答案
11.上一题
输入答案,中间不含空格:
12.从指定的任意一个驱动器中的任何一个文件夹下查找文件,并将选定的文件的完整路径显示在文本框Text1中,文件内容显示在文本框Text2中。
Private Sub Form_Load()
File1. ____ = "*.txt"
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
If Right$(File1.Path, 1) <> "“" Then
Text1.Text = File1.Path & "“" & File1.FileName
Else
Text1.Text = ____
End If
Open Text1.Text For Input As #1
Text2.Text = Input$(LOF(1), #1)
Close #1
End Sub
输入答案,中间不含空格:
13.上一题
输入答案,中间不含空格:
14.以下程序代码实现单击命令按钮Command1时形成并输出一个主对角线上元素值为-1,其他元素值为0的6×6阶方阵。
Privae Sub Command1_Click( )
Dim A(6,6)
For I=1 To 6
For J=1 To 6
If I=J Then
____
Else
____
End If
Print A(I,J);
Next J
Print
Next I
End Sub
输入答案,中间不含空格:
15.上一题
输入答案,中间不含空格:
www.59wj.com 如果觉得《全国计算机等级考试二级VB模拟试题9》VB模拟题,jsj不错,可以推荐给好友哦。
本文Tags: 计算机等级考试 - 模拟试题 - 计算机二级模拟试题 - VB模拟题,jsj,
在百度中搜索相关文章:全国计算机等级考试二级VB模拟试题9
在谷歌中搜索相关文章:全国计算机等级考试二级VB模拟试题9
在soso中搜索相关文章:全国计算机等级考试二级VB模拟试题9
在搜狗中搜索相关文章:全国计算机等级考试二级VB模拟试题9
相关分类导航|
热门推荐|