Basic程序设计期末综合练习题二.docx
《Basic程序设计期末综合练习题二.docx》由会员分享,可在线阅读,更多相关《Basic程序设计期末综合练习题二.docx(17页珍藏版)》请在冰豆网上搜索。
![Basic程序设计期末综合练习题二.docx](https://file1.bdocx.com/fileroot1/2023-2/23/1402ae35-4197-4d3f-8373-1599447a82f9/1402ae35-4197-4d3f-8373-1599447a82f91.gif)
Basic程序设计期末综合练习题二
VisualBasic程序设计期末综合练习题二
一、单项选取题
1.在下列关于VisualBasic论述中,错误是()。
A.采用了事件驱动编程机制B.是面向对象编程语言
C.是可视化程序设计语言D是面向过程程序设计语言.
2.应用程序打包后,其包文献后缀为()。
A..exeB..txt
C..cabD..ocx
3.在新建一种“原则EXE”工程后,不在工具箱中浮现控件是()。
A.列表框B.通用对话框
C.驱动器列表框D.图片框
4.设窗体名称为Form1,则在程序运营过程中,单击窗体时,被执行事件过程名称是()。
A.Form1_Click()B.Form1_DbClick()
C.Form_Click()D.Form_DbClick()
5.对于定期器(Timer)控件,设立其定期与否启动属性是()。
A.IndexB.TagC.EnabledD.Interval
6.在VisualBasic中,工程文献扩展名为()。
A..frmB..vbp
C..clsD..bas
7.有程序代码如下:
Text1.Text="欢迎走进VB世界!
"
则Text1,Text,和"欢迎走进VB世界!
"分别代表()。
A.对象,值,属性B.对象,属性,值
C.对象,办法,属性D.属性,对象,值
8.如下论述中对的是()。
A.窗体Name属性指定窗体名称,用来标记一种窗体
B.窗体Name属性值是显示在窗体标题栏中文本
C.可以在运营期间变化对象Name属性值
D.对象Name属性值可觉得空
9.VB提供了构造化程序设计三种基本构造是()。
A.选取构造、过程构造、顺序构造
B.选取构造、循环构造、顺序构造
C.过程构造、转向构造、递归构造
D.递归构造、选取构造、循环构造
10.在VB中,下列变量名不合法是()。
A.take_1B.takeC.take_1_2D.take-1
11.下列说法中对的是()。
为了保存一种VisuaBasic应用程序,应当
A.只保存窗体文献
B.只保存工程文献
C.分别保存工程文献和原则模块文献
D.分别保存工程文献、窗体文献和原则模块文献
12.拟定一种控件在窗体上位置属性是()。
A.Width或HeightB.Width和Height
C.Top和LeftD.Top或Left
13.拟定一种窗体或控件大小属性是( )
A.Width或Height B.Width和Height
C.Top或Left D.Top和Left
14.当一种工程具有各种窗体时,其中启动窗体是()。
A.第一种添加窗体B.最后一种添加窗体
C.包括控件最多窗体D.在“工程属性”对话框中指定窗体
15.在一种语句行内写多条语句时,语句之间应当用()分隔。
A.逗号B.冒号
C.顿号D.分号
16.要设立命令按钮背景图形,必要设立两个属性是()。
A.Style和PictureB.Style和Icon
C.Caption和PictureD.Value和Icon
17.目录列表框Path属性作用是()。
A.显示当前驱动器或指定驱动器上某目录下文献名
B.只显示当前程径下文献
C.显示根目录下文献名
D.显示当前驱动器或指定驱动器上途径
18.将数据"China"项添加到列表框(List1)中成为第一项应使用语句是()。
A.List1.AddItem0,"China"B.List1.AddItem1,"China"
C.List1.AddItem"China",0D.List1.AddItem"China",1
19.要绘制各种形状图形,需要设立Shape控件()属性。
A、StyleB、Borderstyle
C、FillStyleD、Shape
20.下列可以把当前目录下图形文献pic1.jpg装入图片框Picture1中语句为()。
A.Picture1="pic1.jpg"
B.Picture1=LoadPicture("pic1.jpg")
C.Picture1.Picture=LoadPicture(("pic1.jpg")
D.Picture1.Picture=LoadPicture(("pic1")
21.如果要在窗体代码编辑器”通用”某些定义私有Sub过程,则对的语句是( )。
A.PublicSubB.PrivateSub
C.PublicFunctionD.PrivateFunction
22.不属于VB数据库引擎是()。
A.ODBCB.BDEC.Jet引擎D.OLEDB
23.在VB应用程序中,进行断点设立按键是( )。
A.Ctrl+F9键 B.F9键
C.Ctrl+F8键 D.F8键
24.如果准备读文献,打开顺序文献”text.dat”对的语句是()。
A.open"text.dat"ForwrireAs#1
B.open"text.dat"ForBinaryAs#1
C.open"text.dat"ForInputAs#1
D.open"text.dat"ForRandomAs#1
25.使用ADO对象模型时,使Recordset和Connection对象建立连接属性是()。
A.OpenB.Execute
C.CommandTypeD.ActiveConnection
26.使用ADO对象模型时,使Recordset和Connection对象建立连接属性是()。
A.OpenB.Execute
C.CommandTypeD.ActiveConnection
27.在VB中,一旦数据到达,将一方面触发Winsock控件()。
A.DataArrival事件 B.ConnectionRequest事件
C.DataSend事件 D.GetGet事件
28.Winsock控件LocalPort属性作用是( )
A.仅返回所用断口 B.仅设立所用端口
C.返回或设立所用端口 D.返回或设立IP地址
二、填空题
1.每个应用程序必要有一种惟一文献。
2.窗体文献和类模块文献扩展名分别是和。
3.表达式6+15\2*2Mod2值是。
4.表达式17\2-2^3*5MOD6值是。
5.计时器控件响应事件是。
6.在VisualBasic中,变量默认类型是。
7.为了在运营时把当前程径下图形文献show.jpg装入图片框P1,所使用语句为。
8.设某个程序中要用到一种二维数组,规定数组名为A,类型为整型,第一维下标从0到2,第二维下标从1到3,则相应数组声明语句为。
9.用DimA(-2to3)语句声明二维数组后,数组A元素共有个。
10.VB中参数传递机制有两种,一种是参数,另一种是
参数。
11.控件数组名字由属性指定,而数组中每个元素由属性决定。
12.若窗体左上角坐标为(-200,250),右下角坐标为(300,-150),则X轴正向向,Y轴正向向。
13.窗体、图片框或图像框中图形通过对象属性。
14.在VB中,将Foxpro称为外部数据库,Access称为,SQLServer称为。
15.vb应用程序与数据库进行通信重要机制称为。
16.全局变量必要在模块中定义,所使用核心字为。
17.全局变量是指那些在中有效变量,普通在模块代码编辑器顶部使用声明。
18.Winsock控件重要用来编制或合同网络应用程序。
三、阅读程序题(共25分)
阅读下列程序并写出程序运营成果
1.
PrivateSubCommand1_Click()
DimxAsInteger
StaticsAsInteger
x=Val(InputBox("请输入一种正整数="))
Ifx<5Then
s=s*x
Else
s=s+x
EndIf
Text1.Text="s="&Str(s)
EndSub
程序运营时持续3次单击Command1,且设输入数据为6、5、4时,分别写出文本框Text1值。
2.
PrivateSubForm_Click()
StaticaAsInteger
DimbAsInteger
a=a+3
b=b+4
Text1=a
Text2=b
EndSub
写出程序运营时持续单击三次窗体后,文本框Text1和Text2显示成果。
3.
PrivateSubForm_Click()
DimA(1To3)AsString
DimcAsInteger,jAsInteger
A
(1)="2"
A
(2)="4"
A(3)="6"
c=2
Forj=1To3
c=c+Val(A(j))
Nextj
Printc
EndSub
写出程序运营时单击窗体后,Form1上输出成果。
4.
PrivateSubForm_Click()
n=0
Fori=1To2
Forj=2To4
IfjMod2<>0Then
n=n+1
EndIf
n=n+2
Nextj
Nexti
Printn
EndSub
写出程序运营时单击窗体后,窗体Form1上输出成果。
5.
PrivateSubCommand1_Click()
DimaAsInteger,bAsInteger
a=2:
b=3
Fori=1To3
Forj=1Toi
b=b+j
Nextj
a=a+b
Nexti
Printa
EndSub
写出程序运营时单击命令按钮后,窗体Form1上输出成果。
6.
PrivateSubForm_Click()
DimA(1To4)AsString
DimcAsInteger
DimjAsInteger
A
(1)="4"
A
(2)="6"
A(3)="8"
A(4)="10"
c=1
Forj=1To4
c=c+Val(A(j))
Nextj
Printc
EndSub写出程序运营时单击窗体后,窗体Form1上成果。
7.
SubChange(ByValxAsInteger,ByValyAsInteger)
DimtAsInteger
t=x
x=y
y=t
Printx,y
EndSub
PrivateSubForm_Click()
DimaAsInteger,bAsInteger
a=10:
b=20
Changea,b
Printa,b
EndSub
写出程序运营时单击窗体后,Form1上输出成果。
8.
FunctionF(nAsInteger)AsLong
DimiAsInteger,TempAsLong
Temp=1
Fori=1Ton
Temp=Temp*i
Nexti
F=Temp
EndFunction
PrivateSubForm_Click()
DimkAsInteger,njAsInteger
k=5
nj=F(k)
Printk;"!
=";nj
EndSub
写出程序运营时,单击窗体Form1上输出成果。
四、完善程序题(共10分)
1.已知存在一名为“学生”SQLServer数据库,其中“students”数据表用来存储学生基本状况信息,涉及学号、姓名、籍贯、性别。
请编写一种简朴应用程序,向students表中添加学生记录。
程序基本逻辑是:
当窗体被加载时,程序联接SQLServer数据库;当点击“增长”按钮时,一方面查询学号与否重复,如果不重复则向students表中添加学生记录。
其运营界面如图1所示。
图1
程序如下,请补充完整。
'声明对象变量ADOcn,用于创立与数据库连接
PrivateADOcnAsConnection
PrivateSubForm_Load()
'连接SQLServer数据库
DimstrDBAsString
strDB="Provider=SQLOLEDB;LSF;UserID=sa;Password=;Database=[1]"
IfADOcnIsNothingThen
[2]
[3]
EndIf
EndSub
PrivateSubCommand1_Click()
'增长学生记录
DimstrSQLAsString
DimADOrsAs[4]
[5]=ADOcn
ADOrs.Open“Select学号FromStudentsWhere学号=”+”‘“+Text1+”‘“
[6]Then
MsgBox“你输入学号已存在,不能新增长!
”
Else
StrSQL=”InsertIntostudents(学号,姓名,,籍贯,性别)
StrSQL=strSQL+Values(”+”‘“+text1+”‘,‘“+text2+”‘,’“+text3+”‘,’“+text4+”‘)”
ADOrs.Execute[7]
MsgBox“添加成功,请继续!
”
EndIf
PrivateSubCommand2_Click()
UnloadMe
EndSub
2.
在窗体上建立一种驱动器列表框、目录列表框、文献列表框、图片框、文本框。
规定程序运营后,驱动器列表框Drive1默认驱动器设立为E盘,选取File1中所列图片文献(*.bmp,*.gif和*.jpg),则相应图片显示在图片框Picture1中,文献途径显示在文本框中。
程序运营成果如图2所示。
图2
程序如下,请补充完整。
PrivateSubForm_Load()
Drive1.Drive=[1]
[2]="*.bmp;*.gif;*.jpg"
EndSub
PrivateSubDrive1_change()
[3]=Drive1.Drive
Text1.Text=Drive1.Drive
EndSub
PrivateSubDir1_Change()
[4]
Text1.Text=Dir1.Path
EndSub
PrivateSubFile1_click()
Picture1.[5]=LoadPicture(File1.Path+"\"+File1.FileName)
FileName=File1.Path+"\"+File1.FileName
Text1.Text=[6]
EndSub
五、编写程序题
1.按下述规定,编写一征收所得税程序。
(1)收入在1000元以内,不纳税;
(2)收入超过1000元以上某些,纳税20%
(3)当收入达到5000元或超过时,5000元以上某些,纳税22%。
程序运营界面如图3所示:
图3
答案
一、单项选取题
1.D2.C3.B4.C5.C6.B7.B8.A9.B10.D11.D12.C13.B14.D15.B16.A17.D18.C19.D20.C21.B22.B23.B24.C25.D26.D27.A28.C
二、填空题(每小题2分,共20分)
1..vbp
2..frm.cls
3.7
4.4
5.Timer
6.Variant或变体型
7.P1.Picture=LoadPrcture("show.jpg")
8.DimA(0To2,1To3)AsInteger
9.6
10.引用参数传递(或按址传递)按值传递
11.NameIndex
12.右上
13Picture
14.本地数据库、远程数据库
15.数据库引擎
16.原则Public
17.整个应用程序Public
18.CP/IPUDP
三、阅读程序题
1.
s=6s=11s=44
2.
34
64
94
3.
14
4.
14
5.
26
6.
29
7.
3020
2030
8.
5!
=120
四、完善程序题
1.
[1]学生
[2]SetADOcn=NewConnection
[3]ADOcn.OpenstrDB
[4]NewRecordset
[5]ADOrs.ActiveConnection
[6]IfNotADOrs.EOF
[7]strSQL
2.
[1]"E:
\"
[2]File1.Pattern
[3]Dir1.Path
[4]File1.Path=Dir1.Path
[5]Picture
[6]FileName
五、编写程序题
参照答案:
PrivateSubCommand1_Click()
DimxAsInteger,taxAsSingle
x=Val(Text1.Text)
Ifx<=1000Then
tax=0
ElseIfx<=5000Then
tax=(x-1000)*0.2
Else
tax=(x-5000)*0.22+4000*0.2
EndIf
Label3.Caption=tax
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub