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

1.关于数据的逻辑结构，下列哪个陈述是不正确的？
A、数据的逻辑结构是数据之间关系的描述
B、数据的逻辑结构抽象地反映了数据元素之间的逻辑关系
C、数据的逻辑结构具体反映了数据在计算机中的存储方式
D、数据的逻辑结构分为线性结构和非线性结构
A B C D [/br
A、从队列末尾插入一个新元素
B、 从队列中删除第I个元素
C，判断一个队列是否是空
D，读取队列头的元素的值
a b c d
。
A，N
B，F
C，E
D，C
A B C D
4。一个有序表(13，20，25，37，48，)
A，1
B，2
C，3
D，4
A B C D
5。面向对象的概念方法是_ _ _ _ _
A，用于请求对象执行某些操作。
B，描述对象动态特性的操作序列。
C .描述对象静态特征的数据项。
D .描述对象的动态或静态特征的项目。6 . b)【句意】a b c d。在面向对象的de的翻译中，哪个术语更准确？
A、面向对象
B、面向对象
C、面向对象
D、面向对象
A B C D
7。大纲设计的结果是提供一个
A、模块规范[/
A、管理操作系统
B、保护数据库
C、应用数据库
D、修改数据库
A B C D
9。在关系数据库中，
A、树形结构
B、网状结构
C、线性表
D、二维表
A B C D
10。在关系代数中，从两个关系的笛卡尔积出发，把它叫做
A，投影
B，选择
C，自然联系
D，θ联系
A B C D
11。可以正确定义数据类型TelBook的下列代码是
A和type TelBook。TelNum As Integer
End Type
B、Type TelBook
Name As String * 10
TelNum As Integer
C、Type TelBook
Name String * 10
TelNum Integer
End Type TelBook
D、Type TelBook
Name String * 10
TelNum Integer
End Type
假设表单上有一个列表框控件List1，其中有几个列表项。以下可以代表当前选中列表项的项是
A，List1.list
B，List1.listIndex
C，List1。11 . a b c D
b c D
D。执行Print a>b>c语句后，窗体显示
A，True
B，False
C，1
D，错误消息
A B C D
14。可以确定是否到达文件结尾的函数有
A、。Br/]A B C D
15。
form _ MouseDown(button as integer，shift as integer，x as single，y as single)
形式的MouseDown事件过程有四个参数。关于这个参数，正确的描述是
A、通过按钮参数
B、Shift参数只能用于确定是否按Shift
C、Shift参数只能用于确定是否按Alt和Ctrl键
D、参数x、Y坐标用于设置鼠标当前位置
A B C D
16。下列关于焦点的说法中，错误的是
A .如果文本框的TabStop属性为False，则无法接收键盘输入的数据
b .当文本框失去焦点时，触发LostFocus事件
C .当文本框的Enabled属性为False时，其Tab键顺序不起作用
D .可以使用TabIndex属性改变Tab键顺序
A . B . C . D
17 .在执行语句open " tel.dat " for random as # 1 len = 50后，可以对文件tel . dat中的数据执行的操作是
A，只写，不读
B，只读，不写
C，读写
D，不读，它可以写
A B C D
18。它具有如下循环结构
Do
循环体
，那么下面语句中的错误是
A .如果“条件”是常数0，那么循环体
B不会执行一次；条件可以是关系表达式、逻辑表达式或常量
C；Exit Do语句
D可以在循环体中使用；如果条件始终为真，循环体
A B C D
19将被连续执行。然后编写以下事件过程:
private subcommand 1 _ click()
dim A as integer，s as integer
A = 8
s = 1
do
s = s+A
A
End Sub
程序运行后，单击命令按钮。那么窗体上显示的内容是
A，7 ^ 9
B，34 ^ 0
C，9 ^ 7
D，无限循环
A B C D
20。设置以下通用过程:
public sub Byval x as integer)
for I = 1to 5
x = x+a(I)
next
end sub
在窗体上绘制一个名为Text1的文本框和一个名为Command1的命令按钮，然后编写以下事件过程:
private subcommand 1 _ click()
dimarr(5)as variant
for I = 1to 5
调用Fun (arr()，n)
text 1 . text = n
end sub
程序运行后，单击命令按钮，文本框中显示的内容为
A、10
B和15
六个标签，分别命名为
Label1、Label2、Label3、Label4、Label5和Label6，其中Label4~Label6分别显示
“A”、“B”和“a * b[/br/移动滚动框时，滚动条的值显示在相应的标签中。当
单击命令按钮“Calculate”时，标签Label1和Label2中显示的两个值将被积分，结果显示
在Label3中。无法实现上述功能的事件过程有:

A)、Private Sub command 1 _ Click()
label 3 . caption = str(val(label 1 . caption)* val(label 2 . caption))
end Sub[/br]B)、Private Sub command 1 _ Click()
label 3。Caption=HScroll1。值*HScroll2。Value
End Sub
C)、Private Sub命令1_Click()
Label3。caption = hscroll 1 * hscroll 2
End Sub
D)、Private Sub command 1 _ Click()
label 3。Caption=HScroll1。Text*HScroll2。text[/Br/]End Sub[/Br/]A B C D[/Br/]22。在窗体上绘制一个名为Command1的命令按钮，然后编写以下事件过程:
Private subcommand 1 _ click()
for n = 1到20
if n mod 30 Then m = m+n \ 3
Next n
Print n
End sub
程序运行后，如果单击命令按钮，则窗体上显示的内容为
A，15
B，18在窗体上画一个名为Text1的文本框，编写下面的程序:
private subform _ Lord()
show
text 1 . text = " "
text 1 . setfocus
end sub。

private form _ mouseup(button as integer，shift as integer，x as single，y as single)
print " programming "
End Sub

PrivateText1 _ Keydown (keycode为整数，shift为整数)
打印“visual basic”
end sub
程序运行后，按“A”键得到结果，然后点击表单。那么表格上显示的内容就是
A、Visual Basic
B、编程
C、A编程
D、Visual Basic
编程
A B C D
24。下面的程序是Private Sub command 1 _ Click()
Dim sum As Double，As Double
sum = 0
n = 0
For I = 1 to 5
x = n/I
n = n+1
sum = sum+x
接下来的表达式是
A，1+1/2+2+2/3+3/4+4/5
B，1+1/1错误有
A，静态arr 1(3)
arr(1)= 100
arr(2)= " hello "
arr(3)= 123.45
b，dim。private command 2 _ click()
size = InputBox(" input:")
redi marr 2(size)
...
end sub
c，Option Base 1
Private Sub command 3 _ Click()
Dim arr 3()As Integer
......
End Sub
D、Dim n As Integer
Private Sub command 4 _ Click()
Dim arr 4(n)As Integer
...[br/]end sub
A b c d 26。无法在“项目资源管理器”窗口中列出的下列文件类型是
a、。bas
B，。决议A B C D
。在下面的表单描述中，错误是
a .执行Unload Form1语句后，表单Form1消失。但还是在内存中
B、窗体加载时发生窗体的Load事件
C、当窗体的Enabled属性为False时，禁止通过鼠标和键盘对窗体进行操作
D、窗体的高度和宽度属于用来设置窗体的高度和宽度
A B C D
28。以下Xy
D，constA
A B C D
29。以下记录类型
Type Student
number As string
name As string
age As integer
End
是正确引用记录类型变量的代码:
A，Student.name = "张虹"
B，Dim s As Student
s.name = "张虹"
C，dim s as type student [/] S.name = "张虹"
D，Dim s As Type
函数String(n，即“str”的函数)为
A，将数值型数据转换为字符串
B，返回由n个字符组成的字符串
C，从字符串中取出n个字符
D，从字符串中第n个字符的位置取出子字符串
a b c d [/]。+5e2是用Visual Basic编写的表达式，其正确形式为
a)cos(a+b)2+5 * exp(2)b)cos 2(a+b)+5 * exp(2)
c)cos(a+b)2。单击命令按钮时，会执行以下事件过程:
private subcommand 1 _ click()
a $ = "软件和硬件"
b $ = right (a $，8)
c $ = mid (a $，1，8)。，b$，c$，1
End Sub
然后在弹出的信息框的标题栏中显示的信息是
A，软件和硬件
B，软件
C，硬件
D，1[/Br/]A B C D[/Br/]A = InputBox(" Today "，" tomorrow "，" Sunday "，，，" day before Sunday "，5)
将显示一个输入对话框，该信息显示在指示滚动条控件取值范围的属性是[ Br/]B，LargeChange
C，Value
D，Max-Min
A B C D
35。在窗体上绘制一个名为List1的列表框和一个名为Label1的标签。列表框中显示了几个城市的名称。当您单击列表框中的城市名称时，所选城市的名称会显示在标签中。能够正确实现上述功能的程序有
A、私有子列表1 _ Click()
label 1 . caption = list 1 . listindex
end Sub
b、私有子列表1 _ Click()
label 1 . name = list 1。ListIndex
End Sub
C、Private Sub list 1 _ Click()
label 1 . name = list 1 . text
D、Private list 1 _ Click()
label 1 . caption = list 1 . text
End Sub
a b C D
II填空题(每题2分空，共30分。
输入中间没有空的答案:
2。在排序法中，从未排序的序列中选取元素，放在排序后的序列的一端(初始空)的方法称为_ _ _ _ _。
输入中间没有空的答案:
3。需求分析阶段的最终结果是_ _ _ _，是软件开发中的重要文档之一。
输入中间没有空的答案:
4。每个实体都有几个特征，每个特征称为_ _ _ _。
输入中间没有空的答案:
5。在关系代数中，传统的集合运算包括_ _ _ _、并、交和差。
输入中间不带空的答案:
6。执行下面的程序段后，I的值是_ _ _ _ _ _，S的值是_ _ _ _。
s = 2
for I = 3.2 to 4.9 step 0.8
s = s+1
接下来我
输入中间没有空的答案:
7。中间没有空单元格:
8。将窗体的KeyPreview属性设置为True，然后编写以下两个事件过程:
Private subform _ keydown(key code为整数，Shift为整数)
Print Chr(key code)
End Sub
Private subform _ KeyPress(KeyAscii为整数)
Print Chr(KeyAscii)
在end
程序运行后，如果直接按下键盘上的“A”键(也就是说，你没有
输入中间没有空的答案:
9。输入上一个问题的答案
，中间不带空:10。在窗体上绘制一个Text1框、一个标签和一个Command1按钮，[然后编写以下两个事件过程:
private subcommand 1 _ Click()
s $ = InputBox(" Please enter a string ")
text 1 . text = s $
end sub
private subtext 1 _ change()。br/]label 1 . caption = ucase(mid(text 1 . text，7)
end sub
程序运行后，单击命令按钮，将显示一个输入对话框。如果在此对话框中输入字符串
“Visual Basic”，标签中显示的内容是_ _ _ _
输入中间不带空的答案:12。输入上一题的答案
，中间不带空:13。输入上一题的答案
，中间不带/[/k。请填写空。
Private Sub命令1 _ Click()
Dim in data As String
text 1。text = " "
打开"。\ sm text 1 . txt " _ _ As # 1
Do While _ _ _ _ _
Input # 1，In
text = text 1 . text & In data
loop
close # 1
end sub
输入中间不带空的答案:
15 .