Basic程序设计期末综合练习题二Word文档格式.docx
《Basic程序设计期末综合练习题二Word文档格式.docx》由会员分享，可在线阅读，更多相关《Basic程序设计期末综合练习题二Word文档格式.docx（17页珍藏版）》请在冰点文库上搜索。
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,"
B．List1.AddItem1,"
C．List1.AddItem"
0D．List1.AddItem"
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（（"
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"
ForBinaryAs#1
C．open"
ForInputAs#1
D．open"
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
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
写出程序运行时连续单击三次窗体后，文本框Text1和Text2显示结果。
3.
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.
n=0
Fori=1To2
Forj=2To4
IfjMod2<
>
0Then
n=n+1
n=n+2
Nextj
Nexti
Printn
写出程序运行时单击窗体后，窗体Form1上的输出结果。
5.
DimaAsInteger,bAsInteger
a=2:
b=3
Fori=1To3
Forj=1Toi
b=b+j
a=a+b
Printa
写出程序运行时单击命令按钮后，窗体Form1上的输出结果。
6.
DimA（1To4）AsString
DimcAsInteger
DimjAsInteger
8"
A（4）="
10"
c=1
Forj=1To4
EndSub写出程序运行时单击窗体后，窗体Form1上的结果。
7.
SubChange（ByValxAsInteger,ByValyAsInteger）
DimtAsInteger
t=x
x=y
y=t
Printx,y
a=10:
b=20
Changea,b
Printa,b
8.
FunctionF（nAsInteger）AsLong
DimiAsInteger,TempAsLong
Temp=1
Fori=1Ton
Temp=Temp*i
F=Temp
EndFunction
DimkAsInteger,njAsInteger
k=5
nj=F（k）
Printk;
"
！
="
;
nj
写出程序运行时，单击窗体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
增加学生记录
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“添加成功，请继续！
PrivateSubCommand2_Click（）
UnloadMe
2．
在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。
要求程序运行后，驱动器列表框Drive1的默认驱动器设置为E盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。
程序运行结果如图2所示。
图2
Drive1.Drive=[1]
[2]="
*.bmp;
*.gif;
*.jpg"
PrivateSubDrive1_change（）
[3]=Drive1.Drive
Text1.Text=Drive1.Drive
PrivateSubDir1_Change（）
[4]
Text1.Text=Dir1.Path
PrivateSubFile1_click（）
Picture1.[5]=LoadPicture（File1.Path+"
\"
+File1.FileName）
FileName=File1.Path+"
+File1.FileName
Text1.Text=[6]
五、编写程序题
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.
5．
26
6．
29
7．
3020
2030
8．
5！
=120
四、完善程序题
[1]学生
[2]SetADOcn=NewConnection
[3]ADOcn.OpenstrDB
[4]NewRecordset
[5]ADOrs.ActiveConnection
[6]IfNotADOrs.EOF
[7]strSQL
[1]"
E:
[2]File1.Pattern
[3]Dir1.Path
[4]File1.Path=Dir1.Path
[5]Picture
[6]FileName
参考答案：
DimxAsInteger,taxAsSingle
x=Val（Text1.Text）
=1000Then
tax=0
ElseIfx<
=5000Then
tax=（x-1000）*0.2
tax=（x-5000）*0.22+4000*0.2
Label3.Caption=tax
UnloadMe
升级会员 