VB期末综合练习Word文档下载推荐.docx
《VB期末综合练习Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《VB期末综合练习Word文档下载推荐.docx（17页珍藏版）》请在冰豆网上搜索。
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）
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
程序运行后，单击命令按钮，则正确的描述是（）
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）
程序运行后，单击窗体，在窗体上显示的内容为（）
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、下列程序段执行后的结果是：
forj=1toi
fork=jto3
a=a+1
nextk
执行上面的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="
C.Form1.Text="
D.Form1.Name="
46.使用驱动器表框的（）属性可以返回或设置磁盘驱动器的名称。
A.CAHNGE
B.DRIVEC.DIRD.PATH
47.为了使命令按钮的Picture、DownPicture或DisabledPicture属性生效，必须把它的Style属性设置为（）
A.0
B.1
C.True
D.False
48.为了使标签覆盖背景，应把BackStyle属性设置为（）
C.True
D.False
49.为了使标签中的内容居中显示，应把Alignment属性设置为（）
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（"
51.决定标签内显示内容的属性是（）
A.Text
B.Name
C.Alignment
D.Caption
52.为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（）
A.Value
B.Default
C.Cancel
D.Enabled
53.为了在按下Esc键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（）
54.在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：
PrivateSubCommand1_Click（）
a=Text1.Text+Text2.Text
Printa
EndSub
PrivateSubForm_Load（）
Text1.Text="
"
Text2.Text="
程序运行后，在第一个文本框（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（）
2、以下程序的功能是：
从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分和最低分数。
请将其补充完整。
PRIVATESUBFORM-CLICK（）
DIMXASSINGLE，AMAXASSINGLE，AMINASSINGLE
X=INPUTBOX（“ENTERASCORE”）
AMAX=X
AMIN=X
DOWHILE（）
IFX>
AMAXTHEN
AMAX=X
IF（）THEN
LOOP
PRINT“MAX=”;
AMAX,”MIN=”;
AMIN
ENDSUB
3、产生50个两位随机整数的程序。
DIMSASINGEGER
DIMIASINGEGER
RANDOMIZETIMER
FORI=（）
S=（）
PRINTS；
4、编写在窗口上显示如下图形的程序：
---------＊
--------＊＊＊
-------＊＊＊＊＊
------＊＊＊＊＊＊＊
其中-表示空格
PRINT（）
FORJ=（）
PRINT“*“；
PRINT
5、编写求N！
的子过程，通过调用此子过程来计算5！
+8！
-6！
PrivateSubFORM1_Click（）
DIMA&
.B&
C&
D&
CALLJCH（5,A）
CALLJCH（8,B）
CALLJCH（6,C）
PRINTD
SUB_______
DIMI%
P=1
FORI=1TON
P=P*I
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的值
程序如下：
s=_____
Fori=1To100
s=s+（-1）^（______）*i
Prints
8、填充程序，使能输出如下图形：
*
**
***
****
*****
******
Fori=1to____
Forj=1to____
Print_____
_____
9、下面的程序是求100以内奇数和s的值（S=1+3+5+7...+99）。
程序中有三处错误，请更正。
DimsAsSingle
DimiAsSingle
s=1
Fori=1to100Step1
s=s*i
Prints
10、完善已写在“执行”按钮的Click事件下的程序代码，将代码段中的“常量”、“变量”、“表达式”处分别换成正确的常量值、变量名和具体的表达式，使得当鼠标单击命令按钮“执行”时，显示出满足条件2+4
升级会员 