Visual Basic程序设计期末复习一Word文件下载.docx
- 文档编号:18774228
- 上传时间:2023-01-01
- 格式:DOCX
- 页数:15
- 大小:86.50KB
Visual Basic程序设计期末复习一Word文件下载.docx
《Visual Basic程序设计期末复习一Word文件下载.docx》由会员分享,可在线阅读,更多相关《Visual Basic程序设计期末复习一Word文件下载.docx(15页珍藏版)》请在冰豆网上搜索。
40B、8<
=yAND<
40
C、8<
=yANDy<
40 D、8<
=yORy<
40
12.DimA(-1To4,5)AsString定义的数组包含的元素个数是()
A.30B.36
C.25D.20
13.应用程序打包后,其包文件的后缀是( )
A..cabB..exe
C..ocxD..vbp
14.能够实现“窗体总在最前端”界面效果的API函数是( )
A.SetWindowPosB.SetWindowAPI
C.PrivateD.Public
15.某窗体的Name属性为MyFrm,则它的Load事件的过程名为()
A.MyFrm_Load
B.Me_Load
C.Form1_Load
D.Form_Load
16.MsgBox函数的返回值的类型是( )
A.整型B.字符串
C.逻辑型D.日期型
17.以读方式打开D盘中的Text.dat文件,正确的语句是()
A.open"
D:
\text.dat"
ForOutputAs#1
B.open"
D:
ForInputAs#1
C.open"
ForInputAs
D.open"
text.dat"
ForRandomAs#1
18.在VB中,Access数据库属于( )
A.本地数据库 B.外部数据库
C.远程数据库D.OLE数据库
19.当Winsock控件处于关闭状态时,其State属性的值是( )
A.1 B.0
C.2D.-1
20.后缀为.Vbp的文件表示VB的( )
A.类模块文件B.窗体文件
C.工程文件D.标准类模块文件
21.在设计动画时,用时钟控件来控制动画速度的属性是()
A.EnabledB.Interval
C.TimerD.Move
22.下列数据对象模型中采用OLEDB访问数据库的是( )。
A.DAO B.RDO C.ADO D.RDO和ADO
23.下列控件中不能响应Click事件的是()。
A.FrameB.LabelC.FormD.Timer
24.文本框不具备的属性是()。
A.EnabledB.VisibleC.BackColorD.Caption
二、填空题
1.VB提供控件的窗口是窗口。
2.Timer控件只有一个事件,该事件的名称是。
3.Left(“abcdef”,2)函数的返回值是。
4.执行指令Line(200,200)-(600,600)后,CurrentX等于。
5.对命令按钮的Picture属性装入.bmp图形文件后,该命令按钮上并没有显示所需要的图形,原因是没有对属性设置为1(Graphical)。
6.若窗体Form1左上角坐标为(-250,300),右下角坐标为(350,-200),则X轴的正向向,Y轴的正向向。
7.Winsock1.Listen语句的含义是。
8.Winsock1.Connect语句的含义是。
9.Winsock控件主要用来编制TCP/IP或协议的通话程序。
10.程序的运行结果和程序员的设想有出入时产生的错误称为。
11.利用SendKeys“{Tab}”语句可以向当前活动窗体发送一个Tab键,那么如果希望发送一个回车键,则正确的语句应该是。
12.Vb应用程序与数据库进行通信的主要机制称为。
13.按文件的存取方式,可将文件分为顺序文件、和。
14.假设ADOrs为一个Recordset对象,那么从Table1表中获取所有记录的语句是”Select*FromTable1”。
15.DimaAsString,则运行时变量a的初始值是。
如果不事先使用Dim语句声明a变量,那么a的默认数据类型是。
16.变量的声明方法有隐式和声明两种,如果采用隐式声明方法,那么VB会自动将变量声明为。
17.矩形、三角形、正方形三种图形中,不能用Shape控件绘制的是。
18.一个VB应用程序可以包含个vbp文件。
19.ADO模型中一般可通过对象的Execute方法执行增加、删除、修改SQL语句。
20.全局变量在整个应用程序中有效,一般在标准模块中使用语句声明。
三、阅读程序题
阅读下列程序并写出程序运行结果
1.
PrivateSubForm_Click()
StaticaAsInteger
DimbAsInteger
a=a+2
b=b+2
Text1=a
Text2=b
EndSub
写出程序运行时连续单击三次窗体后,文本框Text1和Text2显示结果。
2.
StaticaAsString
DimbAsString
a=a+"
A"
b=b+"
B"
Text1=a
Text2=b
3.
PrivateSubCommand1_Click()
DimnAsInteger,yAsInteger,xAsInteger
a=1
DoWhilea<
20
n=n+1
b=a+b
a=a*(a+1)
Loop
Text1.Text=n
Text2.Text=a
Text3.Text=b
写出程序运行时单击Command1后,文件框Text1、Text2和Text3的输出结果。
4.
DimA(1To5)AsInteger
DimxAsInteger
Fori=1To5
A(i)=i
Nexti
i=1
DoWhilex<
3
A(i)=A(i)*x
x=x+2
i=i+1
Text1.Text=A
(1)
Text2.Text=A
(2)
写出程序运行时单击Command1后,文本框Text1、Text2的输出结果。
5.
DimiAsInteger,kAsInteger
k=0
Fori=1To4
Ifi>
2Then
k=k+5
Else
k=k+2
EndIf
Nexti
Printi,k
写出程序运行时单击窗体后,Form1上的输出结果。
6.
DimiAsInteger,kAsInteger,cAsInteger
IfiMod2=0Then
k=k+2
Else
c=c+2
EndIf
Printk,c
7.
SubChange(ByValxAsInteger,ByValyAsInteger)
DimtAsInteger
t=x
x=y
y=t
Printx,y
DimaAsInteger,bAsInteger
a=10:
b=20
Changea,b
Printa,b
写出程序运行时单击窗体后,Form1上的输出结果。
四、完善程序题
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"
DimstrSQLAsString
DimADOrsAs[3]Recordset
ADOrs.ActiveConnection=[4]
strSQL="
Select*From学生基本情况Where学号="
+"
'
"
+Text1+"
[5]
If[6]Then
Text2=ADOrs.Fields("
学号"
)
Text3=ADOrs.Fields("
姓名"
Text4=ADOrs.Fields("
籍贯"
MsgBox"
要查询的学号不存在,请重新输入!
"
vbOKOnly,"
信息提示"
Text1="
[7]
PrivateSubCommand2_Click()
UnLoadMe
End
2.使用顺序文件读写方式编写一个简单的记事本应用程序,其运行界面如图3所示。
基本逻辑是:
假设在以C盘的根目录下有一个名为F1.txt的文本文件。
当点击“打开”按钮(Command1)时,程序将F1.Txt文件中的内容显示在文本框(Text1)中,当点击“新建”按钮(Command2)时,清空Text1中的内容;
用户可以在Text1中进行编辑操作,当点击“保存”按钮(Command3)时,将Text1中的内容保存在F1.txt文件中。
当点击“退出”按钮(Command4)时关闭本窗体。
记事本程序运行界面
DimstrtxtAsString
Open"
G:
\VB\aa.Txt"
ForInputAs#1
DoWhile[1]
Input#1,strtxt
Text1=Text1+[2]
[3]
PrivateSubCommand2_Click()
PrivateSubCommand3_Click()
[4]
Write#1,[5]
Close#1
PrivateSubCommand4_Click()
UnloadMe
3.列表框应用程序。
要求从文本框(Text1)中输入姓名,然后按“回车”键,把姓名添加到列表框(List1)中;
当选择列表框中某一项后,按“删除”按钮(Command1),则从列表框中删除该项。
程序运行结果如下图所示。
PrivateSubText1_KeyPress([1])
IfKeyAscii=[2]Then
IfText1<
>
Then
List1.AddItem[3]
请先输入姓名!
IfList1.ListIndex>
=[4]Then
[5]
请先选择一个项目!
五、编写程序题
1.编写一程序,要求单击“开始”按钮(Command1),在列表框(List1)中输出200~400之间偶数,单击清除按钮(Command2),清除文本框中的全部内容。
2.请根据下列描述编写财务部门征收劳务酬金所得税程序,规定如下:
(1)收入在1000元以内,扣税3%;
(2)收入在1000-3000元内,800元以上部分扣税15%,
(3)收入在3000-5000元内,3000元以内按
(2)的方法扣税,3000元以上部分,扣税20%,
(4)当收入达到5000元以上,扣税25%。
程序运行界面如下图所示。
VisualBasic程序设计期末复习一答案
1.B2.C3.A4.D5.A6.B7.C8.A9.D10.A11.C
12.B13.A14.A15.D16.A17.B18.A19.B20.C21.B
22.C23.D24.D
1.工具箱
2.Timer
3.ab
4.600
5.style
6.右上
7.使服务程序处于侦听状态,等待客户访问
8.用于向远程主机发出链接请求
9.UDP
10.逻辑错误
11.SendKeys“{Enter}”
12.数据库引擎
13.随机文件二进制文件
14.ADOrs.Open
15."
(或空字符串)Variant(或变体型)
16.显示变体型(或写成Variant型)
17.三角形
18.1
19.Connection
20.Public
1.63
2.AAAB
3.3429
4.04
5.514
6.46
7.2010
1020
1.
[1]SetADOcn=NewConnection
[2]ADOcn.Open
[3]New
[4]ADOcn
[5]ADOrs.OpenstrSQL
[6NotADOrs.EOF
[7]Text1.SetFocus
2.
[1]NotEOF
(1)
[2]strtxt
[3]Close#1
[4]Open"
ForOutputAs#1
[5]Text1
3.
[1]KeyAsciiAsIntege
[2]13
[3]Text1
[4]0
[5]List1.RemoveItemList1.ListIndex
DimiAsInteger
Fori=200To400
List1.AddItemi
Nexti
List1.Clear
DimxAsInteger,taxAsSingle
x=Val(Text1.Text)
Ifx<
1000Then
tax=1000*0.03
=3000Then
tax=(x-800)*0.15
=5000Then
tax=(x-800)*0.15+(x-3000)*0.05
tax=x*0.25
Text2.Text=tax
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Visual Basic程序设计期末复习一 Basic 程序设计 期末 复习