VB程序设计期末综合练习.docx
《VB程序设计期末综合练习.docx》由会员分享，可在线阅读，更多相关《VB程序设计期末综合练习.docx（47页珍藏版）》请在冰豆网上搜索。
VB程序设计期末综合练习
期末综合练习一
一、单项选择题
1．后缀为.Vbp的文件表示VB的（ ）
A．类模块文件B．窗体文件
C．工程文件D．标准类模块文件
2．后缀为.bas的文件表示VB的（ ）。
A．窗体文件B．类模块文件
C．工程文件D．标准类模块文件
3．当需要上下文帮助时，选择要帮助的内容，希望出现MSDN窗口及显示所需的帮助信息，应按的键是（）。
A．HelpB．F10C．F1D．Esc
4．当一个工程中含有多个窗体时，其中的启动窗体是（）。
A．启动VB时创建的第一个窗体B．第一个添加的窗体
C．最后一个添加的窗体D．在“工程属性”对话框中指定的窗体
5．为了保存一个VisualBasic应用程序，下列说法正确的是（）。
A．只保存窗体文件（.frm）
B．只保存工程文件（.vbp）
C．分别保存工程文件和标准模块文件（.bas）
D．分别保存工程文件、窗体文件和标准模块文件
6．要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮，只要对下列（）属性设置就有效。
A．MaxButtonB．BorderSyle
C．WidthD．MinButton
7．在VisualBasic中，变量的默认类型是（）
A．IntegerB．Variant
C．DoubleD．Currency
8．有程序代码如下：
Text1.Text="VisualBasic"
则Text1，Text，和"VisualBasic"分别代表（）。
A．对象，值，属性B．对象，方法，属性
C．对象，属性，值D．属性，对象，值
9．Timer控件可用于后台进程中，可在Timer事件内编程，要停止触发Timer事件，需要设置的属性是（）
A．Interval=0或Enabled=FalseB．Interval=0或Visible=False
C．Enabled=False或Enabled=0D．Interval=0且Enabled=False
10．要设置命令按钮的背景图形，必须设置的两个属性是（）。
A．Value和IconB．Style和Icon
C．Caption和PictureD．Style和Picture
11．刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（）。
A．单选按纽B．图片框
C．框架D．通用对话框
12．在VB中，下列合法的变量名是（）
A．4abB．a-bC．a_4D．integer
13．为使文本框显示滚动条，必须首先设置的属性是（ ）。
A．AutoSizeB．MultilineC．AlignmentD．TabStop
14．如下数组声明语句，正确的是（ ）。
A．Dima[3,4]AsIntegerB．Dima（34）AsInteger
C．Dima（n,n）AsIntegerD．Dima（3,4）AsInteger
15．DimA（6,6）AsInteger定义的数组包含的元素个数是（）
A．36B．49
C．42D．动态变化
16．要在窗体Form1内显示“欢迎您！
”，使用的语句是（）
A．Form.caption="欢迎您!
"B．Form1.caption="欢迎您!
"
C．Form1.print"欢迎您!
"D．Form.print"欢迎您!
"
17．执行Form1.Scale（-14,14）-（14,-14）语句后，Form1窗体坐标系x轴和y轴的正方向是（）。
A．向左和向下B．向右和向上
C．向左和向上D．向右和向下
18．要设置命令按钮的背景图形，必须设置的两个属性是（）。
A．Value和IconB．Style和Icon
C．Style和PictureD．Caption和Picture
19．如果希望以模态方式显示窗体Form1，下列正确的语句是（）
A．Form1.Show0B．Form1.Show
C．Form1.Show1D．以下都不正确
20．如果创建了命令按钮数组控件，那么Click事件的参数是（ ）。
A．TagB．Caption
C．IndexD．As
21．表达式8+13Mod2*4+3（）。
A．8B．16C．10D．12
22．下列关于变量的说法不正确的是（）。
A．局部变量是指那些在过程中用Dim语句或Static语句声明的变量
B．局部变量在声明它的过程执行完毕后就被释放了
C．静态局部变量是在过程中用Static语句声明的
D．局部变量的作用域仅限于声明它的过程
23．VB程序中通常不会产生错误提示的是（ ）。
A．编译错误 B．实时错误
C．运行时错误 D．逻辑错误
24．如果创建了命令按钮数组控件，那么该命令按钮的Click事件的参数是（ ）
A．IndexB．Caption
C．TagD．没有参数
25．使用ADO数据模型时，建立Recordset和Connection对象连接的属性是（）。
A．Execute B．CommandType
C．Open D．ActiveConnection
26．不属于VB数据库引擎的是（ ）。
A．ODBC B．BDE
C．Jet引擎 D．OLEDB
二、填空题
1.VisualBasic提供了结构化程序设计的3种基本结构，这3种基本结构是顺序结构、
和。
2．欲设置定时器的时间间隔为2秒，则属性Interval的值为。
3．定时器（Timer）控件可识别的事件是，发生该事件的时间间隔由定时器的属性设置。
4．某个程序中要用到一个二维数组，要求数组名为A，类型为整型，第一维下标从-1到2，第二维下标从-2到2，则相应数组声明语句为。
5．VisualBasic程序开发有三种模式，即设计模式、中断模式和模式。
6．在VB中想获得帮助，需要按的键是。
7．全局变量在整个应用程序中有效，一般在标准模块中使用语句声明。
8．在控件数组中，所有元素的属性均相同，数组中的每个元素由属性指定。
9．在VisualBasic语言中有三种形式的循环结构。
其中，若循环的次数可以适先确定，可使用循环。
10．DimiAsInteger，则运行时变量i的初始值是。
11．一个VB应用程序可以包含个vbp文件。
12．在VB中，将Access称为本地数据库，SQLServer称为。
13．VB中参数传递的方式有两种，一种是参数，另一种是
参数。
14．Winsock控件主要用来编制或协议的通话程序。
15．通常可以将文本框控件的Locked属性设置为，以禁止键盘输入。
三、阅读程序题
阅读下列程序并写出程序运行结果
1．
PrivateSubForm_Click（）
DimxAsInteger
StaticyAsInteger
x=x+3
y=x+y
Form1.Print"x=";x,"y=";y
EndSub
写出程序运行时连续单击三次窗体后，Form1上的输出结果。
2．
PrivateSubCommand1_Click（）
DimsAsDouble
DimiAsInteger
s=5
i=1
DoWhilei<7
i=i+2
s=s+i
Loop
Text1.Text=s
EndSub
写出程序运行时，单击命令按钮文本框Text1中的输出结果。
3．
PrivateSubForm_Click（）
DimcAsInteger,jAsInteger,kAsInteger
k=3
c=4
Forj=1To5
Ifj>3Then
c=c+5
ExitFor
Else
k=k+1
EndIf
Nextj
Printc,k
EndSub
写出程序运行时单击窗体后，c,k的值分别是：
4．
FunctionF（aAsInteger）
b=3
Staticc
b=b+1
c=c+1
F=a+b+c
EndFunction
PrivateSubCommand1_Click（）
DimaAsInteger
a=2
Fori=1To3
PrintF（a）
Nexti
EndSub
写出程序运行时，单击命令按钮在窗体上的输出结果。
4.
PrivateSubCommand1_Click（）
DimaAsInteger:
DimbAsInteger
a=10:
b=20
Change1a,b
Print"A1=";a,"B1=";b
a=10:
b=20
Change2a,b
Print"A2=";a,"B2=";b
EndSub
SubChange1（xAsInteger,yAsInteger）
t=x:
x=y:
y=t
EndSub
SubChange2（ByValxAsInteger,ByValyAsInteger）
t=x:
x=y:
y=t
EndSub
写出程序运行时,单击窗体Form1上的输出结果。
5.PrivateSubCommand1_Click（）
DimaAsInteger:
DimbAsInteger
a=10:
b=20
Change1a,b
Print"A1=";a,"B1=";b
a=10:
b=20
Change2a,b
Print"A2=";a,"B2=";b
EndSub
SubChange1（xAsInteger,yAsInteger）
t=x:
x=y:
y=t
EndSub
SubChange2（ByValxAsInteger,ByValyAsInteger）
t=x:
x=y:
y=t
EndSub
写出程序运行时,单击窗体Form1上的输出结果。
四、完善程序题
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"
EndSub
PrivateSubCommand1_Click（）
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（"籍贯"）
Else
MsgBox"要查询的学号不存在，请重新输入!
",vbOKOnly,"信息提示"
Text1=""
[5]
EndIf
EndSub
PrivateSubCommand2_Click（）
UnLoadMe
End
2.程序运行界面如图3所示。
要求从文本框中输入课程名称，然后按“添加”按钮，将其添加到列表框中；当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。
在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。
List1
Command3
Text1
Command1
Command2
图3
程序如下，请补充完整。
PrivateSubForm_Load（）
List1.AddItem"计算机应用基础"
List1.AddItem"程序设计基础"
List1.AddItem"VB程序设计"
List1.AddItem"SQLServer数据库应用"
List1.AddItem"网站设计技术"
List1.AddItem"系统开发规范与文档编写"
List1.AddItem"信息系统测试"
EndSub
PrivateSubCommand1_Click（）
IfText1.Text<>""Then
List1.[1]Text1.Text'将文本框中的内容添加到列表框中
Text1.Text=""
Else
MsgBox"请在文本框中输入信息！
"
EndIf
EndSub
PrivateSubCommand2_Click（）
List1.RemoveItem[2]'删除选定的项目
EndSub
PrivateSubCommand3_Click（）
IfCommand3.Caption="修改"Then
Text1.Text=[3]
Text1.SetFocus
Command1.Enabled=False
Command2.Enabled=False
Command3.Caption="修改确认"
Else
[4]=Text1.Text
Command1.Enabled=True
Command2.Enabled=True
Text1.Text=[5]
Command3.Caption="修改"
EndIf
EndSub
五、编写程序题
请根据下列描述编写财务部门征收劳务酬金所得税程序，规定如下：
（1）收入在1000元以内，不扣税；
（2）收入在1000-3000元内，1000元以上部分扣税15%，
（3）收入在3000-5000元内，3000元以内按
（2）的方法扣税，3000元以上部分，扣税20%，
（4）当收入达到5000元以上，1000元以上扣税25%。
程序运行界面如图4所示。
图4
2.
编写简单的工资计算程序，要求在Text1、Text2、Text3中分别输入基本工资、奖金、扣款，单击“计算”按钮（Command1）后，首先计算“应发工资”（Text4），然后根据“应发工资”计算个人所得税（Text5），最后计算出实发工资（Text6）。
（1）应发工资=基本工资+奖金-扣款
（2）个人所得税的计算规则假设为：
1）当应发工资在1000元以内部分（含1000元），不扣所得税。
2）当应发工资大于1000，但小于等于3000元时，超过1000元的部分按15%计算所得税。
3）当应发工资大于3000，按20%扣税。
程序运行结果如图5所示。
图5
综合练习一答案
一、单项选择题
1.C2.D3.C4.D5.D6.B7.B8.C9.A10.D11.D12.C13.B14.D15.B16．C17．B18.C19．C20.C21．B22.B23.D24.A25.D26.B
二、填空题
1．选择结构循环结构
2．2000
3．TimerInterval
4.DimA（-1To2,-2To2）AsInteger
5．执行
6.F1
7．Public
8．NameIndex
9．ForNext
10．0
11.1
12．远程数据库
13．引用参数传递（或按址传递）按值传递
14．TCP/IPUDP
15．True
三、阅读程序题
1.
x=3y=3
x=3y=6
x=3y=9
2.
20
3.
86
4.
7
8
9
5．
A1=20B1=10
A2=10B2=20
四、完善程序题
1.
[1]SetADOcn=NewConnection
[2]New
[3]ADOrs.OpenstrSQL
[4]Not
[5]Text1.SetFocus
2.
[1]AddItem
[2]List1.ListIndex
[3]List1.Text
[4]List1.List（List1.ListIndex）
[5]""
五、编写程序题
1.参考答案
PrivateSubCommand1_Click（）
DimxAsInteger,taxAsSingle
x=Val（Text1.Text）
Ifx<=1000Then
tax=0
Else
Ifx<=3000Then
tax=（x-1000）*0.15
Else
Ifx<=5000Then
tax=（x-1000）*0.15+（x-3000）*0.05
Else
tax=（x-1000）*0.25
EndIf
EndIf
EndIf
Text2.Text=tax
EndSub
2.参考答案
PrivateSubCommand1_Click（）
Text4=Val（Text1）+Val（Text2）-Val（Text3）
IfVal（Text4）<=1000Then
Text5=0
ElseIfVal（Text4）>1000AndVal（Text4）<=3000Then
Text5=（Val（Text4）-1000）*0.15
Else
Text5=Val（Text4）*0.2
EndIf
Text6=Val（Text4）-Val（Text5）
EndSub
PrivateSubCommand2_Click（）
UnloadMe
EndSub
期末综合练习二
一、单项选择题
1．在VB6.0集成开发环境中有三种工作模式，下列不属于三种工作模式之一的是（ ）。
A．设计模式B．中断模式
C．执行模式D．编写代码模式
2．刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（）。
A．单选按纽B．图片框
C．框架D．通用对话框
3．要在窗体的标题内显示“VB你好”,使用的语句是（）。
A．Form1.Print"VB你好"B．Form.Print"VB你好"
C．Form1.caption="VB你好"D．Form.caption="VB你好"
4．窗体文件的扩展名是（）。
A．.vbpB．.frm
C．.basD．.frx
5．多窗体程序是由多个窗体组成。
在缺省情况下，VB在应用程序执行时，总是把（）指定为启动窗体。
A．不包含任何控件的窗体B．设计时的第一个窗体
C．最后一个添加的窗体D．命名为Frm1的窗体
6．无论何种控件，共同具有的属性是（ ）
A．TextB．Caption
C．NameD．ForeColor
7．以下有关VisualBasic语言描述中错误的是（）。
A．不区分大小写
B．语句是一行一句，以回车键结束
C．用“,”分隔一行中的多个语句
D．一条语句放在多行中，则在前一行结束处使用续行符“_”连接下一行
8．要退出Do…Loop循环，可使用的语句是（）语句。
A．ExitB．ExitForC．ExitDoD．EndDo
9．有程序代码如下：
Text1.Text="欢迎学习VB！
"
则Text1，Text，和"欢迎学习VB！
"分别代表（）。
A．对象，值，属性B．对象，属性，值
C．对象，方法，属性D．属性，对象，值
10．下列赋值语句正确的是（）。
A．B+C=AB．5=A+B
C．-B=AD．A=B+C
11．下列关于变量的说法不正确的是（）。
A．局部变量在声明它的过程执行完毕后就被释放了
B．局部变量的作用域仅限于声明它的过程
C．静态局部变量是在过程中用Static语句声明的
D．局部变量是指那些在过程中用Dim语句或Static语句声明的变量
12．表达式7+10Mod3*2+2（）。
A．1B．6C．7D．13
13．关于语句行，下列说法正确的是（）。
A．一行只能写一条语句B．长度不能超过255个字符
C．每行的首字符必须大写D．一条语句可以分多行书写
14．在VB中，要想快速获得某个相关控件或语句的帮助信息，一般可首先选中该控件或语句，然后按的键是（）
A．HelpB．F10C．F1D．Enter
15．为了使图像框中的图形自动适应图像框的大小，则应（）。
A．将其AutoSize属性值设置为TrueB．将其AutoSize属性值设置为False
C．将其Stretch属性值设置为TrueD．将其Stretch属性值设置为False
16．按照变量的作用域可将变量划分为（）。
A．公有、私有、系统B．全局变量、模块级变量、过程级变量
C．动态、常数、静态D．Public、Private、Protected
17．将数据项“China”添加到列表框（List1）中成为第一项，应使用的语句是（）。
A．List1.AddItem"China",0B．List1.AddItem"China",1
C．List1.AddIte
升级会员 