VB程序习题集(附答案).doc

VB简介

1、在以下有关对象属性的叙述中，不正确的是___________。
A、一个对象的属性可分为外观、行为若干类
B、不同属性可能具有不同的数据类型
C、一个对象的所有属性都可在属性窗口的列表中进行设置
D、属性窗口中的属性列表既可按字母排序也可按类别排序
2、Visual Basic中最基本的对象是___________，它是应用程序的基石，也是其他控件的容器。
A、文本框
B、命令按钮
C、窗体
D、标签
3、有程序代码“Text1.Text="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、树型结构

57

程序代码基础

1、数学表达式对应的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、将数学表达式cos2(a+b)+5e2是写成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、数学表达式对应的正确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、0　　 B、1　 　C、2　 　D、不能确定
15、以下说法不正确的是__________。
　A、使用ReDim语句可以改变动态数组的维数
　B、若用Dim语句定义了动态数组的类型，可以用ReDim更改为其它类型
　C、使用ReDim语句可以改变动态数组每一维的大小
　D、使用ReDim语句可以对动态数组中的所有元素进行初始化
16、用Array函数给某X赋值时，X必须是__________。
A、已经声明的静态数组 　　
B、已经声明的动态数组
C、Variant类型的变量 　　
D、整型变量
17、设有数组声明语句：