Visual Basic程序设计期末综合练习题一new.docx
- 文档编号:9668304
- 上传时间:2023-02-05
- 格式:DOCX
- 页数:19
- 大小:78.02KB
Visual Basic程序设计期末综合练习题一new.docx
《Visual Basic程序设计期末综合练习题一new.docx》由会员分享,可在线阅读,更多相关《Visual Basic程序设计期末综合练习题一new.docx(19页珍藏版)》请在冰豆网上搜索。
VisualBasic程序设计期末综合练习题一new
VisualBasic程序设计期末综合练习题一
一、单项选择题
1.VisualBasic是一种面向对象的可视化编程语言,采取了()的编程机制。
A.从主程序开始执行B.按过程顺序执行
C.事件驱动D.按模块顺序执行
2.在VisualBasic中,窗体文件的扩展名为()。
A..vbpB..frm
C..clsD..bas
3.VisualBasic6.0集成开发环境有三种工作模式,下列不属于三种工作模式之一的是()。
A.设计模式B.编写代码模式
C.中断模式D.执行模式
4.如果对象的名称为Mytext,而且对象有一个属性Text,那么在代码中引用该属性的正确格式是()。
A.Text.MytextB.Mytext*Text
C.Mytext.(Text)D.Mytext.Text
5.下列关于变量的说法不正确的是()。
A.局部变量在声明它的过程执行完毕后就被释放了
B.局部变量的作用域仅限于声明它的过程
C.静态局部变量是在过程中用Static语句声明的
D.局部变量是指那些在过程中用Dim语句或Static语句声明的变量
6.关于对象的属性不正确的是()。
A.对象的属性一般有属性名和属性值B.可通过属性窗口设置属性的值
C.可通过程序代码设置属性的值D.对象的所有属性值均可在设计时设计
7.在设计阶段,双击窗体上的某个控件时,打开的窗体是()。
A.工程资源管理器窗口B.工具箱窗口
C.代码编辑器窗口D.属性窗口
8.要在窗体的标题内显示“myfrm”,使用的语句是()。
A.Form.caption="myfrm"B.Form1.caption="myfrm"
C.Form1.Print"myfrm"D.Form.Print"myfrm"
9.在VB中,下列变量名不合法的是()。
A.file_1B.fileC.file-1D.file_1_2
10.在设计动画时,用时钟控件来控制动画速度的属性是()。
A.EnabledB.Move
C.IntervalD.Timer
11.要从For…Next循环中退出循环,应使用()语句。
A.ExitB.ExitForC.ContinueD.StopLoop
12.文本框ScrollBars属性设置了非零值,却没有效果,原因是()。
A.文本框中没有内容B.文本框的Locked属性为True
C.文本框的MultiLine属性为TrueD.文本框的MultiLine属性为False
13.要利用公用对话框控件来显示“打开文件”对话框,需要调用控件的()方法。
A.ShowPrinterB.ShowOpenC.ShowSaveD.ShowColor
14.下列赋值语句正确的是()。
A.x=y+zB.y+z=x
C.-y=xD.4=x+y
15.确定一个控件在窗体上位置的属性是()。
A.Width和HeightB.Width或Height
C.Top和LeftD.Top或Left
16.VB程序中设置断点的按键是( )。
A.F5键 B.F6键
C.F9键 D.F10键
17.如果希望以模态方式显示窗体Form1,下列正确的语句是()。
A.Form1.Show0B.Form1.Show
C.Form1.Show1D.以下都不正确
18.用语句DimA(-2To3)AsInteger所定义的数组的元素的个数是()。
A.3B.4C.5D.6
19.如果创建了命令按钮的控件数组,那么Click事件的参数是()。
A.CaptionB.Tag
C.IndexD.没有参数
20.要向图片框Picture1中加载“d:
\hainan\zhiwu.bmp”图像文件,应使用语句()。
A.P1.Picture=LoadPicture(d:
\hainan\zhiwu.bmp)
B.P1.Picture=LoadPicture("d:
\hainan\zhiwu.bmp")
C.Picture1.Picture="d:
\hainan\zhiwu.bmp"
D.Picture1.Picture=LoadPicture("d:
\hainan\zhiwu.bmp")
21.如果要在窗体代码编辑器的”通用”部分定义私有Sub过程,则正确的语句是( )。
A.PublicSubB.PrivateSub
C.PublicFunctionD.PrivateFunction
22.在代码编辑器中,如果一条语句太长,无法在一行内写下(不包括注释),要折行书写,可以在行末使用续行字符(),表示下一行是当前行的继续。
A.直接回车B.一个下划字符”_”
C.一个空格加一个下划字符”_”D.一个空格加一个连字符(-)
23.下列叙述不正确的是()。
A.注释语句是非执行语句,仅对程序的有关内容起注释作用,客观存在不被解释和编译
B.注释语句可以放在代码中的任何位置
C.注释语句不能放在代码中的任何位置
D.代码中加入注释语句的目的是提高程序的可读性
24.VB程序中通常不会产生错误提示的是( )。
A.编译错误 B.实时错误
C.运行时错误 D.逻辑错误
25.ADO对象模型含有七种对象,其中代表数据库表中的一整套记录或执行一条命令而得到的结果的对象是()。
A.CommandB.Connection
C.RecordsetD.Field
26.使用ADO模型时,建立Recordset和Connection对象的连接的属性是( )。
A.ExecuteB.CommandType
C.OpenD.ActiveConnection
27.要发送数据,通常使用Winsock控件的( )。
A.SendData方法 B.Listen方法
C.Accept方法 D.GetDate方法
28.下列只能用程序代码设置,不能通过属性窗口设置的属性是()。
A.Drive属性B.Pattern属性C.Visible属性D.Index属性
二、填空题
1.每个应用程序必须有一个惟一的文件。
2.欲设置定时器的时间间隔为1秒,则属性Interval的值为。
3.表达式5+21\2*3Mod2的值是。
4.表达式5+9Mod2^3+2的值是。
5.列表框中项目的序号是从开始的。
6.计时器控件响应的事件是。
7.为了在运行时把当前路径下的图形文件pictureflower.jpg装入图片框Picture1,所使用的语句为。
8.执行赋值语句a="abc"+"def",变量a的值是。
9.VB中的程序错误类型主要有编译错误、等三种。
10.在VB中,将Foxpro称为外部数据库,Access称为,SQLServer称为。
11.数据库应用程序属于一种非常典型的前后台软件结构,而前后台之间进行通信的主要机制称为。
12.若窗体Form1左上角坐标为(0,600),右下角的坐标为(800,-200)。
则X轴的正向向,Y轴的正向向。
13.用DimA(3,3)语句声明二维数组后,数组A的元素共有个。
14.设某个程序中要用到一个二维数组,要求数组名为A,类型为字符串类型,第一维下标从1到3,第二维下标从0到3,则相应的数组声明语句为。
15.果不适先确定变量的数据类型,则可以把它声明为变量。
16.tretch属性设置为时,图像框可自动改变大小以适应其中的图形。
17.insock1.Listen语句的含义是。
三、阅读程序题
阅读下列程序并写出程序运行结果
1.
PrivateSubForm_Click()
StaticaAsString
DimbAsString
a=a+"A"
b=b+"B"
Text1=a
Text2=b
EndSub
写出程序运行时连续单击三次窗体后,文本框Text1和Text2显示结果。
2.
PrivateSubForm_Click()
StaticSumAsInteger
Fori=1To4
Sum=Sum+i
Nexti
PrintSum
EndSub
写出程序运行时点击窗体两次后,变量Sum的值。
3.
PrivateSubCommand1_Click()
DimA(1To5)AsInteger
DimxAsInteger
Fori=1To5
A(i)=i
Nexti
i=1
DoWhilex<7
A(i)=A(i)+x
x=x+3
i=i+1
Loop
Text1.Text=A
(1)
Text2.Text=A(3)
EndSub
写出程序运行时单击窗体后,Form1上的输出结果。
4.
PrivateSubForm_Click()
DimcAsInteger,jAsInteger,kAsInteger
k=2
c=3
Forj=1To5
Ifj>3Then
c=c+5
ExitFor
Else
k=k+5
EndIf
Nextj
Printc,k
EndSub
写出程序运行时单击窗体后,Form1上的输出结果。
5.
PrivateSubCommand1_Click()
DimXAsInteger,YAsInteger
X=1:
Y=1
Fori=1To4
Forj=1Toi
Y=Y+j
Nextj
X=X+Y
Nexti
PrintX
EndSub
写出程序运行时单击命令按钮后,窗体Form1上的输出结果。
6.
PrivateSubCommand1_Click()
DimA(1To5)AsInteger
DimbAsInteger
Forb=1To5
A(b)=b
Nextb
Text1.Text=A(b-2)
EndSub
写出程序运行时单击Command1后,文件框Text1中的输出结果。
7.
FunctionF(aAsInteger,bAsInteger)AsInteger
F=a+b
EndFunction
PrivateSubForm_Click()
DimaAsInteger,bAsInteger,zAsInteger
a=4:
b=5
z=F(a,b)
Printz
EndSub
写出程序运行时单击窗体后,Form1上的输出结果。
8.
FunctionF(aAsInteger)
DimbAsInteger
StaticcAsInteger
b=b+2
c=c+2
F=a+b+c
EndFunction
PrivateSubCommand1_Click()
DimaAsInteger
a=4
Fori=1To3
PrintF(a)
Nexti
EndSub
写出程序运行时,单击命令按钮在窗体上的输出结果。
四、完善程序题
1.假设用Access创建了一个名为“学生.MDB”的数据库,并在其中创建了一张名为“学生基本情况”的数据表,表中存放了学生的基本信息,如图1所示。
现在要求利用VB编写一个数据库查询程序,程序的运行界面如图2所示,基本逻辑是:
首先文本框(Text1)中输入希望查询的学生学号,然后点击“查询”按钮(Command1),如果数据库中存在该学号,则分别在Text2、Text3、Text4中显示学号、姓名、籍贯信息,否则提示用户“记录不存在”并使Text1获得焦点,要求用户重新输入。
当点击退出按钮(Command2)时关闭本窗体。
图1用Access创建的学生基本情况数据表
图2查询程序运行界面
程序如下,请补充完整。
PrivateADOcnAsConnection
PrivateSubForm_Load()
[1]
[2]"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=c:
\学生.MDB"
EndSub
PrivateSubCommand1_Click()
DimstrSQLAsString
DimADOrsAs[3]Recordset
ADOrs.ActiveConnection=[4]
strSQL="Select*From学生基本情况Where学号="+"'"+Text1+"'"
[5]
IfNotADOrs.EOFThen
Text2=ADOrs.Fields("学号")
Text3=ADOrs.Fields("姓名")
Text4=ADOrs.Fields("籍贯")
Else
MsgBox"要查询的学号不存在,请重新输入!
",vbOKOnly,"信息提示"
Text1=""
Text1.SetFocus
EndIf
EndSub
PrivateSubCommand2_Click()
UnLoadMe
End
2.列表框应用程序
要求从文本框中输入课程名称,然后按“添加”按钮,将该课程名程添加到列表框中;当选择列表框中某一项后,按“删除”按钮,则从列表框中删除该项;当选择列表框中某一项后,按“修改”按钮,把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。
在文本框的内容修改好后,按“修改确认”按钮,再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。
程序运行结果如图3所示。
图3
程序如下,请补充完整。
PrivateSubForm_Load()
List1.AddItem"VisualBasic程序设计"
List1.AddItem"SQLSERVER数据库应用"
List1.AddItem"信息管理系统"
List1.AddItem"ERP原理与应用"
List1.AddItem"网络实用技术基础"
List1.AddItem"系统开发规范与文档编写"
List1.AddItem"信息系统测试"
EndSub
PrivateSubCommand1_Click()
IfText1.Text<>""Then
[1]Text1.Text'将文本框中的内容加到列表框中
Text1.Text=""
[2]
MsgBox"请在文本框中输入信息!
"
EndIf
EndSub
PrivateSubCommand2_Click()
[3]List1.ListIndex'删除选定的项目
EndSub
PrivateSubCommand3_Click()
IfCommand3.Caption=[4]Then
Text1.Text=[5]
Text1.SetFocus
Command1.Enabled=False
Command2.Enabled=False
Command3.Caption="修改确认"
Else
List1.List(List1.ListIndex)=Text1.Text
Command1.Enabled=True
Command2.Enabled=True
Text1.Text=""
Command3.Caption="修改"
EndIf
EndSub
五、编写程序题
编写一工资调整程序。
若基本工资大于等于2000元,增加工资20%,若小于1800元大于1300元,则增加工资15%;若小于1300元则增加工资10%。
要求在文本框Text1中输入某职工的基本工资,单击“计算”按钮,在标签框Label1中输出增加后的工资。
程序运行界面如图4所示。
图4
2.请根据下列描述编写购物优惠程序。
某商场为了加速促成商品流通,采用购物打折的优惠办法,每位顾客一次购物
(1)在200元以上者,按九五折优惠;
(2)在400元以上者,按九折优惠;(3)800元以上者,按八折优惠。
在窗体上添加两个文本框和一个命令按钮,要求在Text1中输入购物商品总金额,单击命令按钮,在Text2中输出优惠价。
程序运行结果如图5所示。
图5
答案:
一、单项选择题
1.C2.B3.B4.D5.A6.D7.C8.B9.C10.C11.B12.D13.B14.A15.C16.C17.C18.D19.C20.D21.B22.C23.C24.D25.C26.D27.A28.A
二、填空题
1..vbp
2.1000
3.6
4.8
5.0
6.Timer
7.Picture1.Picture=LoadPrcture("pictureflower.jpg")
8.abcdef
9.实时错误逻辑错误
10.本地数据库远程数据库
11.数据库引擎
12.右上
13.16
14.DimA(1To3,0To3)AsString
15变体型(Variant)
16.alse
17.服务程序处于侦听状态
三、阅读程序题
1.
AAAB
2.
10
20
3.
19
4.
817
5.
40
6.
4
7.
9
8.
8
10
12
四、完善程序题
1.
[1]SetADOcn=NewConnection
[2]ADOcn.Open
[3]New
[4]ADOcn
[5]ADOrs.OpenstrSQL
2.
[1]List1.AddItem
[2]Else
[3]List1.RemoveItem
[4]"修改"
[5]List1.Text
五、编写程序题
参考答案
1.
PrivateSubCommand1_Click()
DimxAsInteger,yAsSingle
x=Val(Text1.Text)
SelectCasex
CaseIs>=1800
y=x*1.2
CaseIs>=1300
y=x*1.15
CaseElse
y=x*1.1
EndSelect
Label3.Caption=y
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
2.
PrivateSubCommand1_Click()
DimxAsSingle,yAsSingle
x=Val(Text1.Text)
Ifx<200Then
y=x
Else
Ifx<400Then
y=0.95*x
Else
Ifx<800Then
y=0.9*x
Else
y=0.8*x
EndIf
EndIf
EndIf
Text2.Text=y
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Visual Basic程序设计期末综合练习题一new Basic 程序设计 期末 综合 练习题 new