VB期末综合练习.docx
《VB期末综合练习.docx》由会员分享，可在线阅读，更多相关《VB期末综合练习.docx（21页珍藏版）》请在冰豆网上搜索。
VB期末综合练习
VB期末综合练习
一、填空题
1、计时器事件之间的间隔通过（）属性设置。
2、要想在文本框中显示垂直滚动条，必须把（）属性设置为2，同时还应把（）属性设置为（）
3、在过程定义中出现的变量名叫做（）参数，而在调用过程时传送给过程的常量，变量，表达式或数组，叫做（）参数。
4、VISUALBASIC6.0中的控件在窗体上分为3类，它们是（），（）和（）。
5、设计弹出式菜单时，先通过______建立菜单，然后将顶层菜单的Visible属性设置为False，最后在代码中通过窗体对象的______方法显示弹出式菜单。
6、Ｗindows可公用的对话框有：
______、保存文件对话框、颜色设置、字体设置对话框、打印设置对话框、帮助文件六种，ＶＢ可通过调用通用对话框控件的______、ShowSave、ShowColor、______、ShowPrint、ShowHelp方法来使用它们。
也可通过设置通用对话框控件的______属性来实现。
7、根据文件的存取方式及其组成结构，将文件分成________、______和__________。
8、由ARRAY（）函数建立的数组的名字必须是_________类型。
9、强制退出DO……..LOOP循环语句是_________，强制性退出FOR……..NEXT语句是_________。
10、VisualBasic应用程序由（）、标准模块和（）。
11、设置组合框的风格，可用的属性是（），按钮VALUE属性的值的类型是（）。
12、VisualBasic中，除了可以指定某个窗体作为启动对象之外，还可以指定（）作为启动对象。
13、要将MDI应用程序中的普通窗体设置为MDI子窗体，只需要把（）属性设置为（）即可。
14、建立弹出式菜单所使用的方法是（），要为某个菜单项加分隔线，则该菜单的标题项应设为（）。
15、为了使计时器控件TIMER1每隔1秒触发一次TIMET事件,应将TIMER1控件的（）属性设置为（）.
16、（）类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种数据类型。
17、控件数组的名字由________属性指定,而数组中的每个元素由______属性指定.
18、为了把一个窗全装入内存,所使用的语句为_______;为了清除内存中指定的窗体,所使用的语句为_________.
19、在VB中，对象的三要素分别是_______,__________和________.
20、在VB中整型数据占______个字节的内存空间,双精度浮点型数据占_____个字节的内存空间.
21、为了使标签能自动调整大小以显示全部文本内容,应把标签的______属性设置为TRUE.
22、确定复选框是否被选中，应访问的属性是_________，要让一控件不显示，应将该控件的_________属性设置成FALSE。
23、对于计时器控件，如果希望每秒产生10个事件，则应将其INTERVAL设置为_________。
24、若要屏蔽加上的控件对象，则需要设置（）属性的值为FALSE。
25、vb6.0分为3种版本，这3种版本是（）、（）和（）。
26、如果打开了不需要的菜单或对话框，可以用（）键关闭。
27、属性窗口分为4个部分，这4个部分分别是（），（），（），（），
28、在ＶＢ中窗体文件的后缀名为（），工程文件的后缀名为（）。
29、ＶＢ提供（）函数用于将数字字符转换成数值型，提供（）函数用于将数值转换成字符型。
30、工程文件的扩展名是（），窗体文件的扩展名（）。
31、控件数组的名字由（）属性决定，而数组中的每个元素由（）属性决定。
32、在3种不同类型的组合框中，只能选择而不能输入的组合框是（）。
33、菜单编辑器可分为3部分，即（）、（）和（）。
34、VisualBasic的过程有3种，它们是（）过程、（）过程和（）过程。
35、为了显示一个窗体，所使用的方法为（），而为了隐藏一个窗体，所使用的方法为（）。
36、VISUALBASIC6.0应用程序由（），（），（）三种模块组成。
37、计时器事件之间的间隔通过（）属性设置。
38、要想在文本框中显示垂直滚动条，必须把（）属性设置为2，同时还应把（）属性设置为（）
39、在过程定义中出现的变量名叫做（）参数，而在调用过程时传送给过程的常量，变量，表达式或数组，叫做（）参数。
40、VISUALBASIC6.0中的控件在窗体上分为3类，它们是（），（）和（）。
二、单项选择题
1、打开多重窗体应用程序后（）
A、打开一个窗体后，其他窗体都会被关闭
B、允许同时打开多个窗体
C、打开一个窗体后，其他窗体都会被隐藏起来
D、在某一时刻只能打开一个窗体
2、下列属性中，目录列表框和文件列表框都有的属性是（）
A、ListB、PathC、ValeD、Patten
3、窗体的Caption属性的作用是（）
A、确定窗体的名称B、确定窗体的标题
C、确定窗体的边界类型D、确定窗体的字体
4、下列不属于VisualBasic应用程序所包含文件的是（）
A、窗体文件B、类表文件C、文本文件D、工程文件
5、设a=2,b=3,c=4,d=5,则表达式a>bAndc>=dAndb<>cOrc>d的值是（）
A、TrueB、FalseC、-1D、1
6、为了用键盘打开菜单和执行菜单命令，第一步应按的键是（）
A）功能键F10或ALTB）SHIFT+功能键F4C）CTRL或功能键F8D）CTRL+ALT
7、VISUALBASIC6.0窗体设计器的主要功能是（）
A）建立用户界面B）编写源程序代码C）画图D）显示文字
8、为了确定一个窗体或控件的大小的属性是（）
A）WIDTH，TOPB）WIDTH，HEITHTC）TOP，WIDTHD）TOP，LEFT
9、下列可作为VISUALBASIC6.0的变量名的是（）
A）B）A（A+B）C）345DD）PRINT
10、下列可作为VISUALBASIC6.0中所允许的形式的数是（）
A）±25.74B）3.457E-100C）368D）1.87E+50
11、设A=2，B=3，C=4，D=5，下列表达式的值是（）。
3>2*BandA=CandB<>CorC>D
A）trueB）falseC）-1D）1
12、决定标签内显示内容的属性是（）
A）TEXTB）NAMEC）ALIGNMENTD）CAPTION
13、以下语句输出的结果是（）
printformat（32548.5,”000,000.00”）
A）32548.5B）32,548.5C）032,548.5D）32,548.5
14、表达式4+5\6*7/8mod9的值（）
A）4B）5C）6D）7
15、“对象”是将数据和程序（）起来的一个逻辑实体。
A、连接B、封装C、串接D、伪装
16、下列语句错误的是（）
A、Text1.Text=List1.Text
B、Label1.Caption=List1.Text
C、List1.List
（1）=List1.Text+List1.ListIndex
D、Command1.Caption=List1.Name+List1.Text
17、下列可作为VisualBasic中所允许的形式的数是（）。
A、32B、2.5EC、368D、12E3
18、语句Print5*5\5/5的输出结果是（）
A、5B、25C、０D、１
19、图象框有一个属性，可以自动调整图形的大小，以适应图象框的尺寸，这个属性是（）
A、AutosizeB、StretchC、AutoRedrawD、Appearance
20、下列程序的执行程序结果为（）
a=100
b=50
Ifa<>bThen
a=a+b
Else
b=b-a
ENDIF
Printa,b
A、5050 B、15050C、200200D、1010
21、在窗体中添加一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下代码：
PrivateSubCommand1_click（）
Dima，Array1（10,10）AsInteger
Dimi,jasinteger
Fori=1to3
Forj=2to4
Array1（i,j）=i+j
Nextj
Nexti
Text1.text=array1（2,3）+array1（3,4）
EndSub
程序运行后，单击命令按钮，在文本框中显示的值是（）
A、12B、13C、14D、15
22、设置复选框或单选框标题对齐方式的属性是（）
A）ALIGNB）ALIGNMENTC）SORTEDD）VALUE
23、删除列表框中指定的项目所使用的方法为（）
A）MOVEB）REMOVEC）CLEARD）REMOVEITEM
24、当拖动滚动条中的滚动块时，将触发滚动条的事件是（）
A）MOVEB）CHANGEC）SCROLLD）SETFOCUS
25、用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是（）
A）LISTB）LISTINDEXC）TEXTD）LISTCOUNT
26、为了使标签覆盖背景，应把BACKSTRLE属性设置为（）
A）0B）1C）3D）4
27、为了使标签中的内容居中显示，应把ALIGNMENT属性设置为（）
A）0B）1C）2D）3
28、以下程序的输出结果：
（）
a=sqr（3）:
b=sqr
（2）
c=a>b
printc
A）-1B）0C）falseD）true
29、下列关于键盘事件的说法中，正确的是（）
A、按下键盘上的任意一个键都会引发KeyPress事件
B、主键盘上的1键和数字键的1键的KeyCode码相同
C、KeyDown和KeyUP的事件过程中有KeyAscii参数
D、主键盘上的4键的上挡字符是$,当同时按下shift键和主键盘上的4键时,KeyPress事件过程中的KeyAscii参数值是$的Ascii值
30、以下语句的输入结果为（）
a=Sqr（3）
b=Sqr
（2）
c=a>b
printc
A、-1B、0C、FalseD、True
31、要使命令按钮成为默认命令按钮，需使用其（）属性。
A、EnabledB、DefaultC、ValueD、Cancel
32、在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
privateSubCommand1_Click（）
Dimi,Num
Randomize
Do
Fori=1TO1000
Num=Int（Rnd*100）
PrintNum;
SelectCaseNum
Case12
ExitFor
Case58
ExitDo
Case65,68,92
End
EndSelect
Nexti
Loop
EndSub
程序运行后，单击命令按钮，则正确的描述是（）
A、Do循环的次数为1000次
B、在For循环中产生的随机数小于或等于100
C、当所产生的随机数为12时结束所有循环
D、当所有的随机数为65、68或92时结束程序
33、设有如下程序段：
OptionBase1
PrivateSubForm_Click（）
Dimarr
Arr=Array（10,20,”ABCDE”）
Fori=3to1Step-1
Printarr（i）
Nexti
EndSub
程序运行后，单击窗体，在窗体上显示的内容为（）
A、ABCDE2010B、1020ABCDE
C、ABCDE1020D、出错信息
34、使用过程是为了（）
A、使程序模块化B、使程序易于阅读
C、提高程序运行速度D、便于系统的编译
35、可视化编程的最大优点是（）
A、具有标准工具箱B、一个工程文件由若干个窗体文件组成
C、不需要编写大量的代码来描述图形对象D、所见即所得
36、对话框在关闭之前，不能继续执行应用程序的其他部分，这种对话框属于（）
A、输入对话框B、输出对话框
C、模式（模态）对话框D、无模式对话框
37、假定有以下程序段：
fori=1to3
forj=5to1step-1
printi*j
nextj
nexti
则语句PRINTI*J的执行次数是（）
A）15B）16C）17D）18
38、设A=6，则执行X=IFF（A>5,-1,0）后的X值为（）
A）5B）6C）0D）-1
39、下列程序段执行后的结果是：
fori=1to3
forj=1toi
fork=jto3
a=a+1
nextk
nextj
nexti
执行上面的3重循环后，a的值为（）
A）3B）9C）14D）21
40、用下面的语句所定义的数组的元素个数是（）
DIMA（-3TO5）ASINTEGER
A）6B）7C）8D）9
41、下列叙述中正确的是（）
A.只有窗体才是VisualBasic中的对象
B.只有控件才是VisualBasic中的对象
C.窗体和控件都是VisualBasic中的对象
D.窗体和控件都不是VisualBasic中的对象
42．当窗体被加载时运行，发生的事件是（）
A．LoadB．UnloadC．ResizeD．DragDrop
43．用于VisualBasic程序设计的控件在（）
A.工程窗口中B.工具箱中
C.工具菜单中D.工具栏上
44.VisualBasic程序中分隔各语句的字符是（）
A.' B.:
C.\ D._
45.假定窗体的名称（Name属性）为Form1，则把窗体的标题设置为“VBTest”的语句为（）
A.Form1="VBTest"B.Caption="VBTest"
C.Form1.Text="VBTest" D.Form1.Name="VBTest"
46.使用驱动器表框的（）属性可以返回或设置磁盘驱动器的名称。
A.CAHNGE B.DRIVEC.DIRD.PATH
47.为了使命令按钮的Picture、DownPicture或DisabledPicture属性生效，必须把它的Style属性设置为（）
A.0 B.1 C.True D.False
48.为了使标签覆盖背景，应把BackStyle属性设置为（）
A.0 B.1 C.True D.False
49.为了使标签中的内容居中显示，应把Alignment属性设置为（）
A.0 B.1 C.2 D.3
50.下列可以把当前目录下的图形文件pic1.jpg装入窗体FORM1中的语句为（）
A.FORM1="pic1.jpg"
B.FORM1.Handle="pic1.jpg"
C.FORM1.Picture=LoadPicture（"pic1.jpg"）
D.FORM1=LoadPicture（"pic1.jpg"）
51.决定标签内显示内容的属性是（）
A.Text B.Name C.Alignment D.Caption
52.为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（）
A.Value B.Default C.Cancel D.Enabled
53.为了在按下Esc键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（）
A.Value B.Default C.Cancel D.Enabled
54.在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：
PrivateSubCommand1_Click（）
a=Text1.Text+Text2.Text
Printa
EndSub
PrivateSubForm_Load（）
Text1.Text=""
Text2.Text=""
EndSub
程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为（）
A.444
B.321123
C.123321
D.132231
55.下列可作为VisualBasic的变量名的是（）
A.3*Delta B.PrintChar C.Abs D.ABπ
56.下列可作为VisualBasic中所允许的形式的数是（）
A.±25.74 B.3.457E-100C.368 D.1.87E+50
57.设a=2，b=3，c=4，d=5，下列表达式的值是（）
a>bANDc<=dOR2*a>c
A.True B.FalseC.-1 D.0
58.以下语句的输出结果是（在立即窗口中）（）
a="Beijing"
b="ShangHai"
Printa;b
A.BeijingΔShangHai
B.ΔBeijingΔShangHai
C.BeijingShangHai
D.ΔBeijingΔShangHaiΔ
59.语句Print5*5\5/5的输出结果是 （）
A.5 B.25 C.0 D.1
60.执行下面的语句后，所产生的信息框的标题是（）
a=MsgBox（"AAAA"，，"BBBB"，""，5）
A.BBBB B.空 C.AAAA D.出错，不能产生信息框
三、程序填空
1、请完成打印下列图形的程序：
1
22
333
4444
55555
FORI=1TO5
FORJ=_______
PRINT_______
NEXTJ
_______
NEXTI
2、打印标准的九九表，完成下列程序：
FORI=1TO9
FORJ=（）
RPINT（）
NEXTJ
（）
NEXTI
2、以下程序的功能是：
从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分和最低分数。
请将其补充完整。
PRIVATESUBFORM-CLICK（）
DIMXASSINGLE，AMAXASSINGLE，AMINASSINGLE
X=INPUTBOX（“ENTERASCORE”）
AMAX=X
AMIN=X
DOWHILE（）
IFX>AMAXTHEN
AMAX=X
ENDIF
IF（）THEN
AMIN=X
ENDIF
LOOP
PRINT“MAX=”;AMAX,”MIN=”;AMIN
ENDSUB
3、产生50个两位随机整数的程序。
DIMSASINGEGER
DIMIASINGEGER
RANDOMIZETIMER
FORI=（）
S=（）
PRINTS；
NEXTI
4、编写在窗口上显示如下图形的程序：
---------＊
--------＊＊＊
-------＊＊＊＊＊
------＊＊＊＊＊＊＊
其中-表示空格
FORI=（）
PRINT（）
FORJ=（）
PRINT“*“；
NEXTJ
PRINT
NEXTI
5、编写求N！
的子过程，通过调用此子过程来计算5！
+8！
-6！
PrivateSubFORM1_Click（）
DIMA&.B&,C&,D&
CALLJCH（5,A）
CALLJCH（8,B）
CALLJCH（6,C）
_______
PRINTD
ENDSUB
SUB_______
DIMI%
P=1
FORI=1TON
P=P*I
NEXTI
ENDSUB
6、已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c，其中a不等于0。
修改程序，求方程的根。
要求：
如果方程无实数根，则输出“无实数根”，否则输出两个实数根。
PrivateSubCommand1_Click（）
Dima,b,c,dAsSingle
Dimx1,x2AsSingle
a=Val（Text1.Text）
b=Val（Text2.Text）
c=Val（Text3.Text）
d=b^2-4*a*c
Ifd________Then
x1=（-b+Sqr（d））/（2*a）
x2=（-b-Sqr（d））/（2*a）
Label1.Caption=x1
Label2.Caption=x2
_______
Label3.Caption=______
EndIf
EndSub
7、修改程序，使能输出：
1-2+3-4+5-6+...+99-100的值
程序如下：
PrivateSubCommand1_Click（）
s=_____
Fori=1To100
s=s+（-1）^（______）*i
Nexti
Prints
EndSub
8、填充程序，使能输出如下图形：
*
**
***
****
*****
******
程序如下：
PrivateSubCommand1_Click（）
Fori=1to____
Forj=1to____
Print_____
Nextj
_____
Nexti
EndSub
9、下面的程序是求100以内奇数和s的值（S=1+3+5+7...+99）。
程序中有三处错误，请更正。
PrivateSubCommand1_Click（）
DimsAsSingle
DimiAsSingle
s=1
Fori=1to100Step1
s=s*i
Nexti
Prints
EndSub
10、完善已写在“执行”按钮的Click事件下的程序代码，将代码段中的“常量”、“变量”、“表达式”处分别换成正确的常量值、变量名和具体的表达式，使得当鼠标单击命令按钮“执行”时，显示出满足
升级会员 