vb试题.docx
《vb试题.docx》由会员分享，可在线阅读，更多相关《vb试题.docx（52页珍藏版）》请在冰豆网上搜索。
vb试题
【期末】VB考试客观题
VB考试一
1、能够获得一个文本框中被选取文本的内容的属性是______。
A：
SelStart
B：
SelLength
C：
SelText
D：
Text
参考答案：
C
2、在窗体上画一个文本框，其名称为Text1，为了在程序运行后隐藏该文本框，应当使用的语句为：
______。
A：
Text1.Enabled=False
B：
Text1.Hide
C：
Text1.Clear
D：
Text1.Visible=False
参考答案：
D
3、对于语句Ifx=1Theny=1,下列说法正确的是____。
A：
x=1和y=1均为赋值语句
B：
x=1和y=1均为关系表达式
C：
x=1为赋值语句，y=1为关系表达式
D：
x=1为关系表达式，y=1为赋值语句
参考答案：
D
4、以下变量名中，______是不符合VisualBasic的命名规范的。
A：
_mnu_Open_234
B：
Abc901
C：
price_
D：
K
参考答案：
A
5、MsgBox函数返回值的类型是__________。
A：
数值或字符串
B：
字符串
C：
变体
D：
整型数值
参考答案：
D
6、VB一共有设计、运行和中断三种模式，要使用调试工具应该______。
A：
进入中断模式
B：
进入运行模式
C：
进入设计模式
D：
不用进入任何模式
参考答案：
A
7、设a=6，则执行
x=IIF（a>5,-1,0）
后，x的值为______。
A：
-1
B：
6
C：
0
D：
5
参考答案：
A
8、可以同时删除字符前导和尾部空白的函数是______。
A：
Mid
B：
Rtrim
C：
Trim
D：
Ltrim
参考答案：
C
9、以下语句的输出结果是______。
PrintFormat$（"32548.5","000,000.00"）
A：
32,548.5
B：
32548.5
C：
032,548.50
D：
32,548.50
参考答案：
C
10、设有如下声明：
DimXAsInteger
如果Sgn（X）的值为-1，则X的值是______。
A：
等于0的整数
B：
大于0的整数
C：
整数
D：
小于0的整数
参考答案：
D
11、在窗体上画一个命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
Fori=1To4
x=4
Forj=1To3
x=3
Fork=1To2
x=x+6
Nextk
Nextj
Nexti
Printx
EndSub
程序运行后，单击命令按钮，输出结果是______。
参考答案：
15#15#15#15
12、执行下面的程序段后，S的值为______。
s=5
Fori=2.6To4.9Step0.6
s=s+1
Nexti
参考答案：
9
13、下列表达式有错误,正确的写法应该是______。
[（a+b）+c]/80-5÷（d+e）
参考答案：
（a+b+c）/80-5/（d+e）#（a+b+c）/80-5/（d+e）
14、表示x是5的倍数或是9的倍数的逻辑表达式为__________
参考答案：
xMod5=0OrxMod9=0#xMod9=0OrxMod5=0
15、以下程序的功能是:
从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。
请填空。
PrivateSubForm_click（）
Dimx,yAsSingle
DimzAsInteger
x=InputBox（"Enterascore"）
Dowhilex>=0
y=y+x
z=z+1
x=InputBox（"Enterascore"）
Loop
Ifz=0Then
z=1
EndIf
y=______
Printy
EndSub
参考答案：
y/z
VB考试二
1、列表框中的列表项的数目可以通过以下哪个属性的值获得______。
A：
ListIndex
B：
ListCount
C：
Count
D：
Index
参考答案：
B
2、在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。
列表框中显示若干城市的名称。
当单击列表框中的某个城市名时，在标签中显示选中城市的名称。
下列能正确实现上述功能的程序是______。
A：
PrivateSubList1_Click（）
Label1.Caption=List1.Text
EndSub
B：
PrivateSubList1_Click（）
Label1.Name=List1.ListIndex
EndSub
C：
PrivateSubList1_Click（）
Label1.Name=List1.Text
EndSub
D：
PrivateSubList1_Click（）
Label1.Caption=List1.ListIndex
EndSub
参考答案：
A
3、在列表框中当前被选中的列表项的序号是由下列哪个属性表示______。
A：
Listindex
B：
Index
C：
List
D：
Tabindex
参考答案：
A
4、为了清除列表框中的所有内容，应使用的方法是：
______。
A：
Clear
B：
Remove
C：
RemoveItem
D：
Cls
参考答案：
A
5、在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为______。
A：
Fori=1ToList1.ListCount
……
NEXT
B：
Fori=0ToList1.Count-1
……
NEXT
C：
Fori=0ToList1.ListCount-1
……
NEXT
D：
Fori=1ToList1.Count
……
NEXT
参考答案：
C
6、设有如下程序：
OptionBase0
PrivateSubForm_Click（）
Dima
DimiAsInteger
a=Array（1,2,3,4,5,6,7,8,9）
Fori=0To3
Printa（5-i）;
Next
EndSub
程序运行后，单击窗体，则在窗体上显示的是______。
A：
6 5 4 3
B：
5 4 3 2
C：
4 3 2 1
D：
7 6 5 4
参考答案：
A
7、设执行以下程序段时依次输入1、3、5，执行结果为______。
Dima（4）AsInteger,b（4）AsInteger
ForK=0To2
a（K+1）=Val（InputBox（"请输入数据"））
b（3-K）=a（K+1）
NextK
Printb（K）
A：
0
B：
3
C：
5
D：
1
参考答案：
D
8、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
PrivateSubCommand1_Click（）
DimiAsInteger,jAsInteger
Dima（10,10）AsInteger
Fori=1To3
Forj=1To3
a（i,j）=（i-1）*3+j
Printa（i,j）;
Nextj
Print
Nexti
EndSub
程序运行后，单击命令按钮，窗体上显示的是______。
A：
123
456
789
B：
234
345
456
C：
147
258
369
D：
123
246
369
参考答案：
A
9、用下面的语句所定义的数组的元素个数是：
______。
Dimarr（3To5,-2to2）
A：
24
B：
12
C：
15
D：
20
参考答案：
C
10、下列______语句可以为动态数组分配实际元素个数。
A：
static语句
B：
Dim语句
C：
public语句
D：
ReDim语句
参考答案：
D
11、假定程序中有以下语句：
answer=MsgBox（"String1",,"String2","String3",2）
执行该语句后，将显示一个信息框，此时如果单击"确定"按钮，则answer的值为：
______。
A：
String3
B：
String2
C：
String1
D：
1
参考答案：
D
12、设有语句
x=InputBox（"输入数值","0","示例"）
程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是______。
A：
0是默认值
B：
变量X的值是字符串"10"
C：
在InputBox对话框标题栏中显示的是"示例"
D：
变量X的值是数值10
参考答案：
B
13、以下程序段运行的结果是：
______。
Dima（-1To5）AsBoolean
DimflagAsBoolean
flag=False
DimiAsInteger
DimjAsInteger
DoUntilflag=True
Fori=-1To5
j=j+1
Ifa（i）=FalseThen
a（i）=True
ExitFor
EndIf
Ifi=5Then
flag=True
EndIf
Next
Loop
Printj
A：
20
B：
7
C：
8
D：
35
参考答案：
D
14、设a=5，b=6，c=7，d=8，则执行下列语句后，x的值为：
______。
x=IIF（（a>b）And（c A：
300
B：
20
C：
30
D：
10
参考答案：
B
15、要将一个组合框设置为简单组合框（SimpleCombo），则应将其Style属性设置为______。
A：
0
B：
1
C：
3
D：
2
参考答案：
B
VB考试三
1、设组合框Combo1中有3个项目，则以下能删除最后一项的语句是______。
A：
Combo1.RemoveItemCombo1.Listcount
B：
Combo1.RemoveItem2
C：
Combo1.RemoveItem3
D：
Combo1.RemoveItemText
参考答案：
B 题分：
6
2、在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：
FunctionFunc（ByValxAsInteger,yAsInteger）
y=x*y
Ify>0Then
Func=x
Else
Func=y
EndIf
EndFunction
PrivateSubCommand1_Click（）
DimaAsInteger,bAsInteger
a=3
b=4
c=Func（a,b）
Print"a=";a
Print"b=";b
Print"c=";c
EndSub
程序运行后，单击命令按钮，其输出结果为：
______。
A：
a=3
b=4
c=12
B：
a=13
b=12
c=12
C：
a=3
b=4
c=3
D：
a=3
b=12
c=3
参考答案：
D 题分：
6
3、单击命令按钮时，下列程序代码的执行结果为______。
PublicSubProcl（nAsInteger,ByValmAsInteger）
n=nMod10
m=m/10
EndSub
PrivateSubCommand1_Click（）
DimxAsInteger,yAsInteger
x=12:
y=34
CallProcl（x,y）
Printx;y
EndSub
A：
12 3
B：
2 3
C：
12 34
D：
2 34
参考答案：
D 题分：
6
4、以下关于函数过程的叙述中，正确的是______。
A：
在函数过程中，过程的返回值可以有多个
B：
函数过程形参的类型与函数返回值的类型没有关系
C：
当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
D：
如果不指明函数过程参数的类型，则该参数没有数据类型
参考答案：
B 题分：
6
5、以下说法错误的是______。
A：
函数过程可以带参数
B：
子过程没有返回值
C：
函数过程没有返回值
D：
子过程可以带参数
参考答案：
C 题分：
6
6、在窗体上画一个命令按钮（名称为Command1），然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimbAsInteger
b=b+1
EndSub
运行程序，三次单击命令按钮后，变量b的值是：
______。
A：
2
B：
1
C：
0
D：
3
参考答案：
B 题分：
6
7、假定有以下函数过程：
FunctionFun（SAsString）AsString
Dims1AsString
Fori=1ToLen（S）
s1=UCase（Mid（S,i,1））+s1
Nexti
Fun=s1
EndFunction
在窗体上画一个命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimStr1AsString,Str2AsString
Str1=InputBox（"请输入一个字符串"）
Str2=Fun（Str1）
PrintStr2
EndSub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串"abcdefg"则单击"确定"按钮后在窗体上的输出结果为______。
A：
GFEDCBA
B：
ABCEDFG
C：
gfedcba
D：
abcdefg
参考答案：
A 题分：
6
8、Sub过程与Function过程最根本的区别是______。
A：
两种过程参数的传递方式不同
B：
Function过程可以有参数，Sub过程不可以
C：
Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以
D：
Sub过程的过程名不能返回值，而Function过程能通过过程名返回值
参考答案：
D 题分：
6
9、在代码中定义了一个子过程：
SubP（a,b）
...
EndSub
下面______调用该过程的格式是正确的。
A：
CallP
B：
CallP10,20
C：
P（10,20）
D：
CallP（10,20）
参考答案：
D 题分：
6
10、在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
PrivateSubCommand1_Click（）
StaticXAsInteger
StaticYAsInteger
Cls
Y=1
Y=Y+5
X=5+X
PrintX,Y
EndSub
程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为______。
A：
15 15
B：
15 6
C：
15 16
D：
5 6
参考答案：
B 题分：
6
11、设有以下循环结构
Do
循环体
LoopWhile<条件>
则以下叙述中错误的是______。
A：
循环体中可以使用ExitDo语句
B：
"条件"可以是关系表达式、逻辑表达式或常数
C：
若"条件"是一个为0的常数，则一次也不执行循环体
D：
如果"条件"总是为True，则不停地执行循环体
参考答案：
C 题分：
6
12、在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
PrivateFunctionfun（ByValmAsInteger）
IfmMod2=0Then
fun=2
Else
fun=1
EndIf
EndFunction
PrivateSubCommand1_Click（）
DimiAsInteger,sAsInteger
s=0
Fori=1To5
s=s+fun（i）
Next
Prints
EndSub
程序运行后，单击命令按钮，在窗体上显示是______。
A：
7
B：
6
C：
8
D：
9
参考答案：
A 题分：
6
VB考试四
1、某人编写了如下程序，用来求10个整数（整数从键盘输入）中的最大值：
PrivateSubCommand1_Click（）
Dima（10）AsInteger,maxAsInteger
Fork=1To10
a（k）=InputBox（"输入一个整数"）
Nextk
max=0
Fork=1To10
Ifa（k）>maxThen
max=a（k）
EndIf
Nextk
Printmax
EndSub
运行程序时发现，当输入10个正数时，可以得到正确结果，但输入10个负数时结果是错误的，程序需要修改。
下面的修改中可以得到正确运行结果的是______。
A：
把max=a（k）改为a（k）=max
B：
把Ifa（k）>maxThen改为Ifa（k） C：
把第2个循环语句Fork=1To10改为Fork=2To10
D：
把max=0改为max=a（10）
参考答案：
D
2、设有语句：
Open"d:
\Test.txt"ForOutputAs#1，以下叙述中错误的是______。
A：
执行该语句后，就可以通过Print#语句向文件Test.txt中写入信息
B：
用该语句建立的文件的文件号为1
C：
该语句打开d盘根目录下一个已存在的文件Test.txt，之后就可以从文件中读取信息
D：
若d盘根目录下无Test.txt文件，则该语句创建此文件
参考答案：
C
3、工程中有2个窗体，名称分别为Form1、Form2，Form1为启动窗体，该窗体上有命令按钮Command1。
要求程序运行后单击该命令按钮时显示Form2，则按钮Click事件过程应该是______。
A：
PrivateSubCommand1_Click（）
Form2.Load
EndSub
B：
PrivateSubCommand1_Click（）
Form2.Visible
EndSub
C：
PrivateSubCommand1_Click（）
Load Form2
EndSub
D：
PrivateSubCommand1_Click（）
Form2.Show
EndSub
参考答案：
D
4、在窗体上画一个名为Command1的命令按钮，然后编写如下代码：
OptionBase1
PrivateSubCommand1_Click（）
Dima
a=Array（1,2,3,4）
升级会员 