vb复习题.docx
《vb复习题.docx》由会员分享，可在线阅读，更多相关《vb复习题.docx（100页珍藏版）》请在冰豆网上搜索。
vb复习题
第一卷客观题
第一题：
是非题（共10分，每项1分）
1.ActiveX部件是可以重复使用的编程代码和数据。
A
A.对 B.错
2.窗体的Enabled属性设为False时，窗体题的按钮、文本框控件就不会对用户的操作做出反应。
A
A.对 B.错
3.每一个控件实质上都是一个微型程序。
A
A.对 B.错
4.在程序运行过程中，变量中的值不会改变，而常量中的值会被改变。
B
A.对 B.错
5.用Dim语句声明变量时，VB系统不仅为变量分配相应数据类型的内在空间，而且还为变量赋所需的初值。
B
A.对 B.错
6.定义菜单项时，可以不设置分隔线的菜单项控件名称。
B
A.对 B.错
7.在事件驱动的应用程序中，代码是按照预定的路径执行的。
B
A.对 B.错
8.函数调用时，实际参数与形式参数在数量必须完全一致。
A
A.对 B.错
9.每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件。
A
A.对 B.错
10.通用过程可以放在标准模块中，也可以放在窗体模块中。
A
A.对 B.错
第二题、单选题（共45分，每项1.5分）
11.要判断“命令按钮”是否被鼠标单击，应在“命令按钮”的事件中判断。
C
A.Chang B.KeyDown C.Click D.KeyPress
12.InputBox函数的返回值的类型为____B__。
A.数值 B.字符串 C.逻辑值 D.日期值
13.要想在过程调用后返回两个结果，下面的过程定义语句合法的是___A___。
A.SubProc1（ByValn,Byvalm） B.SubProc1（ByValn,m）
C.SubProc1（n,Byvalm） D.SubProc1（n,m）
14.下面关于打印对话框属性的说法错误的是____C__。
A.Copies属性指定打印的份数。
B.HDC属性指定分配给打印机的句柄，用来识别对象的设备环境。
C.FromPage属性指定要打印文档的页范围。
使用该属性时必须把Flags属性设置为1。
D.Max和Min属性用来显示FromPage和ToPage的范围，其中Min指定允许的起始页码，Max指定允许的最后页码。
15.常量2.7856E-6的类型是_B_____。
A.整型 B.实型 C.字符型 D.双精度
16.Print#1，STR1$中的Print是___A___。
A.顺序文件的写语句 B.在窗体上显示的方法
C.子程序名 D.打印命令
17.使用Publicx声明一个全局的变量时，该语句应放在__D____。
A.过程中 B.窗体模块的通用声明段
C.标准模块的通用声明段
D.窗体模块或标准模块的通用声明段
18.文本框没有__D___属性。
A.Enabled B.VisibleC.BackColor D.Caption
19.记录长度最大可取的值是__A____字节。
A.32767 B.32768 C.65535 D.65536
20.下面四项中，_A_____是VB中的数值变量。
A.ABC B.E+2 C."True" D.1.35E-2
21.将数据项“China”添加到列表框（List）中成为第一项应使用＿A＿＿语句。
A.List1.AddItem”China”，0 B.List1.AddItem”China”，l
C.List1.AddItem0，”China” D.List1.AddItem1，”China”
22.下列不能打开菜单编辑器的操作是___D___。
A.按Ctrl+E
B.单击工具栏中的“菜单编辑器”按钮
C.执行“工具”菜单中的“菜单编辑器”命令
D.按Shift+Alt+M
23.文本框（Text1）中有选定的文本，执行Text1.SelText=”Hello”的结果是＿A＿＿。
A.“Hello”将替换掉原来选定的文本
B.“Hello”将插入到原来选定的文本之前
C.Text1.SelLength为5 D.文本框中只有“Hello”
24.语句PrintFormat（"HELLO","<"）的输出结果是_B_____。
A.HELLO B.hello C.He D.he
25.函数Int（Rnd*11）+10产生的数值的范围是____C__。
A.（0,10） B.[10,10] C.[10,20] D.（0,20）
26.如果文本框的Enabled属性设为False，则＿A＿＿。
A.文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上
B.文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容
C.文本框的文本将变成灰色，用户仍然能改变文本框中的内容
D.文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容
27.框架内的所有控件是＿＿A＿。
A.随框架一起移动、显示、消失和屏蔽
B.不随框架一起移动、显示、消失和屏蔽
C.仅随框架一起移动 D.仅随框架一起显示和消失
28.Integer类型的数据由_B_____字节组成。
A.1 B.2 C.3 D.4
29.数学表达式x>y>z的正确VB逻辑表达式是__D____。
A.x>yAndy>z C.x>yAnd>z D.x>yAndy>z
30.如果要使一个窗体从屏幕上和内存中完全消失，所要使用的语句是___D___。
A.Hide B.Show C.Load D.Unload
31.在下列说法中，正确的是＿＿D＿。
A.通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上
B.在列表框中不能进行多项选择
C.在列表框中能够将项目按字母顺序从大到小排列
D.框架也有Click和DblClick事件
32.为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为__D____。
A.Get文件号，记录号，变量名
B.Get文件号，变量名，记录号
C.Put文件号，变量名，记录号
D.Put文件号，记录号，变量名
33.按文件的组织方式分为____A__。
A.顺序文件和随机文件 B.文本文件和二进制文件
C.程序文件和数据文件 D.只读文件和读写文件
34.以下__C____不能作为VB中的变量名。
A.Abx45 B.P1234 C.89TasFF D.xy
35.已编译的控件部件的扩展名是＿＿A＿。
A..OCX B..VBP C..EXE D..CTL
36.为了建立一个随机文件，其中每一条记录有多个不同数据类型的数据项组成，应使用__A____。
A.自定义类型 B.数组 C.字符串类型 D.变体类型
37.表达式Int（23.4）+Round（-35.5）的计算结果为___C___。
A.-11 B.-12.1 C.-13 D.-12.5
38.引用列表框（List1）最后一个数据项应使用＿B＿＿。
A.List1.List（List1.ListCount）
B.List1.List（List1.ListCount-1）
C.List1.List（ListCount）
D.List1.List（ListCount-l）
39.通过代码在运行时设置属性的语法格式为__B____。
A.对象名＝属性.新值 B.对象名.属性＝新值
C.对象名.新值=属性.新值 D.对象名.属性=属性.新值
40.在下面选项中，不能完成对顺序文件的读操作的是____D__。
A.LineInput#语句 B.Input#语句
C.Input（）函数 D.Get#语句
第三题、简单程序（共15分，每项1.5分）
41.下列程序段的运行结果。
A
PrivateSubForm_Click（）
DimMsg
Hide
Msg=”选择‘确定’按钮”
MsgBoxMsg
Show
EndSub
A.隐藏窗体，按‘确定’按钮使窗体重现
B.隐藏窗体
C.显示窗体，按‘确定’按钮使窗体隐藏
D.显示窗体
42.执行下面程序段后，变量c$的值为___D___。
a$="VisualBasicProgramming"
b$="Quick"
c$=b$&Ucase（Mid$（a$,7,6））&Right$（a$,12）
A.VisualBASICProgramming
B.QuickBasicProgramming
C.QUICKBasicProgramming
D.QuickBASICProgramming
43.运行下面程序后，在窗体中显示的是__D____。
PrivateSubForm_Click（）
a$="*":
b$="$"
Fork=1 To3
x$=String$（Len（a$）+k,b$）
Printx$;
Nextk
Print
EndSub
A.、********* B.*$*$*$
C.1*$2*$3*$ D.、$$$$$$$$$
44.执行下面程序段后，变量a的值为___C___。
ForI=1To3
Forj=1ToI
Fork=jTo3
a=a+1
Nextk
Nextj
NextI
A.3 B.9 C.14 D.21
45.写出如下程序运行结果。
D
Functionf（mAsInteger）AsInteger
b=1
StaticcAsInteger
b=b+1
c=c+1
f=m*b*c
EndFunction
PrivateSubCommand1_Click（）
DimaAsInteger
a=2
sum=0
ForI=1To3
sum=sum+f（a）
NextI
printsum
EndSub
A.12 B.16 C.20 D.24
46.以下程序的输出结果是____B__。
PrivateSubCommand1_Click（）
a=1234
b$=Str$（a）
c=Len（Trim（b））
printc;LenB（b）
EndSub
A.38 B.410 C.510 D.48
47.执行下面程序段后，变量x的值为____A__。
x=5
ForI=1To20step2
x=x+I\5
NextI
A.21 B.22 C.23 D.24
48.以下程序的输出结果是__D____。
PrivateSubCommand1_Click（）
a=100
Do
s=s+a
a=a+1
LoopUntila>100
printa
EndSub
A.100 B.120 C.201 D.101
49.以下程序的循环次数是___A___。
PrivateSubCommand1_Click（）
Forj=8To35Step3
Printj;
Nextj
EndSub
A.10 B.9 C.27 D.28
50.下列程序运行后，其结果为__A____。
PrivateSubForm_Click（）
Filename=“c:
\testfile.txt”
OpenfilenameForOutputAs#1
Print#1,“ABCD我是一个学生”
Close#1
OpenfilenameForInputAs#1
MsgBoxInput（8,1）
Close#1
EndSub
A.在通用对话框中显示“ABCD我是一个”
B.在通用对话框中显示“ABCD我是”
C.在窗体中显示“ABCD我是一个”
D.在窗体中显示“ABCD我是”
第二卷 主观题
填空题（共30分，每项2分。
注意：
填两个空的题的时候，要按照从上至下，从左至右的顺序添入答题卡！
）
1.下列程序运行后，能求出20个数中的最大值。
请填上适当的内容，将程序补充完整。
PrivateSubForm_Activate（）
Randomize
DimIAsInteger,sslAsInteger,DimttAsInteger
ssl=Int（Rnd*51+50）
ForI=1To19
tt=Rnd*51+50
___IFssl NextI
Print
Printssl
EndSub
2.在C盘根目录下建立一个名为Student.dat的顺序文件。
要求用InputBox函数输入10名学生的学号（StuNo）、姓名（StuName）和性别（StuSex）。
PrivateSubForm_Load（）
Open“C:
Student.dat”ForOutputAs#1
ForI=1to10
StuNo=InputBox（“请输入学号”）
StuName=InputBox（“请输入姓名”）
StuSex=InputBox（“请输入性别”）
_write#1,____,StuNo,Stuname,StuSex
NextI
Close#1
EndSub
3.编写一个求最大公约数的函数，并调用该函数，程序如下：
Functiongcd（ByValaAsInteger,ByValbAsInteger）AsInteger
Dimreasinteger
DoWhileb<>0
re=amodb
a=b
b=re
Loop
gcd=a
EndFunction
SubCommand1_Click（）
DimxAsInteger,yAsInteger,zAsinteger
X=96
Y=64
_z=gcd（x,y）_____
Print“结果=”;z
EndSub
4.请用正确的内容填空。
下面程序的作用是利用随机函数产生10个（1～200）
之间的随机整数，打印其中7的整数倍的数并求其和。
PrivateSubForm_Click（）
ForI=1To10
x=Int（Rnd*200+1）
If _（xmod7）=0_____Then
k1=k1+x
Printx
EndIf
NextI
Print
Print"k1=";k1
EndSub
5.下面程序运行时，内层循环的循环总次数是___6____。
Form=1To3
Forn=0Tom-1
Nextn
Nextm
6.在窗体中添加两个命令按钮，其名称分别为Command1和Command2，
窗体加载时要求Command1不可用，Command2可用；单击Command2后，
Command1可用。
请将下列程序补充完整。
PrivateSubCommand2_Click（）
__command1.enabled=true__________
EndSub
PrivateSubForm_Load（）
____command1.enabled=false
_command2.enabled=true___________
EndSub
7.函数odd用于判断一个数是否是奇数。
当单击命令按钮时，产生
[1,9]之间的随机数，调用odd过程，判断该数是否为奇数。
如果是则显示“奇数”，否则显示“偶数”。
PrivateSubodd（nAsInteger）
Printn;
Ifn/2<>n\2Then
Print"奇数"
Else
Print___“偶数”___
EndIf
EndSub
PrivateSubCommand1_Click（）
DimxAsInteger
Randomize
x=__int（rnd*9+1）____
oddx
EndSub
8.下列程序允许用户按Enter键将一个组合框（cboComputer）中没有的项目添加到组合框中。
SubcboComputer_KeyPress（KeyAsciiAsInteger）
DimflagAsBoolean
IfKeyAscii=13Then
flag=False
ForI=0TocboComputer.ListCount-1
If＿＿＿Then
Flag=True
ExitFor
EndIf
Nexti
IfNotflagThen
＿＿＿
Else
MsgBox（”组合框中已有该项目！
”）
EndIf
EndIf
EndSub
9.请用正确的内容填空。
下面程序的功能是通过InputBox对话框接受一个
二进制数，并把它转换成一个十进制数，结果显示在窗体中。
PrivateSubForm_Click（）
b=InputBox（"请输入一个二进制数"）
m=Len（b）
Forj=__1tom____
dec=dec*2+___val（Mid（b,j,1））
Nextj
Printb;"转换后的十进制数为：
";dec
EndSub
10.以下程序的功能是：
把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。
请填空。
PrivateSubCommand1_Click（）
DiminDataAsString
Text1.Text=""
Open".\smtext1.txt"_forInput____As#1
DoWhile___noteof
（1）___
Input#1,inData
Text1.Text=Text1.Text&inData
Loop
EndSub
第一卷客观题
第一题：
是非题（共10分，每项1分）
1.函数过程和子过程的区别是子过程结束将返回值过程值，函数过程结束不必返回函数值。
A.对 B.错
2.当窗体上有多个控件时，一般只有一个控件是当前控件，对控件的所有操作都是针对当前控件进行的。
A.对 B.错
3.窗体上的控件同样可以借助于剪贴板进行剪切、复制和粘贴。
A.对 B.错
4.用Dim语句声明变量时，VB系统不仅为变量分配相应数据类型的内在空间，而且还为变量赋所需的初值。
A.对 B.错
5.在VB系统中，没有用Dim语句声明的变量不能使用，因为它没有数据类型。
A.对 B.错
6.每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件。
A.对 B.错
7
升级会员 