Visual Basic程序设计期末综合练习Word格式文档下载.docx
《Visual Basic程序设计期末综合练习Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《Visual Basic程序设计期末综合练习Word格式文档下载.docx（33页珍藏版）》请在冰豆网上搜索。
A．Form1_Click（）B.Form1_DbClick（）
C．Form_Click（）D．Form_DbClick（）
13．如下数组声明语句，正确的是（ ）。
A．Dima[3,4]AsIntegerB．Dima（3,4）AsInteger
C．Dima（n,n）AsIntegerD．Dima（34）AsInteger
14．能够改变标签（Label）控件显示标题的属性是（ ）。
A．NameB．Caption
C．TextD．Click
15．若使图像框Image控件自动适应其中的图形大小，应（ ）。
A．将控件的AutoSize属性设为TrueB．将控件的AutoSize属性设为False
C．将控件的Stretche属性设为TrueD．将控件的Stretche属性设为False
16．在VB中，要想快速获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按的键是（）
A．HelpB．F10C．F1D．Enter
17．执行Form1.Scale（-14,14）-（14,-14）语句后，Form1窗体坐标系x轴和y轴的正方向是（）。
A．向左和向下B．向右和向上
C．向左和向上D．向右和向下
18．VisualBasic6.0集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（）。
A．设计模式B．执行模式
C．中断模式D．编写代码模式
19．Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，需要设置的属性是（）
A．Interval=0或Enabled=FalseB．Interval=0或Visible=False
C．Interval=0且Enabled=FalseD．Enabled=False且Visible=False
20．以下叙述中正确的是（）。
A．窗体的Name属性的值是显示在窗体标题栏中的文本
B．对象的Name属性值可以为空
C．可以在运行期间改变对象的Name属性的值
D．窗体的Name属性指定窗体的名称，用来标识一个窗体
21．使用ADO数据模型时，建立Recordset和Connection对象连接的属性是（）。
A．Execute B．CommandType
C．Open D．ActiveConnection
22．在设计动画时，用时钟控件来控制动画速度的属性是（）
A．EnabledB．Interval
C．TimerD．Move
23．要发送数据，通称使用Winsock控件的（ ）。
A．Accept方法 B．Listen方法
C．SendData方法 D．GetDate方法
24．在VB中，下列变量名不合法的是（）。
A．take_1B．takeC．take-1D．take_1_2
25．用来从数据库表中删除记录的SQL命令是（）。
A．DELETEB．SELECT
C．UPDATED．WHERE
26．用于设置在文本框中显示字符的属性是（）。
A．AutoSiziB．Passwordchar
C．MultiLineD．ScrollBars
27．不属于VB数据库引擎的是（ ）。
A．ODBC B．BDE
C．Jet引擎 D．OLEDB
28．确定一个控件在窗体上的位置的属性是（）。
A．Width或HeightB．Width和Height
C．Top或LeftD．Top和Left
29．如果创建了命令按钮数组控件，那么Click事件的参数是（ ）
A．TagB．Caption
C．IndexD．没有参数
30．下列赋值语句正确的是（）。
A．a=b+cB．b+c=a
C．-b=aD．4=a+b
二、填空题
1．在VB中想获得帮助，需要按的键是；
要设置断点需要按键。
2.DimsAsString，则运行时变量s的初始值是。
3．窗体文件和工程文件的扩展名分别是和。
4．定时器（Timer）控件可识别的事件是，发生该事件的时间间隔由定时器的属性设置。
5．在控件数组中，所有元素的属性均相同，数组中的每个元素由属性指定。
6．执行赋值语句a="
123"
+"
456"
，变量a的值是。
7．假设ADOcn为一个Connection对象，那么在VB程序中声明并创建ADOcn的语句是。
8．表达式3+15Mod4*2+2的值是。
9．一个VB应用程序可以包含个vbp文件。
10．要在窗体Form1内显示“欢迎您!
”，使用的语句是。
11．列表框控件中最后一项的序号等于ListCount属性减。
12．变量的声明方法有隐式和声明两种。
任何变量在声明后均有一个初始值，一般情况下，数值型变量的初始值为。
13．全局变量是指那些在中有效的变量，一般在模块代码编辑器的顶部使用声明
14．设某个程序中要用到一个二维数组，要求数组名为A，类型为整型，第一维下标从-1到2，第二维下标从1到4，则相应数组声明语句为。
15．DimiAsInteger，则运行时变量i的初始值是。
16．过程级变量是指在过程内部声明的变量，只有在该过程中的代码才能访问这个变量。
模块级或窗体级变量的作用域是，全局变量在整个应用程序中有效，其作用域是。
17．VB中参数传递的方式有两种，一种是参数，另一种是
参数。
18.Winsock控件主要用来编制或协议的通话程序。
三、阅读程序题
阅读下列程序并写出程序运行结果
1.
PrivateSubForm_Click（）
DimIAsInteger,jAsInteger
DimcAsInteger
c=1
ForI=1To3
Forj=1To2
c=c+3
Nextj
NextI
Printc
EndSub
文件框Text1的输出结果是：
2．
PrivateSubCommand1_Click（）
DimnAsInteger,yAsInteger,xAsInteger
X=1
DoWhilex<
20
n=n+1
y=x+y
x=x*（x+1）
Loop
Text1.Text=n
Text2.Text=x
Text3.Text=y
写出程序运行时单击Command1后，文件框Text1、Text2和Text3的输出结果。
3.
DimsAsDouble
DimiAsInteger
s=5
i=1
DoWhilei<
9
i=i+2
s=s+i
Text1.Text=s
写出程序运行时，单击命令按钮文本框Text1中的输出结果。
4．
DimxAsInteger
StaticsAsInteger
x=Val（InputBox（"
请输入一个正整数="
））
Ifx<
5Then
s=s*x
Else
s=s+x
EndIf
Text1.Text="
s="
&
Str（s）
程序运行时连续3次单击Command1，且设输入的数据为6、5、4时，分别写出文本框Text1的值。
5.
FunctionF（aAsInteger）
b=2
Staticc
b=b+1
c=c+1
F=a+b+c
EndFunction
DimaAsInteger
a=2
Fori=1To3
PrintF（a）
Nexti
写出程序运行时，单击命令按钮在窗体上的输出结果。
6．
DimcAsInteger,jAsInteger,kAsInteger
k=1
c=2
Forj=1To5
Ifj>
3Then
c=c+6
ExitFor
k=k+3
EndIf
Nextj
Printc,k
EndSub
写出程序运行时单击窗体后，Form1上的输出结果。
7.
DimaAsInteger:
DimbAsInteger
a=10:
b=20
Change1a,b
Print"
A1="
;
a,"
B1="
b
Change2a,b
A2="
B2="
SubChange1（ByValxAsInteger,ByValyAsInteger）
t=x:
x=y:
y=t
SubChange2（xAsInteger,yAsInteger）
写出程序运行时,单击窗体Form1上的输出结果。
8．
StaticcAsInteger
b=b+3
a=5
写出程序运行时，单击命令按钮在窗体上的输出结果。
四、完善程序题
1．假设用Access创建了一个名为“学生.MDB”的数据库，并在其中创建了一张名为“学生基本情况”的数据表，表中存放了学生的基本信息，如图1所示。
现在要求利用VB编写一个数据库查询程序，程序的运行界面如图2所示，基本逻辑是：
首先文本框（Text1）中输入希望查询的学生学号，然后点击“查询”按钮（Command1），如果数据库中存在该学号，则分别在Text2、Text3、Text4中显示学号、姓名、籍贯信息，否则提示用户“记录不存在”并使Text1获得焦点，要求用户重新输入。
当点击退出按钮（Command2）时关闭本窗体。
图1用Access创建的学生基本情况数据表
图2查询程序运行界面
程序如下，请补充完整。
PrivateADOcnAsConnection
PrivateSubForm_Load（）
[1]
ADOcn.Open"
Provider=Microsoft.Jet.OLEDB.4.0;
DataSource=c:
\学生.MDB"
DimstrSQLAsString
DimADOrsAs[2]Recordset
ADOrs.ActiveConnection=ADOcn
strSQL="
Select*From学生基本情况Where学号="
+"
'
"
+Text1+"
.[3]
If[4]ADOrs.EOFThen
Text2=ADOrs.Fields（"
学号"
）
Text3=ADOrs.Fields（"
姓名"
Text4=ADOrs.Fields（"
籍贯"
MsgBox"
要查询的学号不存在，请重新输入!
"
vbOKOnly,"
信息提示"
Text1="
[5]
PrivateSubCommand2_Click（）
UnLoadMe
End
2.在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。
要求程序运行后，驱动器列表框Drive1的默认驱动器设置为e盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。
程序运行结果如图3所示。
图3
File1.Pattern="
*.bmp;
*.gif;
*.jpg"
PrivateSubDrive1_change（）
Dir1.Path=[2]
Text1.Text=Drive1.Drive
PrivateSubDir1_Change（）
[3]
Text1.Text=[4]
PrivateSubFile1_click（）
Picture1.[5]=LoadPicture（File1.Path+"
\"
+File1.FileName）
FileName=File1.Path+"
+File1.FileName
Text1.Text=FileName
五、编写程序题
1.编写一工资调整程序。
若基本工资大于等于3000元，增加工资10%，若小于3000元大于2000元，则增加工资15%；
若小于2000元则增加工资18%。
要求在文本框Text1中输入某职工的基本工资，单击“计算”按钮，在标签框Label1中输出增加后的工资。
程序运行界面如图4所示。
图4
2．列表框应用程序。
要求从文本框中输入课程名称，然后按“添加”按钮，把课程名称添加到列表框中；
当选择列表框中某一项时，按“删除”按钮，从列表框中删除；
当选择列表框中某一项时，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。
在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。
程序运行结果如图5所示。
图5
期末综合练习一答案
1.B2.C3.D4.D5.B6.B7.D8.B9.A10.A11.B12.C13.B14.B15．D16.C17．B18.D19．A20.D21．D22.B23.C24.C25.A26.B27.B28.D29.C30.A
1．F1F9
2．"
（或空字符串），Variant（或变体型）
3．.frm.vbp
4.TimerInterval
5．NameIndex
6．123456
7．DimADOcnAsNewConnection
8．12
9.1
10．Form1.print"
欢迎您！
11．1
12．显示0
13.整个应用程序Public
14．DimA（-1To2,1To4）AsInteger
15．0
16．整个模块或窗体整个应用程序（或工程中所有的模块和所有的过程）
17．引用参数传递（或按址传递）按值传递
18．TCP/IPUDP
1．
19
2.
3
42
9
3．
29
4.
s=6s=11s=44
5．
6
7
8
6.
810
7．
A1=10B1=20
A2=20B2=10
8.
11
14
17
[1]SetADOcn=NewConnection
[2]New
[3]ADOrs.OpenstrSQL
[4]Not
[5]Text1.SetFocus
[1]Drive1.Drive="
e:
[2]Drive1.Drive
[3]File1.Path=Dir1.Path
[4]Dir1.Path
[5]Picture
1.参考答案
DimxAsInteger,yAsSingle
x=Val（Text1.Text）
SelectCasex
CaseIs>
=3000
y=x*1.1
=2000
y=x*1.15
CaseElse
y=x*1.18
EndSelect
Label3.Caption=y
PrivateSubCommand2_Click（）
UnloadMe
2.参考答案
List1.AddItem"
VisualBasic程序设计"
数据库基础与应用"
信息系统测试"
计算机应用基础"
EndSub
IfText1.Text<
>
Then
List1.AddItemText1.Text
请在文本框中输入信息！
List1.RemoveItemList1.ListIndex
PrivateSubCommand3_Click（）
IfCommand3.Caption="
修改"
Text1.Text=List1.Text
Text1.SetFocus
Command1.Enabled=False
Command2.Enabled=False
Command3.Caption="
修改确认"
List1.List（List1.ListIndex）=Text1.Text
Command1.Enabled=True
Command2.Enabled=True
PrivateSubList1_Click（）
IfList1.ListIndex<
-1Then
Command3.Enabled=True
期末综合练习二
1．VB工程文件的后缀是（）。
A．.frmB．.vbp
C．.clsD．.bas
2．在一个语句行内写多条语句时，语句之间应该用（）分隔。
A．逗号B．分号
C．顿号D．冒号
3．与传统的设计语言相比，VisualBasic最突出的特点是（）。
A．程序开发环境B．结构化程序设计
C．事件驱动的编程机制D．程序调试技术
4．在VisualBasic中，变量的默认类型是（ ）。
A．DoubleB．Integer
C．CurrencyD．Variant
5．当一个工程中含有多个窗体时，其中的启动窗体是（）。
A．启动VB时创建的第一个窗体B．第一个添加的窗体
C．最后一个添加的窗体D．在“工程属性”对话框中指定的窗体
6．目录列表框的Path属性的作用是（）。
A．显示当前驱动器或指定驱动器上的某目录下的文件名
B．显示当前驱动器或指定驱动器上的路径
C．显示根目录下的
升级会员 