VB程序习题集(附答案)

VB简介
1、在以下有关对象属性的叙述中，不正确的是___________。

A、一个对象的属性可分为外观、行为若干类
B、不同属性可能具有不同的数据类型
C、一个对象的所有属性都可在属性窗口的列表中进行设置
D、属性窗口中的属性列表既可按字母排序也可按类别排序
2、Visual Basic中最基本的对象是___________,它是应用程序的基石，也是其他控件的容器.
A、文本框
B、命令按钮
C、窗体
D、标签
3、有程序代码“Text1。

T ext=”Visual Basic"”，其中的Text1、Text和“Visual Basic”分别代表___________。

A、对象、值、属性
B、对象、方法、属性
C、对象、属性、值
D、属性、对象、值
4、用窗体的___________属性来设置窗体的标题。

A、Caption
B、Style
C、Text
D、Name
5、窗体上有一个文本框控件Text1，假设已存在三个整型变量a、b、c,且变量a的值为5，变量b的值为7,变量c的值为12.以下的___________语句可以使文本框内显示的内容为：5+7=12。

A、Text1.Text = a + b + c
B、Text1.Text = "a+b=c”
C、Text1 = a & "+” ＆b & "=” & c
D、Text1 = "a" & ”+" ＆"b” & ”=" ＆"c"
6、如果在窗体上有命令按钮OK，在代码编辑窗口有与之对应的Cmd_Click（）事件，则命令按钮的名称属性和Caption属性分别为_________.
A、OK、Cmd
B、Cmd、OK
C、CmdOK、OK
D、OK、CmdOK
7、窗体Form1的名称属性是frm，它的Load事件过程名为___________。

A、Form_Load
B、Form1_Load
C、frm_Load
D、Me_Load
8、下列有关对象属性的说法正确的是___________.
A、对象所有的属性都罗列在属性窗口列表中
B、不同对象不可能有同名属性
C、不同对象的同名属性取值一定相同
D、对象的某些属性既可以在属性窗口中设置，也可以在程序代码中设置
9、一个对象可以执行的动作与可被对象识别的动作分别被称为___________。

A、事件、方法
B、方法、事件
C、属性、方法
D、过程、事件
10、下列有关算法的叙述中,___________是不正确的。

A、算法中执行的步骤可以无休止的执行下去
B、算法中的每一步操作必须含义明确
C、算法中的每一步操作都必须是可执行的
D、算法必须有输出
11、对象可以识别和响应的某些行为称为___________。

A、方法
B、继承
C、属性
D、事件
12、如果设计时在属性窗口将命令按钮的___________属性设置为False，则运行时按钮从窗体上消失。

A、Visible
B、Enabled
C、DisabledPicture
D、Default
13、将文本框的___________属性设置为True时，文本框可以输入或显示多行文本。

A、MultiLine
B、ScrollBars
C、Text
D、Enabled
14、下面___________对象无Caption属性.
A、Form
B、CommandButton
C、TextBox
D、Label
15、决定控件上文字的字体、字形、大小、效果的属性是___________。

A、Text
B、Caption
C、（名称）
D、Font
16、结构化程序设计有三种基本结构，不包括___________。

A、顺序结构
B、模块结构
C、选择结构
D、循环结构
17、一个对象所能做的事情称为对象的___________。

A、方法
B、继承
C、属性
D、封装
18、如果设计时在属性窗口将命令按钮的___________属性设置为False，则运行时按钮不能响应用户的鼠标事件.
A、Visible
B、Enabled
C、DisabledPicture
D、Default
19、当标签的标题内容太长，需要根据标题自动调整标签的大小时，应设置标签的___________属性设置为True。

A、AutoSize
B、WordWrap
C、Visible
D、Enabled
20、下面控件中，没有Caption 属性的是___________。

A、复选框
B、单选按钮
C、组合框
D、框架
21、任何控件都具有___________属性。

A、Text
B、Caption
C、(名称)
D、ForeColor
22、窗体上有多个控件，在Form_Activate（）事件过程中添加___________语句，就可以确保每次运行程序时，都将光标定位在文本框Text1中
A、Text1.Text=""
B、Text1.SetFocus
C、Text1。

GetFocus
D、Text1.Visible=True
23、若已把一个命令按钮的Default属性设置为True，则下面可导致按钮的Click事件过程被调用的操作是___________。

A、用鼠标右键单击此按钮
B、按键盘上的Esc键
C、按键盘上的回车键
D、用鼠标右键双击此按钮
24、如下选项中，___________不是VB提供的程序控制结构。

A、顺序结构
B、选择结构
C、重复结构
D、树型结构
程序代码基础
1、数学表达式a ac
b b
2
4 2-
+
-
对应的Visual Basic表达式为__________。

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 + Sqr(b ＊b — 4 * a * c) )/ (2 * a）
2、Visual Basic中可以同时删除字符串前导和尾部空格的函数是__________。

A、Ltrim
B、Rtrim
C、Trim
D、Mid
3、设A=7，B=4，C=6,则表达式A Mod 3 + B ^ 3 / C \ 5的值为__________.
A、出错
B、3
C、2
D、1
4、在Form_Click事件中执行如下语句的结果是__________.
Print Format(1236。

54, ”+＃＃,#＃0。

0％"）
A、123456
B、+123，654.0%
C、+123,6.54%
D、+123，654
5、语句Print "5*20”的输出结果是__________。

A、"5＊20”
B、出现错误信息
C、5＊20
D、100
6、窗体上放置了三个文本框，若在Text1中输入123，在Text2中输入78，在程序中执行了语句Text3 = Text1 + Text2后,则在Text3中显示__________.
A、434
B、12378
C、溢出
D、语法错误
7、表达式Val(“abcdfg123e1234"）的值为__________。

A、789
B、1234
C、0
D、表达式错
8、假设变量BOOL是一个布尔型变量，则下列赋值语句中，正确的是__________。

A、BOOL =’TRUE’
B、BOOL =。

TRUE.
C、BOOL =＃TRUE＃
D、BOOL = True
9、函数Cint、Int、Fix都返回整数值，以下能正确地描述它们返回整数值大小关系的是
__________。

A、CInt（—5。

59）=Int（-5。

59)〈Fix（—5.59）
B、Int(—5.59）<CInt（-5.59）〈Fix（—5。

59）
C、CInt(—5。

59)< Fix（-5。

59)〈Int（—5.59）
D、Int(—5.59)<Fix(-5.59)=CInt（—5.59)
10、表达式Int（91*Rnd+20)的最大值是__________.
A、10
B、90
C、99
D、110
11、能正确返回正整数N的数据位数的语句是__________。

A、Len（N)
B、Len(Str（N))
C、Len（CStr（N）)
D、Len（Val(N）)
12、如下四个符号，可以作为VB合法变量名的是__________.
A、5_f
B、_5flg
C、User％s
D、N1
13、下列表达式中运算结果为True的是__________.
A、"ABCRG" 〉= ”abcde"
B、Int(134。

69）〈CInt(134.69）
C、78.9 / 35.77 〈= 97。

5 / 43、87 And -45.4 〉—4.98
D、Str(32.345）= CStr（32.345)
14、表达式6。

5 * 5 Mod 28 \ 8的值是__________。

A、0
B、1
C、2
D、3
15、能正确描述条件“A、B之一为零但不得同时为零”的VB逻辑表达式是__________.
A、A = 0 Or B = 0
B、A * B = 0 And A + B 〈> 0
C、A * B = 0 Or A + B <> 0
D、A = 0 And B = 0
16、如下语句中，不能正常执行的是__________。

A、Print 5＋7＝100
B、Print 3245343＋23233
C、Print 3423/89
D、Print 32765＋3
17、假设变量Lng为长整形变量，下面不能正常执行的语句是__________.
A、Lng=16384*2
B、Lng=4＊0.5＊16384
C、Lng=190^2
D、Lng=32768*2
18、设a=“Visual Basic",下面使b的值为“Basic”的语句是__________。

A、b=Left（a,8,12)
B、b=Mid(a，8，5）
C、b= Right(a,5,5）
D、b=Left(a，8,5)
19、下面所列四组数据中,全部是正确的VB常数是__________。

A、32768 1、34D2 ”ABCDE”&O1767
B、3276 123。

56 1、2E-2 ＃True＃
C、＆HABCE 02-03—2002 False D-3
D、ABCDE ＃02—02—2002# E-2 #True#
20、表达式Int(5*Rnd+10）的最小值是__________.
A 、9
B 、 10
C 、 11
D 、12
21、将数学表达式cos 2（a+b)+5e 2是写成Vb 表达式的正确形式是__________。

A 、Cos(a+b)^2+5＊Exp （2)
B 、Cos ^2(a+b) +5*Exp(2）
C 、Cos （a+b) ^2 +5*e^2
D 、Cos ^2（a+b) +5*Ln （2)
22、假设变量myd 为日期时间型变量，下面不能正常执行的语句是__________。

A 、myd = 12:23：30
B 、myd =＃10/22/2010 3：30：32 PM ＃-1
C 、myd = ＃10/22/2010 3：30:32 PM#
D 、myd =#10/22/2010 3：30:32 PM#+1
23、数学表达式b
a b a +-对应的正确Visual Basic 表达式为__________. A 、a —b/a+b
B 、a —b/（a+b)
C 、（a-b ）/a+b
D 、(a —b ）/（a+b ）
24、设Mys1，Mys2均为字符串型变量，Mys1=”Visual Basic ”, Mys2="b ”，则下面关系表达式中结果为True 的是__________.
A 、Len(Mys1）<〉2*InStr(Mys1,”i"）
B 、Mid(Mys1,8，1）>Mys2
C 、Chr （98) & Right(Mys1，4)=”Basic”
D 、InStr （Left(Mys1，6)，"a ”）+60>Asc （Ucase （Mys2）)
25、设A=7,B=4,C=6,，则表达式A Mod3+B^3/C\5的值为__________。

A 、1
B 、2
C 、3
D 、出错
26、语句Print Format(12345.6， ”+#＃#,#＃0。

00")执行结果是__________。

A 、12,345。

6
B 、 +12,345。

60
C 、 +＃12，345。

60
D 、+12,345.6
27、已知函数ASC(“A")的值65,则函数ASC （“b"）的值是__________。

A 、65
B 、98
C 、78
D 、100
28、以下___________是字符串常量.
A 、False
B 、"abc"
C 、’def '
D 、＃ True ＃
29、以下不能作为Visual Basic 变量名的是___________。

A 、2Fa
B 、F2a
C 、Fa2
D 、Fa_2
30、设有以下定义语句：
Dim m ， n as Single, d1 as Double ， d2 as string
则变量m 的类型是___________
A 、单精度型
B 、双精度型
C 、字符串型
D 、可变类型
31、表达式5 ＊ 2 Mod 25 \ 2 ^ 2的值是___________。

A 、1
B 、0
C 、6
D 、4
32、显示如图所示输入框的Inputbox 语句是___________。

A、a = InputBox(”应用示例”，”请输入”& ”正整数", ”1”）
B、a = InputBox（"应用示例”,”请输入”& vbCrLf & "正整数”, "1"）
C、a = InputBox（"请输入”＆"正整数", "应用示例", "1”）
D、a = InputBox（"请输入" ＆vbCrLf & "正整数”, ”应用示例"，”1"）
33、以下___________是布尔型常量。

A、True
B、" True "
C、' True ’
D、＃True ＃
34、如果将布尔常量值True赋值给一个整型变量，则整型变量的值为___________。

A、0
B、—1
C、True
D、False
35、下列叙述正确的是___________.
A、注释语句是执行语句，仅对程序的有关内容起注释作用
B、代码中加入注释语句的目的是提高程序的可读性
C、注释语句不可以放在续行符的后面
D、只能使用Rem关键字书写注释语句
36、下面__________不是字符串常量。

A、”你好”
B、””
C、"True”
D、＃False＃
37、下列符号常量的声明中，__________是不合法的.
A、Const a as Single=1.1
B、Const a as Integer=”12"
C、Const a as Double=Sin（1）
D、Const a="OK”
38、下列叙述中不正确的是__________。

A、变量名的第一个字符必须是字母
B、变量名的长度不超过255个字符
C、变量名可以包含小数点或者内嵌的类型声明字符
D、变量名不能使用关键字
39、Int（100 ＊Rnd（))产生的随机整数区间是__________。

A、［0，99］
B、[1，100］
C、[0,100］
D、［1，99］
40、函数Right(”Beijing”，4)的值是__________.
A、Beij
B、jing
C、eiji
D、ijin
41、表达式Abs(-5）+ Len（"ABCDE")的值是__________。

A、5ABCDE
B、-5ABCDE
C、10
D、0
42、设A、B、C表示三角形的三条边，表示条件“任意两边之和大于第三边”的布尔表达式可以用__________表示。

A、A + B > C Or A + C > B Or B + C 〉A
B、A + B 〈 C Or A + C < B Or B + C 〈A
C、A + B 〉 C And A + C > B And B + C 〉A
D、A + B 〈C And A + C 〈B And B + C 〈A
43、在一个语句行内写多条语句时,语句之间应该用__________分隔。

A、逗号
B、分号
C、顿号
D、冒号
44、下面__________是字符串常量。

A、m
B、＃01/01/99#
C、”m”
D、True
45、要强制显式声明变量,可在窗体模块或标准模块的通用声明段中加入语句__________。

A、Option Base 0
B、Option Explicit
C、Option Base 1
D、Option compare
46、产生［10,37]之间的随机整数的VB表达式是__________。

A、Int(Rnd * 27) + 10
B、Int（Rnd ＊28) + 10
C、Int（Rnd ＊27）+ 11
D、Int（Rnd ＊28) + 11
47、有以下定义语句：
Dim max，min As Integer
则变量max的类型是__________.
A、可变类型
B、单精度型
C、整型
D、长整型
48、函数Left（"how are you", 3）的值是__________。

A、how
B、are
C、you
D、how are you
49、函数Mid(”shanghai”, 6，3）的值是__________.
A、shangh
B、sha
C、angh
D、hai
50、可表示“两个变量A和B之一为0，但不能同时为0”的表达式是__________。

A、A = 0 And B <> 0
B、A ＊B = 0 And A 〈〉B
C、A 〈〉0 And B = 0
D、A <〉0 And B = 0 And A = 0 And B <> 0
51、在VB代码编辑器中，用来表示续行的是__________。

A、一个空格加一个下划字符（_ )
B、一个下划字符（_ )
C、直接回车
D、一个空格加一个连字符( — )
52、如果将布尔常量值False赋值给一个整型变量,则整型变量的值为__________。

A、0
B、－1
C、True
D、False
选择结构程序设计
1、下列语句正确的是__________.
A、If x 〈4 * y And x 〉y Then y = x4
B、If x 〈4 * y And x 〉y Then y = x ^ 4
C、If x < 4 * y ：x 〉y Then y = x ^ 4
D、If x 〈4 ＊y And x > y Then y = x ＊＊4
2、分析下列语句，给出执行结果
Private Sub Form_Click（）
Const pi As Single = 3。

14
a% = 7
If a Mod 4 〉pi Then Print ”努力"Else Print ”学习"
End Sub
执行结果为___________，其判决条件的值为__________。

A、努力TRUE
B、学习False
C、努力False
D、学习TRUE
3、针对语句If I = 1 Then J = 1,下列说法正确是__________.
A、I = 1和J = 1均为赋值语句
B、I = 1、J = 1均为关系表达式
C、I = 1为关系表达式，J = 1为赋值语句
D、I = 1为赋值语句，J = 1为关系表达式
4、如果X的值大于或等于Y的平方，则打印“OK”，表示这个功能的单行格式If语句是___________。

A、If x >= y ^ 2 Then Print OK
B、If x >= y 2 Then Print "OK"
C、If x 〉= y ^ 2 Then Print "OK”
D、If x >= y ^ 2 Then Print ”OK" End If
5、语句X = X + 1的正确含义是__________。

A、变量X的值与X＋1的值相等
B、将变量X的值存到X＋1中去
C、将变量X的值加1后赋给变量X
D、变量X的值为1
6、以下__________程序段可以实现X、Y变量值的交换。

A、Y = X：X = Y
B、Z = X: Y = Z：X = Y
C、Z = X：X = Y: Y = Z
D、Z = X: W = Y：Y = Z：X = Y
7、下列语句正确的是__________。

A、If A≥B Then T=A A=B B=T
B、If A≥B Then T=A ;A=B；B=T
C、If A>=B Then T=A A=B B=T
D、If A〉=B Then T=A : A=B : B=T
8、关于语句If x = 1 Then y = 1，下列说法正确的是__________。

A、x = 1 和y = 1均为赋值语句
B、x = 1 和y = 1均为关系表达式
C、x = 1 为关系表达式, y = 1为赋值语句
D、x = 1 为赋值语句，y = 1为关系表达式
9、下列说法中正确的是__________。

A、语句Text1.Text = x的含义是将变量x的值显示于文本框Text1中
B、语句Text1.Text = x的含义是将文本框Text1中的内容赋值给变量x
C、语句Text1.Text = x的含义是将文本框Text1中的内容转换为数值型后赋值给变量x
D、以上说法都是错误的
10、下列语句正确的是__________。

A、If x < 3 ＊y And x 〉y Then y = x ^ 3
B、If x < 3 ＊y And x 〉y Then y = x3
C、If x 〈 3 ＊y ：x > y Then y = x ^ 3
D、If x 〈 3 ＊y And x 〉y Then y = x * * 3
11、如果X的值小于或等于Y的平方,则打印“OK"，表示这个功能的单行If语句是__________.
A、If x <= y2 Then Print "OK"
B、If x <= y ^ 2 Then Print ”OK”
C、If x 〈= y ^ 2 Then ”OK”
D、If x 〈= y ^ 2 Print ”OK"
循环结构程序设计
1、在程序中有语句For i = n1 To n2 Step n3，则在循环体中有下列__________语句会影响循环执行的次数。

A、n1 = n1 + 1
B、n2 = n2 + n3
C、n3 = 2 ＊n3
D、i=i+n3
2、循环结构For I = 1 to 15 step 2 的执行次数是__________。

A、6
B、7
C、8
D、9
3、下列循环结构中，窗体上打印出来的循环变量i的值为___________。

sum = 0
For i = 1 To 100
sum= sum + i
Next i
Print i；sum
A、1
B、2
C、100
D、101
4、下列循环结构中，循环体x = x + k的执行次数为___________。

x = 0
For k = 1 To 10 Step 2
x = x + k
Next k
print k；x
A、0
B、1
C、5
D、10
5、以下循环语句中在任何情况下都至少执行一次循环体的是___________。

A、Do While 〈条件>
B、While <条件〉
循环体循环体
Loop Wend
C、Do
D、Do Until <条件〉
循环体循环体
Loop Until 〈条件〉Loop
6、在窗体上画一个名称为Command1的命令按钮,并编写以下程序：
Private Sub Command1_Click（）
Dim n％，b ，t
t = 1 : b = 1 ：n = 2
Do
b = b ＊n
t = t + b
n = n +1
Loop Until n〉9
Print t
End Sub
此程序计算并输出一个表达式的值,该表达式是___________。

A、9!
B、10！
C、1！+2！+ (9)
D、1！+2！+ (10)
数组
1、某过程的说明语句中，正确的数组说明语句是__________。

Const n As Integer = 3
Dim L As Integer
①Dim x（L) As Integer
②Dim a(k）As Integer
Const k As Integer = 3
③Dim b(n）As Integer
④Dim y（2000 to 2008）as Integer
A、①②④
B、①③④
C、③④
D、②③
2、下列有关数组的说法中，错误的是__________.
A、数组必须先定义后使用
B、数组形参可以是定长字符串类型
C、Erase语句的作用是对已定义数组的值重新初始化
D、定义数组时,数组维界值可以不是整数
3、在窗体的通用声明处有语句“Dim a（) As Single”,以下在某事件过程中重定义此数组的一组正确语句是__________。

A、ReDim a(3，3）
ReDim a（4，4) As Integer
B、ReDim a（3, 3）
ReDim preserve a（4, 4）
C、ReDim a(3)
ReDim a(3, 3）as Integer
D、ReDim a（3，3)
ReDim preserve a(3，4)
4、以下___________是Visual Basic合法的数组元素表示法。

A、x_9
B、x[9]
C、x{9｝
D、x（9)
5、下面的数组声明语句中___________是正确的。

A、Dim a［3，4] As Integer
B、Dim a(3，4) As Integer
C、Dim a(3；4）As Integer
D、Dim a(3:4）As Integer
6、设有数组声明语句:
Option Base 1
Dim b（-1 To 1, 2 ) As Integer
则数组b中共有___________个元素。

A、2
B、4
C、6
D、9
7、使用语句Dim a(1 To 15) As String声明数组a之后，以下说法正确的是___________.
A、A数组中的所有元素值为0
B、A数组中的所有元素值不确定
C、A数组中的所有元素值为空串
D、A数组中的所有元素值为True
8、关于ReDim语句,以下说法错误的是___________。

A、ReDim语句可以改变数组的维数
B、ReDim语句既可以在过程中使用，也可以在模块的通用声明处使用
C、ReDim语句可保留动态数组中原有的内容
D、在ReDim语句中，可使用变量说明动态数组的大小
9、设有数组声明语句：
Option Base 1
Dim a（—1 To 2，8) As Long
则，函数LBound(a，2) 的值为___________.
A、0
B、－1
C、1
D、2
10、下列关于控件数组的说法错误的是___________。

A、控件数组由一组具有共同名称和相同类型的控件组成
B、控件数组中的每一个控件共享同样的事件过程
C、控件数组中的每个元素的下标由控件的Index属性指定
D、同一控件数组中的元素只能有相同的属性值
11、设有命令按钮Command1单击事件过程，代码如下:
Private Sub Command1_Click(）
Dim a（30)As Integer
For i=1 To 30
a(i)=Int（Rnd＊100）
Next
For Each arrItem In a
If arrItem Mod 7=0 Then Print arrItem；
If arrItem〉90 Then Exit For
Next
End Sub
对于该事件过程，以下叙述中错误的是___________.
A、a数组中的数据是30个100以内的整数
B、语句For Each arrItem In a有语法错误
C、If arrItem Mod 7=0……语句的功能是输出数组中能够被7整除的数
D、If arrItem〉90……语句的作用是当数组元素的值大于90时退出For循环
12、有以下程序：
Option Base 1
Dim a(）As Integer
Private Sub Form_Click（)
Dim i As Integer, j As Integer
ReDim a(3，2）
For i = 1 To 3
For j = 1 To 2
a（i，j）= i ＊2 + j
Next j
Next i
ReDim Preserve a(3，4）
For j = 3 To 4
a（3, j）= j + 9
Next j
Print a(3, 2)；a（3, 4）
End Sub
程序运行后，单击窗体，输出结果是___________。

A、8 13
B、0 13
C、7 12
D、0 0
13、下面的数组声明语句中__________是正确的。

A、Dim a[3,4] as Integer
B、Dim a(3，4）As Integer
C、Dim a［3；4] as Integer
D、Dim a（3:4）as Integer
14、设有数组声明语句：
Option Base 1
Dim A（2) As Integer
则数组A的下界为__________。

A、0B、1C、2D、不能确定
15、以下说法不正确的是__________.
A、使用ReDim语句可以改变动态数组的维数
B、若用Dim语句定义了动态数组的类型，可以用ReDim更改为其它类型
C、使用ReDim语句可以改变动态数组每一维的大小
D、使用ReDim语句可以对动态数组中的所有元素进行初始化
16、用Array函数给某X赋值时,X必须是__________。

A、已经声明的静态数组
B、已经声明的动态数组
C、Variant类型的变量
D、整型变量
17、设有数组声明语句：
Option Base 1
Dim A（—1 To 2) As Long
则函数UBound(A)的值为__________。

A、0B、－1C、1D、2
18、设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法中错误的是__________。

A、命令按钮的Caption属性都是Command1
B、在代码中访问任意一个命令按钮只需使用名称Command1
C、命令按钮的大小都相同
D、命令按钮共享相同的事件过程
19、在窗体上画1 个命令按钮,并编写如下事件过程：
Private Sub Commandl Click(）
Dim a(3，3)
For m=1 To 3
For n=1 To 3
If n=m Or n=4—m Then
a(m,n)=m+n
Else
a(m，n）=0
End If
Print a（m,n)；
Next n
Print
Next m
End Sub
运行程序,单击命令按钮，窗体上显示的内容为__________。

A、
6
4
2
B、
6
4
4
4
2
C、
6
4
3
3
2
D、
6
5
5
4
2
20、下列程序段的执行结果为__________。

Dim A(3）
For i = 1 To 3
A(i) = i * i
Next i
Print A（i — 1）
A、16
B、9
C、4
D、1
21、以下__________是VB中合法的数组元素表示法。

A、X9
B、X[9］
C、X｛9}
D、X(9)
22、设有数组声明语句：
Option Base 1
Dim A(-1 to 2）As Integer
则数组A中共有__________个元素。

A、2
B、3
C、4
D、不能确定
23、使用语句Dim A(1 To 15) As Integer声明数组A之后,下面说法中正确的是__________。

A、数组中所有元素的值为0
B、数组中所有元素的值不确定
C、数组中所有元素的值为空串
D、以上说法均不对
24、在以下语句中，a只能是__________。

Dim X(15）
For Each a In X
Print a；
Next a
A、已经声明的静态数组
B、已经声明的动态数组
C、Variant类型的变量
D、整型变量
25、设有数组声明语句：
Option Base 1
Dim A(2）As Long
则函数LBound(A）的值为__________。

A、0B、－1C、1D、2
26、在窗体上用复制、粘贴的方法建立了一个命令按钮数组，数组名为M1。

设窗体Form1标题为“myform1”，双击控件数组中的第三个按钮，打开代码编辑器,写如下代码：Private Sub M1_Click(Index As Integer)
Form1.Caption = "myform2”
End Sub
运行时单击按钮数组中的第一个按钮，则窗体显示标题为__________。

A、Form1
B、M1
C、myform1
D、myform2
27、在窗体上画一个名为Command1 的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Command1_Click（）
Dim a, s As Integer
a = Array(1，2, 3, 4）
j = 1
For i = 4 To 1 Step -1
s = s + a(i）* j
j = j ＊10
Next i
Print s
End Sub
运行上面的程序，其输出结果是__________。

A、1234
B、12
C、34
D、4321
28、窗体上有Command1、Command2 两个命令按钮。

现编写以下程序：
Option Base 0
Dim a（) As Integer, m As Integer
Private Sub Command1_Click（）
m=InputBox(”请输入一个正整数"）
ReDim a（m）
End Sub
Private Sub Command2_Click( ）
m=InputBox("请输入一个正整数”）
ReDim a(m）
End Sub
运行程序时，单击Command1 后输入整数10，再单击Command2 后输入整数5，则数组a 中元素的个数是__________。

A、5
B、6
C、10
D、11
29、下面有关数组的说法中，错误的是__________.
A、一般而言，数组必须先定义后使用
B、数组的下界必须从0开始
C、Erase语句的作用是对已定义固定大小数组的值重新初始化
D、定义数组时,数组维界值可以不是整数
30、下面有关数组处理的叙述中，不正确的是__________。

A、过程中用ReDim语句重定义动态数组时，其下标的上下界可为赋了值的变量
B、在过程中，可以使用Dim、Private和Static语句定义数组
C、用ReDim语句重新定义动态数组时，不得改变该数组的数据类型
D、在ReDim语句中使用Preserve语句时,只能改变数组最后一维的维上界
过程
1、下列说法中正确的是__________。

A、在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程
B、在窗体的Form_Load事件过程中定义的变量是全局变量
C、局部变量的作用域可以超出所定义的过程
D、在调用过程时，所有局部变量被系统初始化为0或空字符串
2、下有关参数的说法中，错误的是__________。

A、过程的形参不可以是定长字符串类型的变量
B、按地址传递参数，形参和实参的类型可以不同
C、按值传递参数，形参和实参的类型可以不同，只要相容即可
D、按地址传递参数，形参和实参也能以按值传递方式进行形实结合
3、Visual Basic中系统默认的参数传递方式是__________.
A、按值
B、按地址
C、byval
D、按形参
4、在Visual Basic中，下列关于过程的定义说法正确的是__________。

A、过程可以嵌套定义也可以嵌套调用
B、过程可以嵌套定义但不可以嵌套调用
C、过程不可以嵌套定义但可以嵌套调用
D、过程不可以嵌套定义也不可以嵌套调用
5、若在应用程序中用“Private Sub sub1（x As Integer，y As Single）”定义了子程序sub1，调用程序中的变量i，j均为Integer型,则正确调用子程序sub1的是__________。

①Call sub1（i，j）②Call sub1(3。

1415，i)
③Call sub1(3。

14，234）④Call sub1（"245”, "231.5")
A、①③
B、③④
C、①②③
D、无
6、调用由语句Private Sub convert(y As Integer)定义的Sub过程时,以下不是按值传递的语句是__________.
A、Call convert(（x))
B、Call convert（x ＊1)
C、convert （x）
D、convert x
7、在Visual Basic中，全局变量的定义方式是__________.
A、Dim
B、Static
C、Private
D、Public
8、在过程中定义的变量,若希望在离开过程后，还能保存过程中该变量的值，则应该使用__________关键字在过程中定义该局部变量。

A、Dim
B、Static
C、Private
D、Public
9、可以在__________中，使用Public pubstr as String＊20定义一个定长字符串。

A、窗体模块
B、标准模块
C、类模块
D、三者均可
10、若在应用程序的标准模块、窗体模块和过程Sub1的说明部分，分别用“Public G As Integer”、“Private G As Integer"和“Dim G As Integer"语句说明了三个同名变量G。

如果在过程Sub1中使用赋值语句“G=3596”，则该语句是给在__________说明部分定义的变量G赋值。

A、标准模块
B、过程Sub1
C、窗体模块
D、标准模块、窗体模块和过程Sub1
11、多窗体程序由多个窗体组成.在缺省情况下,Visual Basic在执行应用程序时，总是把__________指定为启动窗体。

A、不包含任何控件的窗体
B、设计时的第一个窗体
C、命名为Frm1的窗体
D、包含控件最多的窗体
12、在窗体模块的通用声明段中声明变量时，不能使用___________关键字。

A、Dim
B、Static
C、Private
D、Public
13、下面的过程定义语句中合法的是___________。

A、Sub proc1（Byval n(）)
B、Sub proc1（n) As Integer
C、Function proc1(proc1)
D、Function proc1（Byval n)
14、Sub过程与Function过程最根本的区别是___________。

A、两种过程参数的传递方式不同
B、Sub过程可以使用Call语句或直接使用过程名调用,而Function不可以
C、Sub过程的过程名不能返回值，而Function过程能通过过程名返回值
D、Function过程可以有参数,Sub过程不可以
15、在过程调用中,参数的传递可以分为___________两种方式。

A、按值传递和按地址传递
B、按值传递和按参数传递
C、按地址传递和按参数传递
D、按参数传递和按位置传递
16、要想在过程调用后返回两个结果，下面的过程定义语句中正确的是_________.
A、Sub proc1（ByVal n，ByVal m)
B、Sub proc1（ByVal n，m)
C、Sub proc1（n，ByVal m）
D、Sub proc1(n，m)
17、通用过程可以通过执行“工具”菜单中的___________命令来建立。

A、添加过程
B、通用过程
C、添加窗体
D、添加模块
18、假设已定义了一个私有通用过程Private Sub Sub1(a As Single，b As Single)，则下列调用语句中错误的是___________。

A、Sub1 12，12
B、Call Sub1 x,y
C、Call Sub1(2*x，sin(1))
D、sub1 12，x
19、在过程调用中，参数的传递可以分为按值传递和__________两种方式。

A、按数组传递
B、按参数传递
C、按地址传递
D、按索引传递
20、在参数传递过程中，使用关键字__________来修饰参数，可以使之按值传递。

A、ByVal
B、ByRef
C、Value
D、Reference
21、下面有关标准模块的叙述中，错误的是__________。

A、标准模块不完全由代码组成,还可以有窗体
B、标准模块中的Private过程不能被工程中的其他模块调用
C、标准模块的文件扩展名为.bas
D、标准模块中的全局变量可以被工程中的任何模块引用
22、下面的过程定义语句合法的是__________.
A、Sub proc1(ByVal n(））
B、Sub proc1（n) As Integer
C、Function proc1(proc1)
D、Function proc1（ByVal n）
23、在过程调用中，参数的传递可以分为按地址传递和__________两种方式。

A、按数组传递
B、按参数传递
C、按值传递
D、按位置传递
24、在参数传递过程中,使用关键字__________来修饰参数,可以使之按地址传递。

A、ByVal
B、ByRef
C、Value
D、Reference
25、Sub过程与Function过程最根本的区别是__________。

A、Sub过程可以使用Call语句调用，而Function过程不可以
B、Function过程可以有参数，而Sub过程不可以
C、两种过程的参数传递方式不同
D、Sub过程的过程名不能返回值，而Function过程能通过过程名返回值
26、标准模块中有如下程序代码：
Public x As Integer，Y As Integer
Sub var_pub（)
x=10 ：y=20
End Sub
在窗体上有1 个命令按钮，并有如下事件过程:
Private Sub Commandl_Click(）
Dim x As Integer
Call var_pub
x=x+100
y=y+100
Print x；y
End Sub
运行程序后单击命令按钮，窗体上显示的是__________。

A、100100
B、100120
C、110100
D、110120
27、在窗体上有1 个命令按钮，并有如下事件过程：
Sub S()
X = 1
Y = 2
Z = X + Y
Print X, Y, Z
End Sub
Private Sub Command1_Click()
X = 2
Y = 3
Z = X + Y
Call S
Print X，Y，Z
End Sub
运行程序后单击命令按钮，窗体上显示的第二行是__________。

A、123
B、235
C、233
D、12 5
常用控件
1、下列__________属性是每个控件都具有的。

A、Name
B、Caption
C、Font
D、Interval
2、单选按钮用于一组互斥的选项中，若一个应用程序中包含多组互斥条件，可使用__________控件对单选按钮进行分组。

A、框架控件或图像控件
B、组合框或图像控件
C、组合框或图片框
D、框架控件或图片框
3、以下所列的8个控件中，具有Caption属性的有__________个。

CheckBox（复选框)、ComboBox（组合框）、HscrollBar（水平滚动条）、DirListBox（文件夹列表框）、Image（图像框)、Frame(框架）、Label（标签）、Line（线条)
A、5
B、4
C、3
D、2
4、使用__________方法可以将新的列表项添加到一个列表框中。

A、Print
B、AddItem
C、Clear
D、RemoveItem
5、在程序中可以通过复选框和单选按钮的__________属性值来判断它们的当前状态。

A、Caption
B、Value
C、Checked
D、Selected
6、以下使用方法的语句中，正确的是__________。

A、List1。

Clear
B、Form1.Clear
C、Combo1.Cls
D、Picture1。

Clear
7、Visual Basic中除窗体能显示图片外，下面列出的控件中可以显示图片的控件有__________个。

PictureBox、Image、TextBox、CommandButton、OptionButton、Label
A、2
B、3
C、4
D、5
8、能够区分各鼠标按钮与【Shift】、【Ctrl】、【Alt】键的事件过程是__________。

A、Click
B、Keypress
C、Dblclick
D、MouseMove
9、下列关于Line和Shape控件说法不正确的是__________。

A、Line和Shape控件都可以在窗体或图片框控件内绘制图形或画线
B、Line和Shape控件绘制的图形不支持任何事件
C、程序运行时可以使用Move方法移动Line控件
D、可以在容器中绘制Shape控件，但是不能把该控件当作容器
10、Visual Basic中利用Circle方法不可以画__________.
A、圆
B、直线
C、弧
D、椭圆
11、如下语句中，与List1。

List(List1.ListIndex)功能相同的是__________.
A、List1.Text
B、List1.ListCount
C、Text1。

Text
D、List1.ListIndex
12、使用__________方法可将新的列表项添加到一个列表框中。

A、Print
B、AddItem
C、Clear
D、RemoveItem
13、在程序中可以通过复选框和单选按钮的__________属性值来判断它们的当前状态。

A、Caption
B、Checked
C、Value
D、Selected
14、单选按钮用于一组互斥的选项中，若一个应用程序包含多组互斥的条件.可在不同的__________中安排适当的单选按钮,即可以实现。

A、框架控件或图像控件
B、组合框或图像控件
C、组合框或图片框
D、框架控件或图片框
15、下列使用方法的语句中，正确的是________ 。

A、List1.Clear
B、Form1。

Clear
C、Combo1.Cls
D、Picture1。

Clear
16、在VB中可以作为容器的是_________。

A、Form、TextBox、PictureBox
B、Form、PictureBox、Frame
C、Form、TextBox、Label
D、PictureBox、TextBox、ListBox
17、以下所列的6个控件中，CheckBox（复选框)、ComboBox（组合框）、HscrollBar（水平滚动条)、Image（图像框）、Frame(框架）、Label（标签）、具有Caption属性的有__________个。

A、5
B、4
C、3
D、2
18、下面语句，可以将列表框List1中的当前选定的列表项的值替换成”ABC”。

A、List1.AddItem "ABC”，List1。

ListIndex
B、List1。

Text=”ABC"
C、List1。

List(List1.ListIndex)= ”ABC”
D、前三项均可
19、以下控件对象中,不具有text属性的是___________。

A、标签
B、文本框
C、列表框
D、组合框
20、不可以作为容器对象使用的是___________。

A、框架
B、图片框
C、窗体
D、图像框
21、Visual Basic中，任何控件都具有___________属性。

A、Text
B、Caption
C、（名称）
D、Font
22、引用列表框的最后一项应使用___________.
A、List1.list（List1。

ListCount-1)
B、List1。

list（List1。

ListCount）
C、List1。

list（ListCount)
D、List1.list(ListCount—1）
23、在窗体上画一个命令按钮和两个文本框,然后编写如下的事件过程:
Private Sub Text1_KeyPress(KeyAscii As Integer）
……
End Sub
假定焦点已经位于文本框中，则能够触发KeyPress事件的操作是___________。

A、单击鼠标
B、双击文本框
C、鼠标滑过文本框
D、按下键盘上的某个键
24、要使两个单选按钮属于同一个框架，正确的操作是___________。

A、先画一个框架，再在框架中画两个单选按钮
B、先画一个框架，再在框架外画两个单选按钮，然后把单远按钮拖到框架中
C、先画两个单选按钮，再画框架将单选按钮框起来
D、以上三种方法都正确
25、要设置某文本框的文字具有粗体效果,正确的语句是___________。

A、Text1。

FontItalic = True
B、Text1.FontItalic = False
C、Text1.FontBold = True
D、Text1.FontBold = False
26、要选择列表框List1的第6项，可以使用语句___________。

A、List1.ListIndex = 5
B、List1。

Selected= 5
C、List1。

ListIndex = 6
D、List1.Selected = 6
27、引用列表框List1的最后一项应使用___________。

A、List1。

List（List1。

ListCount - 1)
B、List1。

List（List1。

ListCount)
C、List1。

List(ListCount)
D、List1。

List(ListCount - 1）
28、语句List1、RemoveItem List1、ListIndex的作用是___________。

A、删除列表框的最后一项
B、删除列表框的第一项
C、删除列表框中当前选中的项
D、删除列表框中最后添加的一项
29、要清除组合框Combo1中的所有内容，可以使用___________语句。

A、Combo1.Cls
B、Combo1。

Clear
C、Combo1。

Delete
D、Combo1。

Remove
30、Timer控件的___________属性决定该控件是否对时间的推移做出响应。

将该属性设置为False会关闭Timer控件，设置为True则打开它.
A、Enabled
B、Visible
C、Time
D、Capable
31、要使滚动条表示最大值100，应设置其___________属性。

A、Min
B、Max
C、SmallChange
D、LargeChange
32、要设置某文本框的文字具有斜体效果,正确的语句是。

A、Text1。

FontItalic = True
B、Text1.FontItalic = False
C、Text1。

FontBold = True
D、Text1.FontBold = False。