admin 百科大全 2022-12-02 7:36:59

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

一、选择题(每题2分，共70分)
1。数据的存储结构是指
A、数据的存储空量
B、数据在计算机中逻辑结构的表示
C、数据在计算机中的顺序存储方式
D、存储。2.下列关于栈的说法正确的有:
A、栈中只能插入数据
B、栈中只能删除数据
C、栈是FIFO线性表
D、栈是FIFO线性表
A、有序数组元素
B、无序数组元素
C、元素间有分支层次关系的数据
D、数据堆是_ _
A、完全二叉树
B、线性表
C、二叉排序树
D、平衡二叉树
A B C D
5。要建立良好的编程风格，下列描述正确的是
A、程序要简单、清晰、可读性强
B、符号名的命名要符合语法
C、要充分考虑程序的执行效率
D、程序注释可选
A B C D
6。写需求规格说明书，还有
A，定期报告
B，需求评审
C，总结
D，都是不正确的
A B C D
7。在软件的结构化设计(SD)方法中，一般分为概要设计和详细设计两个联合体，其中概要设计主要包括建立
A、软件结构
B、软件过程
C、软件模型
D、软件模块
A B C D
8。下列哪一项属于数据库技术？
ⅰ。数据库管理系统软件开发ⅱ。数据库设计
ⅲ。数据库理论ⅳ。操作系统
A、I和II
B、I和III
C、I、II和III
D、所有[关系模型
B、层次模型
C、网状模型
D、数据模型
A B C D
10 .设关系R和关系S具有相同数量的属性，并且对应的属性来自同一个域，那么

{t|t∈R∧ non-t∈S} t是一个元组变量。

由此产生的关系为
A，R∪S
B，r-s
c，R∩S
D，r-(r-s)
a b c d
然后编写以下事件过程:
private subcommand 1 _ click()
move 500，500
end sub
程序运行后，单击命令按钮，执行的操作为
窗体从屏幕的左上边框移动到位置500
C，命令按钮向左上方移动500
D，窗体向左上方移动500。 12.下列定义数组或给数组元素赋值的语句中，正确的是
A，dim a为variant
a = array (1，2，3，4，5)
b，dim a (10)为integer
a = array。5)
C、Dim A %(10)
A(1)= " ABCDE "
D、Dim a(3)、B (3)为整数
A(0)= 0
A(1)= 1
A(2)= 2
B = A
A B C D
13 .下面的情况是> 10
c，情况是> 10和IsD，情况3，5，是> 10
a b c d
14。执行语句s=Len(Mid("VisualBasic "，1，6))后，s的值为
A，Visual
B，Basic
C，6
D，11
A B C D
15。在窗体上绘制一个名为Command1的命令按钮，然后编写以下事件过程:
private subcommand 1 _ click()
a = 12345
print format $(A，" 000.00")
程序运行后，单击命令按钮，
A，123.45
B，12345.00
C，12345
D，00以下是关于函数的Yes
A、函数过程参数的类型与函数返回值的类型无关
B、在一个函数过程中，一个过程的返回值可以有多个
C、当一个数组作为函数过程的参数时，可以按值传递，也可以按地址传递
D、如果没有指定函数过程参数的类型，那么这个参数就没有数据类型
A B C D
17。确定控件在窗体中的位置的属性有
A、宽度和高度
B、宽度或高度
C、顶部和左侧
D、顶部或左侧[/br] 18。在下面的关系表达式中，假值为
A，" ABC">"AbC"
B，" The " " thee "
C，" VISUAL"=UCase("Visual")
D，" integer ">" int "。一个标签和一个命令按钮，名称分别为Text1、Label1和Command1，然后编写以下两个事件过程:
private subcommand 1 _ click()
strText = InputBox(" please enter ")
text 1 . text = strText
end。

private text 1 _ change()
label 1 . caption = right(trim(text 1 . text)，3)
End sub
程序运行后，单击命令按钮。如果在输入对话框中输入abcdef，那么标签中显示的内容是
A，空
B，abcdef
d，def
A B C D
20。项目包含表单Form1，.如果Form1中有一个语句
Public X As Integer
和Model1中有一个语句
Public Y As Integer
，则下列语句是正确的:
A、变量X和Y具有相同的作用域
B、Y的作用域是Model 1
你可以在From1中直接使用X
D，在Form2中直接使用X和Y
A B c D
21 .在窗体上绘制一个命令按钮(其Name属性为Command1)。然后编写下面的代码:
optionbase1
private子命令1 _ click()
dim A
s = 0
A = array(1，2，3，4)
j = 1
for I = 4 to step-1
s = s+A(I)* j
j = j * 10
next I
prints[/br输出结果为在表单上绘制一个名为Text1的文本框，并要求该文本框只能被接收。可以实现该操作的事件过程有
A、Private subtext 1 _ key press(KeyAscii为整数)
If KeyAscii 90 then
msgbox " Please enter capital letters "
KeyAscii = 0
End If
End Sub
B、Private Sub text 1 _ KeyDown(KeyCode为整数，Shift为整数)
If KeyCode 90 then
msgbox " Please enter as single)
If ASC(text 1 . text)90然后
msgbox“请输入大写字母”
End If
End Sub
D，Private Sub text 1 _ Change()
If ASC(text 1 . text)> 64和ASC (text1.text) msgbox“请输入大写字母”
End If
End Sub
a b c D
23 . 假设在窗体(名为Form1)的代码窗口中定义了以下记录类型:[Type animal
animal name As string * 20
a color As string * 10
end Type
在窗体上绘制一个名为Command1的命令按钮，然后编写以下事件过程:
private subcommand 1 _ click()
dim rec As animal
open " c:\ VB test . dat " For Random As # 1 Len = Len(rec) REC
CLOSE # 1
END SUB
那么下列语句是正确的
A .记录类型animal不能在Form1中定义，而必须在标准模块中定义
B .如果文件c:\vbTest.dat不存在，那么Open命令将无法执行
C，因为Put命令中没有指明记录号，所以每次都将记录写到文件末尾
D，语句“Put #1 在窗体上绘制一个名为Command1的命令按钮，然后编写以下事件过程和一般过程:
private subcommand 1 _ click()
n = val(text 1 . text)
if n \ 2 = n/2 then
f = f1(n)[/br]n
End Sub

公共函数f1(ByRef x)
x = x * x
f1 = x+x
End函数

public F2(byval x)
x = x * x
F2 = x+x+x
End Function
程序运行后，在文本框中输入6，单击命令按钮。公元前72年36年，公元前108年36年，公元前72年6年，公元前108年6年。在窗体上绘制一个名为Command1的命令按钮。然后编写以下事件过程:
private子命令1 _ click()
C = 1234
C1 = trim(str(C))
for I = 1to 4
print _ _[/br/程序运行后，单击命令按钮在窗体上显示以下内容:
1
12
123
1234
，带下划线的内容为
在窗体上绘制一个名为Command1的命令按钮和一个名为Text1的文本框。然后编写以下事件过程:
private子命令1 _ click()
n = val(text 1 . text)
for I = 2 to n
for j = 2 to sqr(I)
if I mod j = 0然后exit for。br/]next j
if j > sqr(I)then print I
next I
end sub
这个事件过程的函数是
A，输出n内的奇数
B，输出n内的偶数[/br输出n内可被j整除的数
A B C D
27。下列描述是正确的:
A、标准模块中的任何过程都可以在整个项目范围内调用
B、一个在其他表单中定义为Public的通用过程都可以在一个表单模块中调用
C、。那么程序将首先执行这个过程
d .如果子主过程不包括在项目中，程序必须首先执行第一个建立的表单
A B C D
28。在窗体上画一个名为Command1的命令按钮，然后写出命令按钮的一般过程和事件过程如下:
私有函数f (m为整数)
如果m mod 2 = 0那么
f = m
else
f = 1
end if
。

Private Sub Command1_Click()
Dim i As Integer
s=0
For i=1 To 5
s=s+f(i)
Next
Print s
End Sub
程序运行后，单击按钮，在窗体上显示的是
A、11
B、10
C、9
D、8
A B C D
29.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim array1(10,10) As Integer
Dim i As Integer,j As integer
For i=1 To 3
For j=2 To 4
array1(i,j)=i+j
Next j
Next i
Text1.Text=array1(2,3)+array1(3,4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是
A、15
B、14
C、13
D、12
A B C D
30.在窗体上画四个文本框（如图所示），并用这四个文本框建立一个控件数组，名称为Text1
（下标从0开始，自左至右顺序增大，然后编写如下事件过程：

　Private Sub Command1_Click()
For Each TextBox In Text1
Text1(i)=Text(1).Index
i=i+1
Next
End Sub
程序运行后，单击命令按钮，四个文本框中显示的内容分别为
A、0 1 2 3
B、1 2 3 4
C、0 1 3 2
D、出错信息
A B C D
31.以下叙述错误的是
A、Visual Basic是事件驱动型可视化编程工具
B、Visual Basic应用程序不具有明显的开始和结束语句
C、Visual Basic工具箱中的所有控件都具有宽度（Width)和高度(Height)属性
D、Visual Basic中控件的某些属性只能在运行时设置
A B C D
32.以下叙述错误的是
A、在工程资源管理窗口中只能包含一个工程文件及属于该工程的其他文件
B、以.BAS为扩展名的文件是标准模块文件
C、窗体文件包含该窗体及其控件的属性
D、一个工程中可以含有多个标准模块文件
A B C D
33.以下叙述错误的是
A、双击鼠标可以触发DblClick事件
B、窗体或控件的事件的名称可以由编程人员确定
C、移动鼠标时，会触发MouseMove事件
D、控件的名称可以由编程人员设定
A B C D
34.以下不属于Visual Basic系统的文件类型是
A、.frm
B、.bas
C、.vbg
D、.vbp
A B C D
35.以下叙述错误的是
A、打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件
B、保存Visual Basic程序时，应分别保存窗体文件及工程文件
C、Visual Basic应用程序只能以解释方式进行
D、事件可以由用户引发，也可以由系统引发
A B C D
二、填空题（每空2分，共计30分）
1.在完全二叉树顺序存储中，若结点I有左子女，则其左子女是结点____。
输入答案，中间不含空格:
2.快速排序方法在要排序的数据____情况下最不利于发挥其长处。
输入答案，中间不含空格:
3.____是为了发现错误而执行程序的过程。
输入答案，中间不含空格:
4.三级结构以____、中间层和外层三个不同层次描述数据库，分别称为内模式、模式和外模式。
输入答案，中间不含空格:
5.联系是指____之间的相互联系。
输入答案，中间不含空格:
6.在菜单编辑器中建立一个菜单，其主要菜单项的名称为mnuEdit,Visible属性为False。程序运行后，如果用鼠标右键单击窗体，则弹出与mnuEdit对应的菜单。以下是实现上述功能的程序，请填空。
Private Sub Form_ _______(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button=2 Then
_____ mnuEdit
End If
End Sub
输入答案，中间不含空格:
7.上一题
输入答案，中间不含空格:
8.为了使计时器控件Timer1每隔0.5秒触发一次Timer事件,应将Timer1控件的____属性设置为____。
输入答案，中间不含空格:
9.上一题
输入答案，中间不含空格:
10.将C盘根目录下的图形文件moon.jpg装入图片框Picture1的语句是_____。
输入答案，中间不含空格:
11. 在窗体上画两个组合框，其名称为 Combo1、Combo2，然后画两个标签，名称分别
为Label1、Label2，如图所示。程序运行后，如果在某个组合框中选择一个项目，则
把所选中的项目在其下面的标签显示出来。请填空。

Private Sub Combo1_Click()
Call ShowItem(Combo1,Label1)
End Sub private command 1 _ click()
dim I as integer
s = 0
for I = 1 to 5
s = s+f(I)
next
打印s
。点击按钮显示
A，11
B，10
C，9
D，8
A B C D
29。在窗体上绘制名为Text1的文本框和Command1。然后编写下面的事件过程:
private subcommand 1 _ click()
dimarray 1(10，10) as integer
米蒂as integer，j As integer
For i=1到3
For j=2到4
array1(i，j)= I+j
Next j
Next I
text 1 .Text=array1(2，3)+array1(3，4)在
end sub
程序运行后，单击命令按钮。文本框中显示的值为
A，15
B，14
C，13
D，12
A .名称为Text1
(下标从0开始，从左到右递增)，然后编写以下事件过程:

private subcombo 1 _ click()
call show item(combo 1，label1)
end sub。