题号TG
选项
A
选项B 选项C 选项D
答
案
1 Visual Basic的编程机
制是______。
可视化面向对象面向图形事件驱动 D
2 每个窗体对应一个窗体
文件，窗体文件的扩展名
是________。
.bas? .cls .frm? .vbp C
3 工具栏中的“启动”按
钮的作用是_______。运行一
个应用
程序
运行一个
窗体
工程管理
窗口?
打开被选中
对象的代码
窗口
A
4 vb6.0集成环境的主窗口
不包括_______。
标题栏菜单栏状态栏工具栏 C
5 事件的名称
___________。都要由
用户定
义
有的由用
户定义，
有的由系
统定义
是由系统
预先定义
是不固定的 C
6 Visual Basic 6.0 集成
开发环境有三种工作状
态，不属于这三种工作状
态的是___________。设计状
态
运行状态编写代码
状态
中断状态 C
7 下列关于窗体上控件的
基本操作错误的是
___________。按下一
次DEL
键只能
删除一
个控件
按下一次
DEL键可
以同时删
除多个选
中的控件
按住
SHIFT键，
然后单击
每个要选
择的控
件，可以
同时选中
多个控件
按住CTRL
键，然后单击
每个要选择
的控件，可以
同时选中多
个控件
A
8 下列关于设置控件属性
的叙述正确的是
___________。用户必
须设置
属性值
所有的属
性值都可
以由用户
随意设定
属性值不
必一一重
新设置
不同控件的
属性项都完
全一样
C
9 以下不能在“工程资源
管理器”窗口中列出的
文件类型是________。
.bas .cls .frm .ocx D
题号
TG
选项
A
选项B 选项C 选项D
答案
10 以下关于VB 特点的叙述中，错误的是________。 VB 是
采用事
件驱动编程机制的语言 VB 程序既可以编译运行，也可以解释运行 构成VB 程序的多个过程没有固定的执行顺序 VB 是面向过程的程序设计语言 D
11 激活属性窗口使用的键是_______。 F2
F4
F3
F5
B
12 以下叙述中错误的是
________。
在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
以.BAS 为扩展名的文件是标准模块文件
窗体文件包含该窗体及其控件的属性 一个工程中可以含有多个标准模块文件 A
13 不属于对象的三要素的是__________ 。
属性 封装
事件 方法 B
14 一个工程必须包含的文件类型是__________。 .frm 和.vbp .vbp 和.cls .frm 和.cls .vbp 、.frm 和.cls A
15 以下叙述中错误的是
________。
VB 中的对象具有自己的属性和方法 VB 中允许不同对象使用相同名称的方法 对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定
在VB 中，对象所能响应的事件是由系统定义的
C 16 一个工程可以包含多种类型的文件，文件名后缀为.vbp 的是__________文件。
工程 窗体
类
模块
A
17 在工程资源管理器窗口中，单击__________按钮查看对象
查看代码 查看窗体 编写程序
B
题号TG
选项
A
选项B 选项C 选项D
答
案可以进入代码编辑器窗
口编写代码。
18 要使程序脱离VB集成开
发环境，必须将源程序编
译为扩展名是
__________的二进制可
执行文件。
.PIF .FRM .VBP .EXE A
19 结束应用程序的命令
是__________。
End Unload Close Exit A
20 VB有三种工作状态，
分别是运行态、设计态
和__________。代码编
写状态
中断态结束态工作状态 B
程序设计基础1
题
干TG 选项A 选项B 选项C 选项D 答案
1 表达式 5
Mod 3 + 3 \ 5
* 2的值是
__________。
0 2 4 6 B
2 以下关系表达式中，其值为False的是
__________。"ABC" >
"AbC"
"the" <>
"they"
"VISUAL" =
UCase("Visua
l")
"Integer" > "Int" A
3 设a=10，b=5，
c=1，执行语句
Print a>b>c
后，窗体上显
示的是
出错信息 1 真假 D
题
干
TG 选项A 选项B 选项C
选项D
答
案
__________。
4 假设x=2.3456，则执行代码Print Format(x, "00##.0%")后窗体上的结果为________。
2.3% 234.6%
0234.0% 0234.6% B
5 设有语句 X = InputBox("输入数值", "示例","10") 程序运行后，如果从键盘上输入数值0，并按回车键，则下列叙述中正确的是
_________。 变量X 的值是数值10 在InputBox 对话框标题栏中显示的是 "示例" 0是默认值 变量X 值是字符串 "10"
B
6 设a$ = "Microsoft VisualBasic" b$ =
Right(a$, 5) c$ = Mid(a$, 1, 9) MsgBox a$, 34, b$, c$, 5 则在弹出的信息框的标题栏中显示的信息是
__________。
Microsoft Visual Microsoft Basic 5 C
7 设a = "MicrosoftVi sualBasic"，则以下使变量
b = Left(a, 10) b = Mid(a, 10) b = Right(a, 10) b = Mid(a, 11, 10) B
题
干
TG 选项A 选项B 选项C
选项D
答
案
的b 值为
"VisualBasic "的语句是
__________。
8 执行语句a = Len(Mid("Vis ualBasic", 1, 6))后，s 的值是
__________。 Visual Basic
11 6 D
9 下列是VB 允许出现数的形式是
__________。 D9 ±5 2.45E-04 2.5E C
10 以下合法的Visual Basic 变量名是
__________。
Const ForLoop 9abc a#x B
11 设a = 3，b = 5，则以下表达式值为真的是__________。 a >= b And b > 10 (a > b) Or (b > 0) (a < 0) Eqv (b > 0) (-3 + 5 > a) And (b > 0) B
12 设a=5，b=4，c=3，d=2，下列表达式的值是__________。 3>2*b Or a=c And b<>c Or c>d 1 2
真
假
C
13 设a$="123"，b$="456"，则a+b 的结果为__________。
123 456 579 123456 D
题
干
TG 选项A 选项B 选项C 选项D 答
案 14 为了给三个变量赋初值1，下面正确的赋值语句是
_________。
x=1：y=1：z=1 x=1，y=1，z=1 x=y=z=1 xyz=1
A
15 一个语句要在下一行继续书写，所用的续行符号为
_________。 空格+分号 空格+单引号 空格+下划线 空格+冒号 C
16 以下叙述中正确的是_________________。 赋值语句兼有计算与赋值功能
在赋值语句中，“=”是赋值号，与数学上的等号意义一样
不允许多个语句放在同一行 赋值语句中的“目标操作符”仅指变量 A
17 设有如下变量声明 Dim TestDate AS Date ， 则为变量TestDate 正确赋值的表达式是
__________。 TestDate=#1/1/2002# TestDate=#"1/1/2002"# TestDate=dat e("1/1/2002") Testdate=Format("m /d/yy","1/1/2002") A 18 以下能在窗体Form1的标题栏中显示“VB 窗体”的语句是_________。 Form1.nam e=“VB 窗体” Form1.titl e=“VB 窗体” Form1.text=“VB 窗体” Form1.caption=“VB 窗体” D
19 在VB 中，执行“A=5：A=A+5”语句后，变量A 的值为
________。 0 5
10
不一定
C
2设a$ =
VVV
Vis sic ll A
题
干TG 选项A 选项B 选项C 选项D 答案
0 "VisualBasic
" ，则Print
String(3,
a$)是
__________；程序设计控制1
题干TG 选项A 选项B 选项C 选项D
答
案
1 以下Case语句中错
误的是________。Case 0 To
10
Case Is > 10 Case Is >
10 And Is
< 50
Case 3,5,Is >
10
C
2 执行下面的程序后，
变量c的值为
________。 a = 10 b
= 20 Select Case b
\ 10 Case 0 c = a *
2 + b Case 1 To 9 c
= a * 3 + b Case 1
To 99 c = a * 4 + b
End Select Print c
40 50 60 0 B
3 在Select Case x结
构中，描述判断条件
3≤x≤7的测试项应
该写成________。Case
3<=x<=7
Case
3<=x,x<=7
Case Is <=
7 , Is >=3
Case 3 To 7 D
4 执行下面程序，单击
命令按钮Command1
后，窗体上显示的内
容是________。
Private Sub
Command1_Click()
Dim x As Integer, y
As Integer x = -5 If
-5 25 1 -1 C
题
干
TG 选项A 选项B 选项C 选项D
答案
Sgn(x) Then y = Sgn(x ^ 2) Else y = Sgn(x) End If Print y End Sub 5
计算z 的值，当x 大于y 时，z=x ；否则z=y 。下列语句错误的是________。 ① If x >= y Then z = x: z = y ② If x > y Then z = x Else z = y ③ z = y: If x > y Then z = x ④ If x <= y Then z = y Else z = x
① ③④
②③④ ①③ A
6
执行下列语句，以下叙述中正确的是________。 x = 5 If x > 0 Then y = 5 y = 10
x 的值是10，y 的值是5 x 的值是5，y 的值是5 x 的值是5，y 的值是10 x 的值是10，y 的值是10 C 7
执行下列语句后整型变量a 的值是
________。 If (3 - 2) > 2 Then a = 10 ElseIf (10 / 2) = 6 Then a = 20 Else a = 30 End If
0 30
20
10
B
8
下列关于Do…Loop 语句的叙述不正确的是________。 Do…Loop 语句采用逻辑表达式来控制循环体执行的次数 当Do While …Loop 或Do Until…Loop 语句中While 或Until 后的表达式的值为True 或非零时，循环继续 Do… Loop while 语句与Do...Loop until 语句都至少执行一次循环体 Do While …Loop 语句与Do
Until…Loop 语句可能不执行循环体
B 9
a = 1 Do Until a = 100 a = a + 2 Loop
5050 102
99
溢出
D
题
干
TG 选项A 选项B 选项C 选项D
答案
执行以上语句后，a 的值为________。 10 a = 1 Do While a = 100 a = a + 2 Loop Print a 执行以上语句后，a 的值为________。 1
3
102 5050 A
11 a = 1 Do a = a + 2 Loop While a = 100 Print a 执行以上语句后，a 的值为________。
1
3 102 100 B
12 假定有以下循环结构，则下列说法正确的是________。 Do Until 条件 循环体 Loop 如果条件是一个为-1的常数，则一次循环体也不执行 如果条件是一个为-1的常数，则至少执行一次循环体 如果条件是一个不为-1的常数，则至少执行一次
循环体 不论条件是否为真，至少要执行一次循环体 A
13 在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框，然后编写如下事件过程，该事件过程的功能是________。 Private Sub
Command1_Click() Dim n As Integer, i As Integer Dim j As Integer n = Val(Text1.Text) For i = 2 To n For j = 2 To Sqr(i) If i Mod j = 0 Then Exit For Next j If j > Sqr(i) Then Print i Next i End Sub
输出n 以内的奇数 输出n 以内的偶数 输出n 以内的素数 输出n 以内能被j 整除的数 C
题干TG 选项A 选项B 选项C 选项D
答
案
14 设a="a"，b="b"，
c="c"，d="d"，执行
语句x = IIf((a < b)
Or (c > d), "A",
"B")后，x的值为
________。
"a" "b" "A" "B" C
16 假设有以下程序段：
For i = 1 To 3 For
j = 5 To 1 Step -2
Sum = Sum + 1 Next
j Next i Print Sum;
i; j 窗体上显示的
sum、I、j的值分别
为________。
8 3 1 9 4 -1 9 3 1 8 4 -1 B
17 针对语句If i = 1
Then j = 1，下列说
法正确的是
________。i = 1和j
= 1均为
赋值语句
i = 1和j = 1
均为关系表达
式
i = 1为关
系表达式，
j = 1为赋
值语句
i = 1为赋值
语句，j = 1
为关系表达式
C
18 ________不属于循
环结构语句。Do While
- Loop
For - Next If - End
if
Do until -
Loop
C
20 执行以下程序段，输
出结果为
_________。
Private Sub
Form_Click() Dim a
As String, x As
String Dim y As
String, z As String
a = "basicbasic"
For i = 6 To 2 Step
-2 x = Mid(a, i, i)
y = Left(a, i) z =
Right(a, i) z =
UCase(x & y & z)
Next i Print z End
abasic BASICA casicb ASBAIC D
题
干
TG 选项A 选项B 选项C 选项D
答案
Sub
程序设计控制2 题
干 TG 选
项A
选项B 选项C
选项D 答案 1
在Select Case …End Select 结构语句中，测试项不可以是以下________形式。 具体取值 变量 连续的数据范围 满足某个
判决条件 B 2
以下关于For-Next 循环结构的说法错误的是________。 循
环
控制变量可以是单精度型
当步长是1的时候可以省略 当循环参数初值、终值和步长在循环体内被改变，不会影响循环的执行次数 当循环控制变量在循环体内
被重新赋值，则
循环次数一定会发生变化
D 3
Private Sub Form_Click() Dim i As Integer, j As Integer For i = 1 To 10 For j = 1 To i s = s + 1 Next j Next i Print s End Sub 执行时，循环体的执行次数是________。
45 50 55
100 C
4
执行下面的语句，在窗体上显示的x 和i 的值分别为________。 For i = 1 To 10 Step 2 x = x + 1 Next i Print x, i
10 12 5 11 10 10 5 10 B
5 执行下面的语句，在窗体上显示的x 和i 的值分别为________。 For i = 1 To 10 Step
3 10 5 5 3 5 5 10 C
题
干
TG 选
项A
选项B 选项C
选项D 答案 2 x = x + 1 If x = 3 Then Exit For Next i Print x, i
6
执行下面的语句，在窗体上显示的i 的值为________。 For i = 1 To 10 Step 2 i = i + 1 Next i Print i
10 11 12
13
D
7
执行下面的语句，在窗体上显示的a 、b 、i 的值分别为________。 a = 1 b = 10 For i = a To b Step 2 a = a + 1 b = b + 1 Next i Print a; b; I
10 23 12 6 15 11 7 16 12 8 16 11 B 8
执行下面的语句，在窗体上显示的a 、i 的值分别为________。 a = 2 For i = 1 To 10 Step a a = a + 1 Next i Print a; i
7 11 8 5 5 8 7 10 A
9 执行下面的语句，在窗体上显示的a 、i 的值分别为________ 。 a = 2 For i = 1 To 10 Step a a = a + 1 i = i + 1 Next i Print a; i
8 11 9 5 6 8 6 13 D
10 执行以下语句，在窗体上显示的s 的值为________。 n = 8 s = 0 Do s = s + n n = n - 1 Loop While n > 0 Print s
25 32
36
40 C
11 m = 2 n = 3 Do m = m + n n = n + 1 Loop While m < 10 Print m; n 执行以上语句，在窗体上显示的m 和n 的值分别为________。 1 5 14 6 10 25
5 15 B
12 执行下列程序，窗体上显示的t 的结果为_________。 s = "abc" For i = Len(s) To 1 Step -1 t = t & Mid(s, i, 1) Next i Print t cba cab bca
acb A
13 执行下列程序，窗体上显示的t 的结果为_________。 s = "abc" For i = Len(s) To 1 Step -1 t = t + Right(Left(s, i), 1) Next i Print t cba cab bca
acb A
14 执行下列程序，窗体上显示的t 的结果为_________。 s = "abc" For i = Len(s) To 1 Step -1 t = Mid(s, i, 1) & t Next i Print
cba cab bca
abc D
题干TG
选
项
A
选项
B
选项C
选项
D
答
案t
15 执行下列程序，窗体上显示的t的结果为
_________。 s = "abc" For i = 1 To Len(s)
t = Mid(s, i, 1) & t Next i Print t
cba cab bca acb A
16 执行以下三重循环后，a的值为________。
For i = 1 To 3 For j = 1 To i For k = j
To 3 a = a + 1 Next k Next j Next I
20 14 9 27 B
17 有如下程序： Private Sub Form_Click()
Dim i As Integer, sum As Integer sum =
0 For i = 2 To 10 If i Mod 2 <> 0 And i
Mod 3 = 0 Then sum = sum + i End If Next
i Print sum End Sub 程序运行后，单击窗
体，输出结果为_________。
30 20 18 12 D
18 有如下程序： Private Sub Form_Click()
Dim i As Integer, sum As Integer sum =
0 For i = 2 To 10 If i Mod 2 <> 0 Or i
Mod 3 = 0 Then sum = sum + i End If Next
i Print sum End Sub 程序运行后，单击窗
体，输出结果为_________。
30 20 18 12 A
19 有如下程序： Private Sub Form_Click() m
= 5 n = -5 If Not m > 0 Then m = n - 5
Else n = m + 5 Print m - n; n - m End Sub
程序运行后，单击窗体，输出结果为
_________。
5 -5 -5 5 5 10 -10 5 B
20 执行下面程序后，x的值为_________。 x =
30 For i = 1 To 20 Step 3 x = x + i / 5
Next i
45 38 40 44 D 程序设计控制3
题
干TG 选项A 选项B 选项C 选项D 答案
1 下面程序执行时，在
窗体上显示的是
__________ Private
3 5 7 9 D
题
干TG 选项A 选项B 选项C 选项D 答案
Sub
Command1_Click() Dim a(10) For k = 1 to 10 a(k) = 11 - k Next k Print
a(a(3)\a(7) Mod
a(5)) End Sub
2 下面的数组声明中，
正确的是
__________。Dim pict
［3,4］ As
Integer
Dim
pict(3,4)
As Integer
Dim pict
［3.4］ As
Integer
Dim
pict(3:4)
As Integer
B
4 执行以下语句过程，
在窗体上显示的内
容是__________。
Option Base 0
Private Sub
Command3_Click()
Dim d d=Array("a",
"b", "c", "d")
Print d(1) ; d(3)
End Sub
ab bd ac 出错 B
5 语句 Dim X（-1 to 3，
4 to 6）as Integer
说明数组X共有
__________个元素。
12 10 18 15 D
6 下列数组定义语句
错误的是
__________。k%=10 Dim
Arr(k)
Const
k%=10 Dim
Arr(k)
Dim
Arr1(10)
As Integer
Dim Arr2
(10)
Dim Arr1(1
To 10) Dim
Arr2(1 To
10, 2 To
11)
A
7 设执行以下程序段
时依次输入2，4，6，
执行结果为
__________ Dim
a(4) As Integer Dim
b(4) As Integer For
2 4 6 0 A
题
干
TG 选项A 选项B 选项C
选项D 答
案
k=0 To 2 a(k + 1) =Val(InputBox("En ter data:") ) b(3 - k) =a(k + 1) Next k Print b(k) 8
以下有关数组的说明中，错误的是 _________。
根据数组说明的方式，数组可分为动态数组和静态数组 数组重新定义维数后，原有的数组元素内容将一定不予保留 用Redim 语句定义的动态数组，其下标的上下界可以是赋了值的变量 利用Redim 语句重新定义维数时，不得改变已经说明过的数
组的数据
类型
B 9
下列程序段的执行的结果是
__________。 Dim a(10) , b(10) i=3 For j=1 To 5 a(j) =j b(i) =2*i + j Next j Print b(i) ; a(i) 11 3 31 5
31 1
15 3
A
10 下列程序的运行结果为__________。 Dim a(-1 To 6) For i=LBound(a, 1) To UBound(a, 1) a(i) =i Next i Print a(LBound(a, 1) ) ; a(UBound(a, 1) ) 0 0 0 5 -1 6 0 6 C
11 下列程序段的执行结果为__________。 Dim t(10) For k=2 To 10 t(k) =11 - k Next k x=6 Print t(2 + t(x) )
2 3 4 5 C
12
直接以Dim x(6,2 to 5)来声明一个二维数组，错误的选项是
Lbound(x,2)的返回Ubound(x,2)的返回Ubound(x,1)的返回Lbound(x,1)的返回 A
题
干TG 选项A 选项B 选项C 选项D 答案
________。值是1 值是5 值是6 值是0
13 使用语句Dim F(2)
As Integer 声明数
组F之后，以下说法
正确的是________。F数组中的
所有元素
值都为
Empty
F数组中的
所有元素
值不确定
F数组中的
所有元素
值都为0
执行Erase
F后，F数
组中的所
有元素值
都不为0
C
14 用Dim(1,3 to 7,10)
声明的是一个
______维数组。
1 2 3 4 C
15 设有声明语句：
Option Base 1 Dim
a(-1 to 10,2 to
9,10) As Integer
则a数组中全部元素
的个数为______。
960 920 900 1056 A
16 由Array函数建立数
组，相应的数组名必
须为________。变体型数
组
变体型变
量
整型字符型 B
17 执行下列程序后，窗
体上显示的s的值为
_______。 Dim a(3,
3) As Integer Dim i
As Integer, j As
Integer, k As
Integer, s As
Integer For i = 1 To
3 For j = 1 To 3 k
= k + 1 a(i, j) = k
s = s + a(i, j) Next
j Next i Print s
35 45 55 65 B
18 执行下面的程序，窗
体上第二行显示的
内容是________。
Dim a(3, 3) As
Integer, i As
Integer, j As
1 2 3 5 6 7 3 4 5 4 5 6 C
题
干TG 选项A 选项B 选项C 选项D 答案
Integer For i = 1 To
3 For j = 1 To 3 a(i,
j) = (i - 1) * 2 +
j Print a(i, j);
Next j Print Next i
19 执行下面的程序，窗
体上第三行显示的
内容是________。
Dim a(3, 3) As
Integer, i As
Integer, j As
Integer For i = 1 To
3 For j = 1 To 3 a(i,
j) = (i - 1) * 2 +
j Next j Next i For
j = 1 To 3 For i =
1 To 3 Print a(j,
i); Next i Print
Next j
1 2 3 5 6 7 3 4 5 6 7 8 B
20 以下有关ReDim说法
错误的是_____。ReDim可用
于定义一
个新数组
在ReDim语
句中，可使
用变量说
明说明动
态数组的
大小
无
Preserve
关键字的
ReDim语
句，可重新
定义动态
数组的维
数
用ReDim语
句重新定
义数组后，
原有数组
的内容都
不保留
D
程序设计控制4
题
干TG 选项A 选项B 选项C 选项D 答案
1 以下说法错误的
是________。ReDim是一个
可执行语句，
只能出现在
过程中
用ReDim重新
定义动态数
组时，不能改
变数组的数
当语句中缺
省关键字
Preserve时，
可以重新定
若要保留原
数组的内容，
可在语句中
使用关键字
D
题
干
TG 选项A 选项B 选项C 选项D
答案
据类型
义动态数组的维数和各维的上、下界 Preserve ，并且可以改变数组的维数
和维界 2 以Dim x(6,2 to 5)来定义一个二维数组，
Ubound(x,2)的返回值是________。
0 6
2
5
D
3 下面有关数组的说法中，错误的是________。 定义数组时，数组维界值可以不是整数 Erase 语句的作用是重新初始化固定大小数组的元素，或者释放动态数组的存储空间 程序中如果使用了Option Base 1语句，数组下标若未定义则从1开始 用ReDim 语句重新定义动态数组时，数
组的大小和
数据类型都可以被改变 D 4 语句 Dim X （3，-1 to 4）as Integer 说明数组X 共有
__________个元素。
15 18
24
12
C
6 在窗体的通用声明处有语句Dim A() As Single,以下在某事件过程中重定义此数组的一组正确语句是：________。
ReDim a(3, 3) ReDim a(4, 6) As Integer ReDim a(3, 3) ReDim Preserve a(3, 6) ReDim a(3) ReDim a(3, 3) As Integer ReDim a(3) ReDim Preserve a(4, 6)
B 7 对动态数组a （），若原数组为a （5），要改变数组为a （10）时，为保证其数组内的数据不丢失，应使用________语句进
Dim a(10) ReDim a(10) ReDim Preserve a(10) Dim a(5 To 10)
C
题
干
TG 选项A 选项B 选项C 选项D
答案
行定义。
8 语句 Dim A （2 to 5，5 to 6）as Single 说明数组A 共有________个元素
6 8 10 12 B
9 以下有关ReDim 语句用法的说明中，错误的是________。 ReDim 可用于定义一个新数组 ReDim 语句既可以在过程中使用，也可以在模块的通用声明处使用 无Preserve 关键字的ReDim 语句，可重新定义动态数组的维数 在ReDim 语句中，可使用变量说明指明动态数组的
大小 B 10 用冒泡排序法对8个数按升序进行排序，请选择合适的代码将下列程序补充完整。 For i=8 to 2 step -1 For j= 1 to _________ If _________ then temp = sort(j+1) sort(j+1) = sort(j) sort(j) = temp End If Next j Next i 8-i sort(j)>sor t(j+1) 8-i sort(j)
11 下列关于数组的叙述中，错误的是________。 在过程中可以用DIM 语句对形参数组进行声明 数组是同类变量的一个有序的集合 数组元素可以是控件 数组在使用之前，必须先用数组说明
语句进行说
明 A 12 以下关于数组叙述错误的是__________。
语句 Dim A （2 to 5）as Single 说明数组A 共有3个数组元素 Lbound 函数的功能是返回数组某维的维下界的值
数组分为固定大小的数组和动态数组
数组元素也可以是控件 A
题
干TG 选项A 选项B 选项C 选项D 答案
13 假定建立了一个
名为Command1的
命令按钮数组，则
以下说法中错误
的是__________。数组中每个
命令按钮的
名称(名称属
性)均为
Command1
数组中每个
命令按钮的
标题
(Caption属
性)都一样
数组中所有
命令按钮可
以使用同一
个事件过程
用名称
Command1(下
标)可以访问
数组中的每
个命令按钮
B
14 下列叙述中，正确
的是__________。控件数组的
每一个成员
的Caption属
性值都必须
相同
控件数组的
每一个成员
的Index属性
值都必须不
相同
控件数组的
每一个成员
都执行不同
的事件过程
对已经建立
的多个类型
相同的控件，
这些控件不
能组成控件
数组
B
15 用____________
属性可唯一标志
控件数组中的某
一个控件。
Name Index Caption TabIndex B
16 下面关于控件数
组与一般控件的
叙述中，正确的是
_________。控件数组一
定由至少两
个同类型的
控件组成，而
一般控件只
有一个控件。
控件数组的
索引值Index
起始值为0，
而一般控件
的Index起始
值为空。
控件数组的
索引值Index
起始值为1，
而一般控件
的Index起始
值为0
控件数组的
建立通过Dim
语句声明，而
一般控件不
需要声明。
B
17 窗体上有一个名
称为Text1的文本
框，有1个由3个
单选按钮组成的
控件数组，名称为
Option1,程序运
行后当单击某个
单选按钮，文本框
中的字体将根据
所选择的单选按
钮切换，请将下面
的代码补充完成，
以实现上述功能。
Private Sub
Option1_Click(I
ndex As Integer)
Index a Is Value A
本卷共有3道大题: 一、单项选择题（40道小题，共40分） 1、下列说法中，不正确的说法是( D )。（1分） A、窗体是对象 B、窗体必须有Name属性 C、窗体可以缩放或移动 D、单击窗体内的控件可以执行Form_Click事件过程 2、如果Visual Basic环境中缺少某个窗口，一般应该从主菜单的( D )下拉菜单中寻找并打开。（1分） A、编辑 B、文件 C、调试 D、视图 3、下列说法中，正确的说法是( B )。（1分） A、窗体名称和该窗体文件名必须一致 B、窗体名称和该窗体文件名可以不相同 C、窗体名称和该窗体文件名不能使用汉字 D、窗体名称不能使用汉字、但该窗体文件名能使用汉字 4、命令行Command1.Caption="Command1"，其中Command1、"Command1"分别代表的是( B )。（1分） A、命令、标题 B、控件名称、Caption属性值 C、对象、控件名称 D、标题、标题的值 5、Unload事件是在( A )时发生的。（1分） A、窗体关闭 B、对话框关闭 C、文本框失去焦点 D、改变文本框的内容 6、所谓默认属性是指不用指定控件的属性名就可以代表其属性。一个文本框控件Text1的默认属性是( B )。（1分） A、Name B、Text C、Top D、FontSize 7、命令按钮Command1的Caption属性为“退出x”，如果将命令按钮的快捷键设为Alt+x，应修改Caption属性为( A )。（1分） A、在x前插入& B、在x后插入& C、在x前插入# D、在x后插入# 8、要使标签控件在显示时不覆盖其背景内容，可以对标签控件的( D )属性进行设置。（1
VB测验选择题真题精选
————————————————————————————————作者：————————————————————————————————日期：
VB考试真题精选，考前必备神器20 开通黄钻 21， a = 1: b = 2: plus S, a, b: Print S:不能使其输出结果为3的plus过程为( b )。（1分） A、Sub plus(sum, a , b ): sum = a + b: End Sub B、Sub plus(ByVal sum , a , b ): sum = a + b: End Sub C、Sub plus(sum , ByVal a, ByVal b ): sum = a + b: End Sub D、 D、Sub plus(sum , ByRef a , ByRef b ): sum = a + b: End Sub 22、通过关键字( c )声明的局部变量，在整个程序运行中一直存在。（1分） A、Dim B、Public C、Static D、Private 23、过程的作用域分为( c )。（1分） A、窗体级和局部级 B、模块级和局部级 C、窗体/模块级和全局级 D、窗体/模块级和局部级 24、在窗体的通用段声明变量时，不能使用( d )关键字。（1分） A、Dim B、Public C、Private D、Static 25、能在一个工程的所有程序中使用的变量，称为( b )。（1分） A、局部变量 B、全局变量 C、窗体级变量 D、模块级变量 27、使用Public Const语句声明一个全局的符号常量时，应该将该语句放在( b )。（1分）
VB真题汇总 1、以下有关Visual Basic语言描述中,错误的是 B (1分) A、语句是一行一句,以回车键结束 B、用“,”分隔一行中的多个语句 C、变量名不区分大小写 D、一条语句放在多行中,则在前一行结束处使用续行符“_”连接下一行 2、以下关于事件的叙述中,错误的是 D (1分) A、事件是系统定义的能被对象识别的动作 B、事件可分为用户事件与系统事件 C、VB为每个对象设置好各种事件,并定义好事件过程的过程名 D、VB中对象的事件就是对象的方法 3、下列选项中,不属于VB特点的选项是C。(1分) A、可视化程序设计 B、面向对象 C、窗口中包含有菜单栏和工具栏 D、事件驱动下的编程机制 4、下列叙述中,正确的是A。(1分) A、事件可以由用户触发,也可以由系统触发 B、Visual Basic应用程序只能以解释方式执行 C、保存Visual Basic程序时,只需保存窗体文件即可 D、所有控件都有DblClick事件 5、下列关于VB编码规则的叙述中,错误的是 B 。(1分) A、一条语句可以分为多行书写 B、多条语句可以书写在同一行上,每条语句之间用逗号隔开 C、可以用Rem注释内容给语句或程序段加上注释,以提高可读性 D、不区分程序代码中变量名的字母的大小写 6、B 是对象的一个基本要素,它描述了对象在程序中的外观特点。(1分) A、事件 B、属性 C、方法 D、事件程序 7、在Visual Basic中,系统为每个对象预先定义好了一系列的事件。下列事件中,不属于VB系统提供的事件是C。(1分) A、Click B、Change C、MyFirst D、DblClick 8、在设计模式下,双击窗体上的一个控件,则会打开 C 。(1分) A、属性窗口 B、工程资源窗口 C、代码窗口 D、窗体布局窗口
2009年3月二级VB语言笔试真题及答案 一、选择题（每题2分，共计70分） (1)下列叙述中正确的是 A)栈是先进先出的线性表 B)队列是"先进后出"的线性表 C)循环队列是非线性结构 D)有序线性表即可以采用顺序存储结构,也可以采用链式存储结构 (2)支持子程序调用的数据结构是 A)栈B)树C)队列D)二叉树 (3)某二叉树有5个读为2的结点,则该二叉树中的叶子结点数是 A)10 B)8 C)6 D)4 (4)下列排序方法中,最坏情况下比较次数最少的是 A)冒泡排序B)简单选择排序 C)直接插入排序D)堆排序 (5)软件按功能可以分为:应用软件、系统软件和支撑软件(或工具软件)。下列属于应用软件的是 A)编译程序B)操作系统 C)教务管理系统D)汇编程序 (6)下面叙述中错误的是 A)软件测试的目的是发现错误并改正错误 B)对被调试程序进行"错误定位"是程序调试的必要步骤 C)程序调试也成为Debug D)软件测试应严格执行测试计划，排除测试的随意性 (7)耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是 A)提高耦合性降低内聚性有利于提高模块的独立性 B)降低耦合性提高内聚性有利于提高模块的独立性 C)耦合性是指一个模块内部各个元素间彼此结合的紧密程度 D)内聚性是指模块间互相连接的紧密程度 (8)数据库应用系统中的核心问题是 A)数据库设计B)数据库系统设计 C)数据库维护D)数据库管理员培训 (9)有两个关系R,S如下： 由关系R通过运算得到关系S,则所使用的运算为 A)选择B)投影C)插入D)连接 (10)将E-R图转换为关系模式时,实体和联系都可以表示为 A)属性B)键C)关系D)域 (11)执行语句Dim X,Y As Integer 后, A)X和Y均被定义为整型变量B)X和Y均被定义为变体类型变量 C)X被定义为整型变量,Y被定义为变体变量 D)X被定义为变体类型变量,Y被定义为整型变量 (12)以下关系表达式中，其值为True的是 A)"XYZ">"XYz" B)"VisualBasic"<>"visualbasic" C)"the"="there" D)"Integer"<"Int" (13)执行以下程序段 a$="Visual Basic Programming" b$="C++" C$=UCase(Left$(a$,7)) & b$ & Right$(a$,12) 后,变量C$的值为 A)Visual BASIC Programming B)VISUAL C++ Programming C)Visual C++ Programming D)VISUAL BASIC Programming 14)下列叙述中正确的是 A)MsgBox语句的返回值是一个整数 B)执行MsgBox语句并出现信息框后,不用关闭信息框即可执行其他操作 C)MsgBox语句的第一个参数不能省略 D)如果省略MsgBox语句的第三个参数(Title),则信息框的标题为空 15)在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后, 在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数,以下可以实 现上述操作的事件过程是 A)Private Sub Text1_Change() Label1.Caption=str(Len(Text1.Text)) End Sub B)Private Sub Text1_Click() Label1.Caption=str(Len(Text1.Text)) End Sub C)Private Sub Text1_Change() Label1.Caption=Text1.Text End Sub D)Private Sub Label1_Change() Label1.Caption=str(Len(Text1.Text)) End Sub 16)在窗体上画两个单选按钮(名称分别为Option1,Option2,标题分别为"宋体"和"黑体"), 1个复选框(名称为Check1,标题为粗体)和1个文本框(名称为Text1,Text属性为"改变 文字字体")，窗体外观如图所示。程序运行后，要求―宋体‖单选按钮和―粗体‖复选框被
2007年秋季vb考试真题 1．下面关于比特的叙述中，错误的是( 1 ) A．比特是组成数字信息的最小单位 B．比特只有“0”和“1”两个符号 C．比特既可以表示数值和文字，也可以表示图像和声音 D. 比特”1”总是大于比特“0” 2．在下列有关集成电路的叙述中，错误的是( 2 ) A．现代集成电路使用的半导体材料主要是硅 B．大觑模集成电路一般以功能部件、子系统为集成对象 C．我国第2代居民身份证中包含有IC芯片 D? 目前超大规模集成电路中晶体管的基本线条已小到l纳米左右 3．在下列有关通信技术的叙述中，错误的是( 3 ) A.通信的基本任务是传递信息，因而至少需由信源、信宿和信道组成 B.通信可分为模拟通信和数字通信，计算机网络属于模拟通信 C.在通信系统中，采用多路复用技术的目的主要是提高传输线路的利用率 D?学校的计算机机房一般采用5类无屏蔽双绞线作为局域网的传输介质 4.下面是关于PC机主存储器的一些叙述，其中正确的是( 4 ) A.主存储器是一种动态随机存取存储器(RAM) B.主存储器的基本编址单位是字(即32个二进位) C.目前市场上销售的PC机，其内存容量可达数十GB D.所有PC机的内存条都是通用的：可以互换 5．现行PC机中，IDE(或SATA)接口标准主要用于( 5 ) A．打印机与主机的连接C．声卡与主机的连接 B．显示器与主机的连接D．硬盘与主机的连接 6. 下列有关PC机的CPU、内存和主板的叙述中，正确的是( 6 ) 。 A．大多数Pc机只存一块CPu芯片，即使是“双核”CPU也是一块芯片 B．所有Pentium系列微机的内存条相同，仅有速度和容量大小之分 C．主板上芯片组的作用是提供存储器控制功能，I/O控制与芯片组无关 D．主板上CMOS芯片用于存储CMOS设置程序和一些软硬件设置信息 7.下列有关目前Pc机辅助存储器的叙述中，错误的是( 7 ) A．硬盘的容量越来越大，这是因为硬盘中磁盘碟片的数目越来越多 B．硬盘的内部传输速率一般小于外部传输速率 c．优盘采用Flash存储器技术，属于半导体存储器 D．目前常见COMBO光驱是一种将CD-RW和DVD-ROM组合在一起的光驱 8.下面有关Windows操作系统，(95以后版本)的叙述中，错误的是( 8 ) 。A．Windows操作系统支持系统中多个任务的并发执行 B．利用Whldows附件“系统工具”中的“系统信息”可以查看内存的工作情况 C．系统规定文件名最多由128个字符组成 D．Vista是Microsoft公司推出的Windows XP操作系统的后继版本 9.算法设计是编写程序的基础。下列关于算法的叙述中，正确的是( 9 ) 。 A．算法必须产生正确的结果C．算法可以没有输出 B．算法必须具有确定性D．算法的表示必须使计算机能理解 10．因特网使用TCP／IP协议实现全球范围的计算机网络互连，连接在因特网上的每一台主机
1、算法描述：求的1~100之间所有偶数的和 '注：请不要更改原程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码'Function func() (1) i As Integer dim func = (2)0 For i = 2 To 100 Step (3)2 func = func + i Next i End Function 2、操作要求: 顺序查找单词“name”： 输入10个不同的单词给数组，查找单词“name”是否在数组中；如果在，输出单词在数组中的位置，否则，输出“不在数组中”。 Sub main() Dim i As Integer Dim buzai As Boolean '定义数组d,下界为1,上界为10,数据类型为string，在dim后完善语句 Dim (1) d(1 To 10) As String '输入10个单词，在for语句后完善i的初始值与终值 For i =(2) 1 to 10 '输入每个单词给数组元素，在赋值号左侧添加变量 (3) = InputBox("Please input word " & i) d(i) Next i buzai = True i = 0 While buzai = True And i < 10 '顺序查找单词，数组下标增1，在赋值号右侧添加表达式 i =(4) i+1 '判断数组元素是否为单词"name",在if语句后添加判断条件 If (5) Then d(i) = "name" buzai = False End If Wend If buzai = False Then MsgBox "在数组中的位置为：" + Str(i) Else MsgBox "不在数组中" End If End Sub 3、小王今年26岁，资助了一名贫困大学生， '他想从明年开始每年比上一年多资助一名贫困大学生。 '编程求解小王到多少岁，就能资助到n名甚至更多大学生？ Function func(n) stu = 1
1、下列叙述中，错误的是( A )。（1分） A、一条语句可以分为多行书写，但要在上行末加上VBCrLf B、在同一行上书写多条语句，应在两两语句中加上:号 C、可以用Rem或'注释单行语句 D、VB程序代码不区分字母的大小写 2、下列叙述正确的是( D )。（1分） A、Visual Basic的事件是由用户定义的 B、Visual Basic程序从主窗体开始执行 C、Visual Basic程序是过程驱动的 D、保存一个Visual Basic程序，应分别保存其窗体模块、标准模块和工程文件 3、被对象所识别的动作与对象可执行的动作分别称为对象的( A )。（1分） A、方法、事件 B、事件、方法 C、事件、属性 D、过程、属性 4、下列关于VB编码规则的叙述中，正确的是( C )。（1分） A、一条语句可以分为多行书写 B、多条语句不能书写在同一行上 C、每条语句以分号;结尾 D、应用程序代码字母是区分大小写的 5、( D )不属于面向对象系统的三要素。（1分） A、事件 B、属性 C、方法 D、变量 6、下列叙述中，不正确的叙述是( C )。（1分） A、注释语句是非执行语句，仅对程序的有关内容起注释作用，客观存在不被解释和编译 B、注释语句能放在整个代码程序的最后 C、注释语句可以放在代码中的任何位置 D、代码中加入注释语句的目的是提高程序的可读性 7、下列叙述错误的是( B )。（1分） A、不允许使用行号与标号 B、单条语句可分行书写 C、同一行上可以书写多条语句 D、VB代码不区分字母的大小写 8、窗体设计器是用来设计( B )。（1分） A、应用程序的代码段 B、应用程序的界面 C、对象的属性 D、对象的事件 9、启动Visual Basic后，系统为用户新建的工程起一个名为( A )的临时名称。（1分） A、工程1 B、窗体1 C、工程 D、窗体 10、在界面设计时，双击窗体中的对象后，Visual Basic将显示的窗口是( C )。（1分） A、立即窗口 B、属性窗口 C、代码窗口 D、工程资源管理器窗口 11、VB应用程序在( A )模式下不能编辑代码和设计界面。（1分） A、运行 B、中断 C、设计 D、以上均不能 12、如果要向工具箱中加入控件的部件，可以利用“工程”菜单中的( B )命令（1分） A、引用 B、部件 C、工程属性 D、加窗体 13、如果Visual Basic环境中缺少某个窗口，一般应该从主菜单的( D )下拉菜单中寻找并打开。（1分） A、编辑 B、文件 C、调试 D、视图 14、标准控件不包括( D )控件。（1分） A、驱动器列表框 B、目录列表框 C、文件列表框 D、通用对话框 15、在设计窗体时，如果窗体上没有显示网格会感到不方便，( c )可以使网格出现。（1分） A、使用“编辑”菜单上的相关命令 B、使用“格式”菜单上的相关命令 C、使用“工具”菜单上的相关命令 D、使用“工程”菜单上的相关命令 16、在Visual Basic中，某一事件对应的程序叫( b )。（1分）
2012年3月全国计算机等级考试二级笔试试卷 Visual Basic语言程序设计 （考试时间90分钟，满分100分） 一、选择题（每小题2分，共70分） 下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂在答题卡相应位置上，答在试卷上不得分。 （1）下列叙述正确的是（）。 A) 循环队列是队列的一种链式存储结构B．循环队列是队列的一种顺序存储结构C．循环队列是非线性结构D．循环队列是一种逻辑结构 （2）下列叙述正确的是（）。 A) 栈是一种先进先出的线性表B．队列是一种后进后出的线性表 C．栈和队列都是非线性结构D．以上三种说法都不对 （3）一棵二叉树共有25个结点，其中5个是叶子结点，则度为1的结点数为（）。A．16 B．10 C．6 D．4 （4）在下列模式中，能够给出数据库物理存储结构与物理存取方法的是（）。A．外模式B．内模式C．概念模式D．逻辑模式 （5）在满足实体完整性约束的条件下（）。 A．一个关系中应该有一个或多个候选关键字B．一个关系中只能有一个候选关键字C．一个关系中不许有多个候选关键字D．一个关系中可以没有候选关键字 （6）有三个关系R、S和T如下：（）。 则由关系R和S得到关系T的操作时 A．自然连接B．并C．交D．差 （7）软件生命周期中的活动不包括（）。 A．市场调研B．需求分析C．软件测试D．软件维护 （8）下面不属于需求分析阶段任务的是（）。 A．确定软件系统的功能需求B．确定软件系统的性能需求 C．需求规格说明书评审D．制定软件集成测试计划 （9）在测试方法中，设计测试用例的主要根据是（）。 A．程序内部逻辑B．程序外部功能C．程序数据结构D．程序流程图
1、算法描述:求得1~100之间所有偶数得与 '注:请不要更改原程序结构,删除(1)、(2)、(3),并在对应位置填写正确得代码 'Function func() (1) i As Integer dim func = (2)0 For i = 2 To 100 Step (3)2 func = func + i Next i End Function 2、操作要求: 顺序查找单词“name” : 输入10个不同得单词给数组,查找单词“name”就是否在数组中;如果在,输出单词在数组中得位置,否则,输出“不在数组中”。 Sub main() Dim i As Integer Dim buzai As Boolean '定义数组d,下界为1,上界为10,数据类型为string,在dim后完善语句 Dim (1) d(1 To 10) As String '输入10个单词,在for语句后完善i得初始值与终值 For i =(2) 1 to 10 '输入每个单词给数组元素,在赋值号左侧添加变量 (3) = InputBox("Please input word " & i) d(i) Next i buzai = True i = 0 While buzai = True And i < 10 '顺序查找单词,数组下标增1,在赋值号右侧添加表达式 i =(4) i+1 '判断数组元素就是否为单词"name",在if语句后添加判断条件 If (5) Then d(i) = "name" buzai = False End If Wend If buzai = False Then MsgBox "在数组中得位置为:" + Str(i) Else MsgBox "不在数组中" End If End Sub 3、小王今年26岁,资助了一名贫困大学生, '她想从明年开始每年比上一年多资助一名贫困大学生。 '编程求解小王到多少岁,就能资助到n名甚至更多大学生？ Function func(n) stu = 1 age = 26 '请完善下面两条语句 Do While stu < Val(n)
卷1 一、填空题 1、VB程序设计的主要特点是可视化设计和事件 编程。2、在VB中，最主要的两种对象是窗体 （form）和控件。 3、工程是构成应用程序文件的集合。 4、方法是VB提供的一种特殊子程序，用来完成一定的操作。 5、浮点类型数据包括单精度型和___双精度__数据。 6、事件是窗体或控件对象识别的__动作____。 7、可用窗体的__print_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____选中___或禁止状态(暗淡的)中的某一种。 9、在VB中，修改窗体的高度（height）和宽度（width）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的中央出现一个尺寸为缺省值的控件。 11、在MsgBox函数中，如果缺省title参数，则使用工程1 作为消息框的标题。 12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是34.6 。 13、在VB 中，数值型变量的初值为0 ，Varant型变量的初值 为空，布尔型变量的初值为FALSE 。 14、设置窗体的picture 属性，可在窗体上显示图片。 15、程序运行工程中，清除MP图片框中的图片应使用语句cls 。 二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、 Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句Select * Form student 中的*表 示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对
2001年（春）江苏省等级考试上机试卷 二级 Visual Basic (VB01) (本试卷上机考试时间为70分钟) 一、改错题（17分） [题目]下面程序功能是找出一个正整数的所有质因子。例如，48的质因子是2，2，2，3。Option Explicit Private Sub Form_Click() Dim Fac() As Integer,N(3) As Integer Dim I As Integer,J s Integer N(1)=48:N(2)=308:N(3)=1155 For I=1 To 3 Call Factor(Fac,N(I)) Print N(I);"的质因子是："; For J=1 To UBound(Fac) Prin Fac(J); Next J Print ReDim Fac(1)
Next I End Sub Private Sub Factor(F() As Integer,ByVal N() As Integer) Dim I As Integer,J As Integer,Idx As Integer Dim K As Integer K=2 Do Until N=1 If N Mod K=0 Then Idx=Idx+1 ReDim F(Idx) F(Idx)=K N=N/K Else N=N+1 End If Loop End Sub [要求] 1.新建工程，输入上述代码，改正程序中的错误； 2.改错时，不得增加或删除语句 3.以Myfrm1的名字和Myprj1的名字分别将窗体和工程保存到软盘A的 根目录下。 二、编程题（23分）
一、单项选择题（50道小题，共50分） 1、在Visual Basic中，系统为每个对象预先定义好了一系列的事件。下列事件中，不属于VB系 统提供的事件是( )。（1分） A、Click() B、Change() C、MyFirst() D、DblClick() 2、以下有关Visual Basic语言描述中，错误的是( )。（1分） A、语句是一行一句，以回车键结束 B、用“,”分隔一行中的多个语句 D、一条语句放在多行中，则在前一行结束处 C、变量名不区分大小写 使用续行符“_”连接下一行 3、下列叙述中，正确的是( )。（1分） B、Visual Basic应用程序只能以解释方式 A、事件可以由用户触发，也可以由系统触发 执行 C、保存Visual Basic程序时，只需保存窗 D、所有控件都有DblClick事件 体文件即可 4、下列不属于VB三种模式的是( )模式。（1分） A、设计 B、运行 C、代码 D、中断 5、( )是对象的一个基本要素，它描述了对象在程序中的外观特点。（1分） A、事件 B、属性 C、方法 D、事件程序 6、对象能够识别的操作称为( )。（1分） A、属性 B、方法 C、事件 D、过程 7、VB系统中供用户直接调用，使对象完成一定的操作或实现一定功能的特殊过程称为( )。 （1分）
A、事件 B、方法 C、属性 D、文件 8、可以用来进行一些简单计算的窗口是( )。（1分） A、属性窗口 B、立即窗口 C、工程窗口 D、窗体布局窗口 9、打开Visual Basic集成环境后，默认显示的工具栏是( )。（1分） A、编辑工具栏 B、标准工具栏 C、调试工具栏 D、窗体工具栏 10、在Visual Basic的中断模式下，按下功能键F8，则( )。（1分） A、执行中断时的下一个语句 B、执行中断时的下一个模块 C、退出Visual Basic D、结束当前的运行 11、当程序中断修改后再运行时，VB进入( )模式。（1分） A、设计 B、运行 C、中断 D、编程 12、在工具箱窗口关闭的情况下，如果要打开只需选择( )菜单的“工具箱命令”即可。（1分） A、视图 B、运行 C、编辑 D、文件 13、如果Visual Basic环境中缺少某个窗口，一般应该从主菜单的( )下拉菜单中寻找并打开。（1分） A、编辑 B、文件 C、调试 D、视图 14、在设计模式下，双击窗体上的一个控件，则会打开( )。（1分）
一、单选题 1、下列____不是Visual Basic程序的基本结构。 A) 层次结构 B) 分支结构 C) 循环结构 D) 顺序结构 2、当文本框的内容发生变化时，必将触发____事件。 A) LostFocus B) KeyPress C) Change D) Click 3、在Visual Basic中，建立一个文本编辑区域，可采用下列____。 A) 命令按钮 B) 标签控件C) 文本控件 D) 定时器控件 4、在Visual Basic中，下列____表达式的值不等于4。 A) int(4.1) B) int(4.9) C) Abs(int(-3.9)) D) Abs(int(-4.5)) 5、代数表达式中的一元二次方和求根公式中的一个改成VB表达式是____。 A) (-b+sqr(b*b-4*a*c))/(2*a) B) -b+sqr(b*b-4*a*c)/(2*a) C) (-b+sqr(b*b-4*a*c))/2*a D) (-b+ (b*b-4*a*c))/(2*a) 6、在Visual Basic中，下列____程序行是符合语法的。 A) X=Y=5 B) A+B=C^3 C) Y=1:Y=Y+1 D) I=10X 7、假定X是一个数值型变量，那么由函数组成的表达式INT（X/2）=X/2，作用是____。 A) 用于测试X是否偶数 B) 返回一个整数 C) 返回一个奇数 D) 用于测试X是否整数 8、表达式Abs(-3.6)*sqr(100)的值是____。 A) -360 B) 360 C) -36 D) 36 9、为了使一个窗体从屏幕消失但仍在内存中，所使用的方法或语句为_______。 A)Show B)Hide C)Load D)Unload 10、要改变新建对象的缺省名称，应使用属性____。 A) Font B) ForeColor C) Name D) Height 11、要使一个命令按钮显示文字“确定”，正确的设置是把它的属性____设置为“确定”。 A) Font B) ForeColor C) Caption D) BorderStyle 12、在Visual Basic 中，下列____ 单词用于注释语句。 A) Rem B) End C) Else D) Loop 13、在Visual Basic中，设置控件的位置，可改变下列____属性。 A) Height 与 Width B) height 与Top C) Left 与 Top D) Left 与 Width 14、下列语句中____定义了一个单精度型变量。 A) Dim I As Integer B) Dim Sum As Single C) Dim Name As String D) wjm="信息技术" 15、要使一个控件在运行时无效，正确的设置是____。 A) 把属性Enabled设置为True B) 把属性Enabled设置为False C) 把属性Visibled设置为True D) 把属性Visibled设置为False 16、下面叙述正确的是_______。 A)算法的执行效率与数据的存储结构无关 B)算法的空间复杂度是指算法程序中指令(或语句)的条数 C)算法的有穷性是指算法必须能在执行有限个步骤之后终止 D)算法的时间复杂度是指执行算法程序所需要的时间 17、下面概念中，不属于面向对象方法的是_______。
目录 一、填空题 (2) 二、选择题 (5) 三、程序填空 (18) 四、阅读程序写结果 (25) 五、编程题 (31) 六、历年全国计算机二级等级考试真题(附答案) (33) 2006年4月全国计算机等级考试二级VB笔试试卷 (33) 2005年9月全国计算机等级考试二级VB笔试试卷 (43) 2005年4月全国计算机等级考试二级VB笔试试卷 (50) 2004年9月全国计算机等级考试二级VB笔试试卷 (57)
一、填空题 1、在程序中使用日期型数据时，必须用符号 将日期型数据括起来。 2、VB 集成发环境窗口，它包括了数个独立的窗口。除必须的"主窗口"外，常用的还有 窗口、 窗口、 窗口、工具箱窗口、对象浏览窗口、工程资源管理等窗口。 3、在计算机上建立一个VB 应用程序的完整过程，一般分：建立用户界面的对象、对象属性的设置 、对象事件过程及编程、 程序的运行和调试 和 保存文件 五个步骤。 4、VB 中每个对象都有自己的属性， visible 属性决定控件是否允许可见。 5、在VB 对象的三要素中，可以把 属性 看作一个对象的性质，把 事件 看作对象的响应，把 方法 看作对象的动作。 6、VB 有三种工作模式，它们分别是 模式、 模式和 模式。 7、如果希望每0.6秒钟产生一个计时事件，那么应将InterVal 属性值应设置为 。 8、在VB 中，为了使一个控件在运行时不可操作，应将控件的 enable 属性设置为 false 。 9、为了防止用户编辑文本框内的内容，应将控件的 locked 属性设置为 true 。 10、当要使标签框的大小随着Caption 属性的值进行扩展或缩小时，应将该控件的 autosize 属性设置为 true 。 11、定义一个长度为8个字符的定长字符串变量(Ch5)的Dim 声明语句是 dim ch5 as string*8 。 12、VB 中拥有多个窗体的程序可用 load 语句窗体装入内存，用 unload 语句从内存中删除指定窗体. 13、在多窗体工程中，可用 show 方法显示一个窗体，用 hide 方法将一个窗体隐藏起来。 14、结构化程序设计方法，把程序的结构规定为 三种基本结构，它们是： 选择结构 、 选择 结 构 、 和 __循环结构_________三种基本结构。 15、VB 逻辑数据类型只有True 与False 两个值。当逻辑数据转换成整型数据时，True 转换为 ，False 转换为 。 16、VB 中依据变量的作用范围将VB 变量的作用范围分为三类，它们是： 局部 变量、 全局 变量和 窗体模块 变量。 17、VB 中，对控件（对象）一些属性的设置，即可以通过在 程序代码 中设置，也可以在 属性窗口 中设置，两种方法来设置。 18、在VB 中，静态数组声明中的下标只能是 常 量 。而动态数组Redim 语句中的下标还可以是已赋值 的变量。 19、产生100～200之间（含100和200）的随机整数的表达式是： 。 20、表达式4 AND 5 的运算结果是 4 。 21、VB 中，当KeyPress 事件发生时会返回一个按键 的 ASCii 值。 22、VB 中，用Option Base 1说明后，Dim A （5，5）定义的数组有 25 个元素。 23、表达式“12345”<>“12345”&“ABC ”的值 是 。 24、在Select case 结构中应至少包含一个 __Case____子句。 25、启动VB6.0时，VB6.0默认的工程类型是 标准EXE 程序 。 26、A=7，B=3，C=4，则表达式A MOD 3 +B^3/C\5的值为 2 。 27、若要求在菜单中包含分隔条，则设计时，在菜单的标题属性中应设置为 “— “ 。 28、在For ……Next 循环中，循环次数由循环控制变量的初值、终值与步长三个因素决定，其计算公式为 循环次数=INT （终值-初值）/步长+1 。 29、激活属性窗口的快捷键是 F4 。 30、字符串常量由任何ASCII 字符组成，在程序中，它必须由 双引号 括起来。
2013年全国计算机二级考试试卷_VB历年考试真题下载 全国计算机二级考试题集及答案 一、选择题（（1）~（35）每小题2分，共70分 下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。（1）数据的存储结构是指（D）。 A．存储在外存中的数据B．数据所占的存储空间量C．数据在计算机中的顺序存储方式 D．数据的逻辑结构在计算机中的表示 （2）下列关于栈的描述中错误的是（ B ）。A．栈是先进后出的线性表 B．栈只能顺序存储 C．栈具有记忆作用D．对栈的插入与删除操作中，不需要改变栈底指针 （3）对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是（ D ）。A．冒泡排序为n/2 B．冒泡排序为n C．快速排序为n D．快速排序为n n-1 /2 （4）对长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为（ C ）。A．log2n B．n/2 C．n D．n+1 （5）下列对于线性链表的描述中正确的是（ A ）。 A．存储空间不一定是连续，且各元素的存储顺序是任意的 B．存储空间不一定是连续，且前件元素一定存储在后件元素的前面 C．存储空间必须连续，且前件元素一定存储在后件元素的前面 D．存储空间必须连续，且各元素的存储顺序是任意的（6）下列对于软件测试的描述中正确的是（ C ）。
A．软件测试的目的是证明程序是否正确 B．软件测试的目的是使程序运行结果正确 C．软件测试的目的是尽可能多地发现程序中的错误 D．软件测试的目的是使程序符合结构化原则 （7）为了使模块尽可能独立，要求（ B ）。 A．模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强 B．模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱 C．模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱 D．模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强（8）下列描述中正确的是（ D ）。 A．程序就是软件 B．软件开发不受计算机系统的限制 C．软件既是逻辑实体，又是物理实体D．软件是程序、数据与相关文档的集合 （9）数据独立性是数据库技术的重要特点之一。所谓数据独立性是指（ D ）。 A．数据与程序独立存放 B．不同的数据被存放在不同的文件中 C．不同的数据只能被对应的应用程序所使用 D．以上三种说法都不对 （10）用树形结构表示实体之间联系的模型是（ C ）。 A．关系模型
VB考试真题精选，考前必备神器?20 开通黄钻 :?b?=?2:??plus?S,?a,?b:??Print?S:不能使其输出结果为3的plus过程为(??b??)。（1分）? ???A、Sub?plus(sum,?a?,?b?):?sum?=?a?+?b:???End?Sub? ???B、Sub?plus(ByVal?sum?,?a?,?b?):?sum?=?a?+?b:???End?Sub? ???C、Sub?plus(sum?,?ByVal?a,?ByVal?b?):?sum?=?a?+?b:???End?Sub?D、 ???D、Sub?plus(sum?,?ByRef?a?,?ByRef?b?):?sum?=?a?+?b:???End?Sub? 22、通过关键字(??c??)声明的局部变量，在整个程序运行中一直存在。（1分）? ???A、Dim????????B、Public???????C、Static???????????D、Private? 23、过程的作用域分为(??c??)。（1分）? ???A、窗体级和局部级?????????????B、模块级和局部级? ???C、窗体/模块级和全局级?????????D、窗体/模块级和局部级? 24、在窗体的通用段声明变量时，不能使用(??d??)关键字。?（1分）? ???A、Dim??????B、Public?????C、Private????????D、Static? 25、能在一个工程的所有程序中使用的变量，称为(??b??)。（1分）? ???A、局部变量?????B、全局变量?????C、窗体级变量?????D、模块级变量? 27、使用Public?Const语句声明一个全局的符号常量时，应该将该语句放在(??b?)。（1分）???A、过程中?????????????????????B、窗体模块的通用声明段? ???C、标准模块的通用声明段???????D、窗体模块或标准模块的通用声明段?
2008年春浙江省高等学校 计算机等级考试试卷(二级Visual Basic) 说明：⑴考生应将所有试题的答案填写在答卷上。其中试题1～试题6，请在答卷上各小题正确选项的对应位置处填“√”； ⑵请将你的准考证号的后五位填写在答卷右下角的指定位置内； ⑶考试时间为90分钟; 试题1（每小题3分，共12分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】单击Command1后用输入对话框输入1个整数，单击Command2后在Text1中显示其反序的数（高位变低位）。要求在文本框中不可输入任何字符。 例如：输入123显示321，输入-567显示-765。 【程序】 (1) Private Sub Form_Load() (2) End Sub Private Sub Command1_Click() Text1.Text = "": n = InputBox("n=") End Sub Private Sub Command2_Click() If n < 0 Then n = -n: Text1.Text = "-" While n <> 0 Text1.Text = (3) (4) Wend End Sub 【供选择的答案】 (1) A、Dim n As Byte B、Dim n As Integer C、Dim n As String D、Public n As Byte (2) A、Text1.Locked = True B、Text1.Locked = False C、Text1.Visible = True D、Text1.Visible = False (3) A、n/10 & Text1.Text B、n Mod 10 & Text1.Text C、Text1.Text & n/10 D、Text1.Text & n Mod 10 (4) A、n = n \ 10 B、n = n / 10 C、n = n Mod 10 D、n = n - 10 试题2（每小题3分，共12分） 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序说明】
算法及其实现 （程序的调试） 【知识要点】 程序调试的几种形式 1.固定搭配，如： ★If 搭配 End if；★For i 搭配 Next i；★Do While 搭配 Loop 2.对象名.属性名，如： ★Text1.Text；★Label1.Caption 3.数据类型，如： 数值类型： Integer——整数型；Long——长整型； Single——实数型；Double——双精度实数型； 字符串型：String；逻辑型：Boolean； 4.赋值，如： ★如果a是数值类型，那么输入语句：a = Val(Text1.Text) 输出语句：Text1.Text = str(a) 或Label1.Caption = str(a) ★如果a是字符串类型，那么输入语句：a = Text1.Text 输出语句：Text1.Text = a 或Label1.Caption = a 【同步练习】 1、（10年3月高考）小金编写了一个统计随机数分布的VB程序，部分程序如下所示，在调 试程序的时候出现如右图所示的错误信息： n = 0 m = 0 For i = 1 To 100 If Rnd > 0．5 Then n = n + 1 Else m = m + 1 Next i …… 小金仔细分析该程序段后，发现其中缺少了 ( ) A．For B．End If C．Next D．If 2、（10年9月高考）某VB程序的一个事件过程如下： Private Sub Command1_Click ( ) Dim a As Integer a = Val ( Text1．Text ) Text1．Text = Str ( Sqr ( a ) ) End Sub 程序运行时，单击命令按钮Command1后弹出如图所示的错误信息提示。出现错误的原因是 （）A．Sqr函数计算时出现错误B．Str函数计算时出现错误 C．界面上缺少文本框Text1 D．变量a类型定义错误