Visual Basic程序设计复习要点及练习Word文档下载推荐.docx
《Visual Basic程序设计复习要点及练习Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《Visual Basic程序设计复习要点及练习Word文档下载推荐.docx（20页珍藏版）》请在冰豆网上搜索。
A、6B、5C、12D、9
11．在VisualBasic中，默认的数据类型是（）
A．IntegerB．DoubleC．CurrencyD．Variant
12．当Winsock控件处于关闭状态时，其State属性的值是（ ）
A．1 B．0
C．2 D．3
13．执行指令”Line（200,200）-step（500,500）”后，CurrentX=（）
A．500 B．200
C．300 D．700
14．不属于VB数据库引擎的是（ ）
A．ODBC B．Jet引擎
C．BDE D．OLEDB
15．全局变量必须在（）中定义
A、标准模块B、窗体模块
C、类模块 D、任意模块
16．改变驱动器列表框的Drive属性值，将激活（ ）事件。
A．ChangeB．Scoll
C．KeyDownD．KeyUp
17．如果将文本框的（）属性设置为True，则运行时不能对文本框中的内容进行编辑。
A．LockedB．MultiLineC．TabStopD．Visible
18．数学式子Sin25°
写成VB表达式是（）。
A．Sin25B．Sin（25）C．SIN（25°
）D．Sin（25*3.14/180）
19．下列变量名中合法的是（）
A．IFB．7ABC．A[B]7D．AB_7
20.要退出For…Next循环，应使用的语句是（）。
A．ExitB．ExitForC．ContinueD．StopLoop
21.在下列选项中，不能将图像装入图片框和图像框的是（）
A．在界面设计时，通过Picture属性装入
B．在界面设计时，手工在图像框和图片框中绘制图形
C．在界面设计时，利用剪贴板把图像粘贴上
D．在程序运行期间，用LoadPicture函数把图形文件装入
22．下面选项中，能绘制填充矩形的语句是（）
A．Line（200,200）-（500,500）,B
B．Line（200,200）-（500,500）,,BF
C．Line（200,200）-（500,500）,BF
D．Line（200,200）-（500,500）
23.ADOrs为Recordset对象，从Tabel中获取所有记录的语句是（）
A．ADOrs.New"
Select*FromTabel"
B．ADOrs.Open"
C．ADOrs.Execute"
D．ADOrs.Select"
24.当改变驱动器列表框中的驱动器时，为了使目录列表框中的内容同步跟着改变，应当（）
A．在Dir1_Change（）事件中加入代码Dir1.Path=Drive1.Drive
B．在Dir1_Channge（）事件中加入代码Drive1.Drive=Dir1.Path
C．在Dirve1_Channge（）事件中加入代码Dir1.Path=Drive1.Drive
D．在Dirve1_Channge（）事件中加入代码Drive1.Drive=Dir1.Path
25.VB程序中通常不会产生错误提示的（ ）。
A．编译错误 B．实时错误
C．运行时错误 D．逻辑错误
二、填空题（每空1分）
1．数学表达式
写成等价的VisualBasic表达式为。
2．删除在C盘TEMP目录下所有以tmp为后缀的文件的语句为。
3．VisualBasic程序开发有三种模式，即模式、模式和模式。
4．执行指令Line（200,300）-（400,500）后，CurrentX=。
设CurrentX=50,CurrentY=100，执行指令“Line（100,20）-Step（300,500）”后，CurrentY=。
5．ADO数据模型中一般可通过Connection对象的方法对数据库中的基本表进行增加、删除、修改等不返回结果集的操作。
6．已知a=3,b=4,c=5,表达式a.>
bandNotc>
aOrc>
bAndc<
a+b的值是。
7．为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picture1，所使用的语句为。
8．设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从0到5，第二维下标从-2到5，则相应的数组声明语句为。
9．VisualBasic一般用4种类型的文件保存，分别是扩展名为的窗体文件，扩展名为的标准模块文件，扩展名为的类模块文件和扩展名为
的工程文件。
10．将图片框PictureBox的AutoSize属性设置成时，图片框能自动调整大小，以适应其中的图片。
11．若窗体Form1左上角坐标为（0，600），右下角的坐标为（800，-200）。
则X轴的正向向，Y轴的正向向。
12．Left（“abcd”,2）函数的返回值是;
Right（“abcd”,2）函数的返回值是。
13．Vb应用程序与数据库进行通信的主要机制称为。
14．Winsock控件主要用来编制或协议的通话程序。
15．假设ADOcn为一个Connection对象，那么在VB程序中声明ADOcn的语句是
。
16．在VB中，将Foxpro称为，Access称为，SQLServer称为。
17．常用的VB网络编程控件主要有、、三种。
18．以（600,600）为圆心，以800为半径，用ForeColor颜色绘制一个圆形，其实现的代码是。
19．以下程序段简要说明驱动器列表框、目录列表框及文件列表框三者协同工作的情况。
将程序段补充完整。
PrivateSubDrive1_Change（）
EndSub
PrivateSubDir1_Change（）
20.在VisualBasic程序中实现复制文件”d:
\text.doc”到e:
盘根目录下的语句为
。
三、阅读程序题
阅读下列程序并写出程序运行结果
1．
PrivateSubCommand1_Click（）
x=0
DoWhilex<
20
x=（x+1）*（x+3）
n=n+1
Loop
Text1.Text=Str（n）
Text2.Text=Str（x）
Text3.Text=Val（Text1.Text）+Val（Text2.Text）
文件框Text3的结果是：
2.PrivateSubCommand1_Click（）
DimxAsInteger
StaticsAsInteger
x=Val（InputBox（"
请输入一个正整数="
））
Ifx<
5Then
s=s*x
Else
s=s+x
EndIf
Text1.Text="
s="
&
Str（s）
程序运行时连续3次单击Command1，且设输入的数据为6、5、4时，分别写出文本框Text1的值。
3．
PrivateSubForm_Click（）
DimA（1To3）AsString
DimcAsInteger,jAsInteger
A
（1）=“3”
A
（2）=“6”
A（3）=“9”
c=0
Forj=1to3
c=c+Val（A（j））
Nextj
Printc
EndSub
写出程序运行时单击窗体后，窗体Form1上的结果：
4．
PrivateSubCommand1_Click（）
DimA（2To7）AsInteger
DimbAsInteger
Forb=2To7
A（b）=b
Nextb
Text1.Text=A（b-2）
程序运行后，单击命令按纽文本框Text1的结果是：
5．
Subtest（iAsInteger）
i=i+2
DimxAsInteger
x=6
Print"
x="
;
x
Calltest（x）
6.
a=1:
b=1
A="
a;
"
B="
b
Callmult（a）
PrivateSubmult（x）
x=3+x
b=4+b
7.
DimiAsInteger,aAsInteger
k=0
Fori=1To6
Ifi>
3Then
a=a+5
a=a+2
Nexti
Printi,a
写出程序运行时单击窗体后，Form1上的输出结果。
8.
SubChange（ByValxAsInteger,ByValyAsInteger）
DimtAsInteger
t=x
x=y
y=t
Printx,y
Endsub
DimaAsInteger,bAsInteger
a=3:
b=4
Changea,b
Printa,b
写出程序运行时单击窗体后，Form1上的输出结果
四、完善程序题
1．列表框应用程序。
要求从文本框中输入课程名称，然后按“添加”按钮，把姓名添加到列表框中；
当选择列表框中某一项后，按“删除”按钮，则从列表框中删除该项；
当选择列表框中某一项后，按“修改”按钮，把列表框中选取的项送往文本框且“修改”按钮变为“修改确认”。
在文本框的内容修改好后，按“修改确认”按钮，再把文本框中修改后的信息送到列表框且“修改确认”按钮变为“修改”。
程序运行结果如图1所示。
图1
程序如下，请补充完整。
PrivateSubForm_Load（）
List1.AddItem"
北京-上海"
北京-广州"
北京-四川"
北京-西安"
北京-哈尔滨"
北京-沈阳"
北京-长春"
IfText1.Text<
>
"
Then
[1]'
将文本框中的内容加到列表框中
[2]
MsgBox"
请在文本框中输入信息！
PrivateSubCommand2_Click（）
[3]'
删除选定的项目
PrivateSubCommand3_Click（）
IfCommand3.Caption=[4]Then
Text1.Text=[5]
Text1.SetFocus
Command1.Enabled=False
Command2.Enabled=[6]
Command3.Caption="
修改确认"
List1.List（List1.ListIndex）=Text1.Text
Command1.Enabled=True
Command2.Enabled=True
Text1.Text=[7]
修改"
2．在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。
要求程序运行后，驱动器列表框Drive1的默认驱动器设置为D盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。
程序运行结果如图2所示。
图2
程序代码如下，请补充完整
Drive1.Drive=[1]
File1.Pattern="
*.bmp;
*.gif;
*.jpg"
PrivateSubDrive1_change（）
Dir1.Path=[2]
Text1.Text=Drive1.Drive
[3]
Text1.Text=[4]
PrivateSubFile1_click（）
Picture1.[5]=LoadPicture（File1.Path+"
\"
+File1.FileName）
FileName=File1.Path+"
+File1.FileName
Text1.Text=FileName
3．使用顺序文件读写方式编写一个简单的记事本应用程序，其运行界面如图3所示。
基本逻辑是：
假设在以D盘的根目录下有一个名为exam.txt的文本文件。
当点击“打开”按钮（Command1）时，程序将exam.Txt文件中的内容显示在文本框（Text1）中，当点击“新建”按钮（Command2）时，清空Text1中的内容；
用户可以在Text1中进行编辑操作，当点击“保存”按钮（Command3）时，将Text1中的内容保存在exam.txt文件中。
当点击“退出”按钮（Command4）时关闭本窗体。
图3
DimAAsString
Text1="
Open[1]
DoWhileNotEOF
（1）
Input#1,A
Text1=Text1+[2]
[4]
Open"
C:
\F1.Txt"
ForOutputAs#1
[5]
Close#1
PrivateSubCommand4_Click（）
UnloadMe
4．已知存在一名为“学生”的SQLServer数据库，其中的“students”数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。
请编写一个简单的应用程序，向students表中添加学生记录。
程序的基本逻辑是：
当窗体被加载时，程序联接SQLServer数据库；
当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向students表中添加学生记录。
其运行界面如图4所示。
图4
'
声明对象变量ADOcn，用于创建与数据库的连接
PrivateADOcnAsConnection
连接SQLServer数据库
DimstrDBAsString
strDB="
Provider=SQLOLEDB;
LSF;
UserID=sa;
Password=;
Database=[1]"
IfADOcnIsNothingThen
SetADOcn=[2]
ADOcn.OpenstrDB
EndIf
增加学生记录
DimstrSQLAsString
DimADOrsAs[3]Recordset
ADOrs.ActiveConnection=ADOcn
ADOrs.Open“Select学号FromStudentsWhere学号=”+”‘“+Text1+”‘“
IfNot[4]Then
MsgBox“你输入的学号已存在，不能新增加！
”
Else
StrSQL=”InsertIntostudents（学号,姓名,,籍贯,性别）
StrSQL=strSQL+Values（”+”‘“+text1+”‘,‘“+text2+”‘,’“+text3+”‘,’“+text4+”‘）”
ADOrs.Execute[5]
MsgBox“添加成功，请继续！
UnloadMe
5．创建一个绘图程序。
当程序运行时，单击“绘图“按钮，在窗体的Picture控件上画出[-，]即[-3.14,3.14]区间的余弦曲线。
要求将图片框的坐标系定义为左上角为（-4，2），右下角为（4，-2），并在图片框中画出坐标的x轴和y轴。
程序运行界面如图5所示。
图5
[1]'
定义窗体坐标
Picture1.Line（-4,0）-（4,0）'
画x轴
[2]'
画y轴
Picture1.CurrentX=0.2
Picture1.CurrentY=-0.1
Picture1.Print"
0"
'
标记原点
Picture1.CurrentX=-3.2
Picture1.Print[3]'
标记“-π”
Picture1.CurrentX=3.3
π"
Picture1.CurrentY=0.9
1"
标记“1”
Picture1.CurrentY=-0.8
-1"
标记“-1”
Fori=[4]
[5]
End
五、编写程序题
1．请根据下列描述编写购物优惠程序。
某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物
（1）在100元以上者，按九五折优惠；
（2）在200元以上者，按九折优惠；
在窗体上添加两个文本框和一个命令按钮，要求在Text1中输入购物商品总金额，单击命令按钮，在Text2中输出优惠价。
程序运行界面如图6所示。
图6
6．窗体的左上角坐标（－8，6），右下角坐标为（8，－6）。
以厘米为单位，以坐标原点为圆心，以窗体宽度与高度中最小值的1/3为半径画圆和椭圆，程序运行界面如图2所示。
图2
答案
一、单项选择题
1.C2.C3.C4.B5.C6.B7.D8.B9.B10.C11.D12．B13.D14.C15.A16.A17.A18.D19.D20.B
21．B22．B23．C24.C25.D
1．10^（1/2）*cos（50*3.14/180），或者Sqr（10）*cos（50*3.14/180）
2.Kill"
\TEMP\*.tmp"
3.设计运行中断
4.400520
5．Execute
6．True
7．Picture1.Picture=LoadPrcture（"
picturefile.jpg"
）
8．DimA（0To5,-2To5）AsString
9．.frm.bas.cls.vbp
10．Ture
11．右上
12．abcd
13.数据引擎
14．TCP/IPUDP
15．DimADOcnAsConnection
16．外部
升级会员 