VisualBasic程序设计典型例题解析2Word格式文档下载.docx
《VisualBasic程序设计典型例题解析2Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《VisualBasic程序设计典型例题解析2Word格式文档下载.docx（16页珍藏版）》请在冰点文库上搜索。
在VisualBasic中，目录列表框用来显示当前驱动器下目录结构。
刚建立时显示当前驱动器的顶层目录和当前目录，如果要显示其他驱动器上的目录，必须改变路径，即重新设置目录列表框的Path属性。
（1）当前驱动器
（2）Path
5．对驱动器列表框来说，每次重新设置驱动器列表框的
（1）属性时，将引发Change事件；
对目录列表框来说，当
（2）属性值改变时，将引发Change事件；
对于文件列表框，重新设置的（3）属性，将引发Change事件。
在VisualBasic中，对驱动器列表框来说，每次重新设置驱动器列表框的Drive属性时，将引发Change事件；
对于目录列表框和文件列表框改变路径，即重新设置列表框的Path属性，将引发Change事件。
（1）Drive
（2）Path（3）Path
6．以下程序段简要说明驱动器列表框、目录列表框及文件列表框三者协同工作的情况。
将程序段补充完整。
PrivateSubDrive1_Change（）
（1）
EndSub
PrivateSubDir1_Change（）
（2）
首先设置目录列表路径随驱动器列表路径改变而改变：
每当改变驱动器列表框的Drive属性时，将产生驱动器列表框的Change事件，执行Drive1_Change事件过程，使驱动器列表框和目录列表框同步，即将目录列表框中的目录（Dir1.Path属性）变为该驱动器的目录（Drive1.Drive属性）。
然后，设置文件列表路径随目录列表路径改变而改变：
当目录列表框Path属性的改变时，将产生目录列表框的Change事件，执行Dir1_Change事件过程，使目录列表框和文件列表框同步，即在文件列表框（File1.Path属性）中显示目录驱动器所指目录下的文件信息（Dir1.Path属性）。
这样三个文件系统控件就协同工作了。
（1）Dir1.Path=Drive1.Drive
（2）File1.Path=Dir1.Path
7.为了在运行时把当前路径下的图形文件picturefile.jpg装入图片框Picture1，所使用的语句为
（1）。
可以使用LoadPicture语句，必须先确定图片的位置，在本例中路径为当前路径可以采用默认路径；
也可以在Picture1的Picture属性中直接设置打开文件对话框，在对话框中选择图片进行设置。
Picture1.Picture=LoadPrcture（“picturefile.jpg”）
8.窗体Form1的左上角坐标为（0,600）窗体Form1的右下角坐标为（800,-200）。
X轴的正向向
（1），Y轴的正向向
（2）。
窗体右下角坐标为负值，说明Y轴的正向向上。
（1）右
（2）上
9.执行指令"
Line（200,200,）-Step（500,500,）"
后，CurrentX＝。
分析：
语句中Step（500,500）的意思是相对于当前点（200，200）的坐标，则当前坐标CurrentX＝700。
结论：
答案应为700
10.执行指令"
Line（200,200,）-（500,500,）"
语句中（500,500）即为当前点坐标，CurrentX＝500。
答案应为500
11.要使图像框能够自动调整大小以适应其中的图形，应将图像框属性设置为。
Stretch属性设置为False时，图像框可自动改变大小以适应其中的图形，设置为True时，加载到图像框的图形可自动调整尺寸以适应图像框的大小。
答案应为
（1）Stretch
（2）False
12.ADO模型中一般可通过Connection对象的
（1）方法执行增加、删除、修改操作。
使用ADO模型时，建立Recordset和Connection对象连接的属性是
（2）。
应记住
ExecuteActiveConnection
13.Winsock控件主要用来编制TCP/IP或协议的通讯协议。
UDP
14.VB中设置断点的按键是，逐语句调试的语句是。
答案应为F9F8
15.OnErrorResumeNext语句表示：
当发生错误时，VB程序将忽略引发错误的语句，并。
继续执行下一条语句。
二、选择题
1.（）函数判断文件指针是否到了文件结束标志；
（）函数返回文件的字节数；
（）语句用于设置对文件“锁定”；
（）语句用于设置对文件“解锁”。
A．EOF、LOF、Lock、UnlockB．LOF、EOF、Lock、Unlock
C．EOF、LOF、Unlock、LockD．LOF、EOF、Unlock、Lock
EOF函数判断文件指针是否到了文件结束标志；
LOF函数返回文件的字节数；
Lock语句用于设置对文件“锁定”；
Unlock语句用于设置对文件“解锁”。
答案应选A。
2．顺序文件的读操作通过下列（）语句可以实现。
A．Input#和Read#B．Read#和Get#
C．Get#和Input##D．LineInput#和Input#
Input#语句和LineInput#语句实现顺序文件的对数据的读操作；
随机文件的读操作通过Get语句来实现；
VB中无Read语句。
答案应选D。
3．如果准备读文件，打开顺序文件"
text.dat"
的正确语句是（）
A．Open"
ForWriteAs#1B．Open"
ForInputAs#1
C．Open"
ForBinaryAs#1D．Open"
ForRandomAs#1
以读方式打开顺序文件的语法格式为：
Open<
文件名>
ForInputAs[#]<
文件号>
。
上述选项只有B满足条件。
答案应为B
4.如果准备向随机文件中写入数据，正确的语句是（）
A．Print#1,recB．Write#1,rec
C．Put#1,,recD．Get#1,,rec
随机文件写操作的语法格式为：
Put[#]<
，[记录号]，<
变量名>
上述C选项是正确的。
答案应为C
5.当改变驱动器列表框中的驱动器时，为了使目录列表框中的内容同步跟着改变，应当（）
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
当改变驱动器列表框Drive1中的驱动器时，就会触发channge事件，执行Drive1_Change（）过程,在过程执行时，要使目录列表框同步显示选定的驱动器目录结构，应将刚选定的驱动器目录结构赋给目录列表框（Dir1）的Path属性。
应选C
6.目录列表框Path属性的作用是（）
A．显示当前驱动器或指定驱动器上的目录结构
B．显示当前驱动器或指定驱动器上的某目录下的文件
C．显示根目录下的文件名
D．显示路径下的文件
目录列表框Path属性的作用是显示当前驱动器或指定驱动器上的目录结构。
答案应为A
7.在下列选项中，不能将图像装入图片框和图像框的是（）
A．在界面设计时，通过Picture属性装入
B．在界面设计时，手工在图像框和图片框中绘制图形
C．在界面设计时，利用剪贴板把图像粘贴上
D．在程序运行期间，用LoadPicture函数把图形文件装入
分析：
在设计时，将图像添加到图片框和图像框中有两种方法：
即①使用对象的Picture属性添加图片；
②使用剪贴板，将图形粘贴到对象中。
在程序运行时添加图片通常也有两种方法，①使用LoadPicture函数加载图形文件，②使用Picture属性在对象间相互复制。
在界面设计时和程序运行期间，均不能手工在图像框和图片框中绘制图形。
所以上述选项中，B是错误的。
8.下面错误的语句是（）
A．Line（200,200）-（400,400）,RGB（255,0,0）
B．Line（200,200）-（400,400）,,B
C．Line（200,200）-（400,400）,,F
D．Circle（600,600）,300,RGB（255,0,0）
Line方法可以画直线和矩形，Line方法的语法格式为：
[对象].Line[[Step]（X1,Y1）]-[Step]X2,Y2）][,[Color][,B[F]]。
A选项画一条红色直线。
B选项中的B代表画一个矩形，左上角坐标为（200，200），右下脚坐标为（400，400）。
C选项中的F表示矩形的填充颜色，它必须和B同时存在。
D选项是画一个圆心为（600，600），半径为300的红色圆。
9．下面选项中，能绘制填充矩形的语句是（）
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）
Line方法语句中可以省略中间参数，但逗号必须保留。
A选项中的B之前少一个逗号，只能画一条直线。
B选项语法正确，能画一个默认颜色为黑色的填充矩形。
C选项中BF之前少一个逗号，只能画一条直线。
D选项画一条直线。
10.下面选项中，能绘制一条水平直线的选项是（）
A．Line（1000,2000）-（1000,2000）
B．Line（1000,2000）-（1000,3000）
C．Line（1000,2000）-（2000,2000）
D．Line（1000,2000）-（2000,3000）
要绘制一条水平直线，直线两个端点的Y坐标应该相同，只有C满足这个条件。
11.下面选项中，能绘制椭圆的语句是（）
A．Circle（1000,1000）,500,RGB（255,0,0）,0.5
B．Circle（1000,1000）,500,RGB（255,0,0）,,0.5
C．Circle（1000,1000）,500,RGB（255,0,0）,,,0.5
D．Circle（1000,1000）,500,RGB（255,0,0）,,,,0.5
Circle方法的语法格式为：
[对象].Circle[Step]（X,Y）,radius[,[color][,[start][,end][,aspet]]
语句中除圆心坐标和半径外，其它参数均可省略，但其中的逗号必须保留。
上述只有C选项满足题目要求，故选C。
12.图像框（Image）和图片框（Picture）在使用时有所不同，以下叙述中正确的是（）
A．图片框比图像框占内存少
B．图像框内还可包括其它控件
C．图片框有Stretch属性而图像框没有
D．图像框有Stretch属性而图片框没有
图像框比图片框占内存少，图片框可作为其它控件的容器而图像框不能，图片框有Autosize属性而图像框没有,图像框有Stretch属性而图片框没有。
答案应为D
13.ADOrs为Recordset对象，从Tabel中获取所有记录的语句是（）
A．ADOrs.New"
Select*FromTabel"
B．ADOrs.Open"
C．ADOrs.Execute"
D．ADOrs.Select"
Execute为执行的意思，语句ADOrs.Execute"
可以从Tabel中获取所有记录。
14.要发送数据，通常使用Winsock控件的（ ）
A．SendData方法B．Listen方法
C．Accept方法D．GetData方法
SendData方法用于发送数据。
Listen方法使服务程序处于侦听状态，等待客户访问。
Accept方法用于接受一个连接请求，其中RequestID是客户机发来的请求号。
GetData方法用来取得接收到的数据。
15.VB程序中通常不会产生错误提示的（ ）。
A．编译错误 B．实时错误
C．运行时错误 D．逻辑错误
编译错误多数是因为不正确的代码产生的。
实时错误也称运行时错误，是指应用程序运行期间，一条语句试图执行一条不可能执行的操作而产生的错误。
逻辑错误是指程序的运行结果和程序员的设想有出入时产生的错误。
这类错误并不直接导致程序在编译期间和运行期间出现错误，较难发现，逻辑错误不产生错误提示。
三、完善程序题
1．已知存在一名为“学生”的SQLServer数据库，其中的“students”数据表用来存储学生的基本情况信息，包括学号、姓名、籍贯、性别。
请编写一个简单的应用程序，向students表中添加学生记录。
程序的基本逻辑是：
当窗体被加载时，程序联接SQLServer数据库；
当点击“增加”按钮时，首先查询学号是否重复，如果不重复则向students表中添加学生记录。
其运行界面如图1所示。
图1
程序如下，请补充完整。
'
声明对象变量ADOcn，用于创建与数据库的连接
PrivateADOcnAsConnection
PrivateSubForm_Load（）
连接SQLServer数据库
DimstrDBAsString
strDB="
Provider=SQLOLEDB;
LSF;
UserID=sa;
Password=;
Database=[1]"
IfADOcnIsNothingThen
SetADOcn=[2]
ADOcn.OpenstrDB
EndIf
PrivateSubCommand1_Click（）
增加学生记录
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+”‘）”
ADOcn.Execute[5]
MsgBox“添加成功，请继续！
PrivateSubCommand2_Click（）
UnloadMe
数据库应用程序的大致框架是
（1）联接后台数据库
（2）联接数据库中的某张表
（3）对这张表进行查询（Select）、插入（Insert）、修改（Update）、删除（Delete）操作。
据此，根据题意应首先在窗体的Load事件中编写连接后台数据库的事件过程。
在Command1_Click（）事件过程中，首先连接数据库中的“students”数据表，然后进行查询，查询结果用MsgBox给出提示信息，再对“students”数据表进行插入（Insert）操作。
答案：
[1]学生；
[2]NewConnection
[3]New；
[4]ADOrs.EOF；
[5]strSQL；
2．在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。
要求程序运行后，驱动器列表框Drive1的默认驱动器设置为D盘，选择File1中所列的图片文件（*.bmp,*.gif和*.jpg）,则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。
程序运行结果如图2所示。
图2
Drive1.Drive=[1]'
将当前驱动器设置为D
File1.Pattern="
*.bmp;
*.gif;
*.jpg"
'
设置文件列表框中可以显示的文件类型
PrivateSubDrive1_change（）
Dir1.Path=Drive1.Drive'
使Dir1和Drive1同步改变
[2]'
将当前驱动器显示在文本框中
[3]'
使文件列表框和目录列表框同步改变
Text1.Text=[4]'
将当前目录的路径显示在文本框中
PrivateSubFile1_click（）
Picture1.Picture=LoadPicture（File1.Path+"
\"
+File1.FileName）
FileName=File1.Path+"
+File1.FileName
[5]'
将文件名显示在文本框中
EndSub
要在图片框中显示图形文件，首先要使三大文件系统控件同步起来，即文件列表框中显示的是指定驱动器的指定目录下的文件列表，可在驱动器列表框的Change事件中设置Dir1.Path=Drive1.Drive，在目录列表框的Chang1事件中设置File1.Path=Dir1.Path。
用LoadPicture函数把图形文件装入图片框中。
通过赋值语句将文件的路径显示在文本框中。
[1]"
D:
"
[2]Text1.Text=Drive1.Drive
[3]File1.Path=Dir1.Path
[4]Dir1.Path
[5]Text1.Text=FileName
3．使用顺序文件读写方式编写一个简单的记事本应用程序，其运行界面如图3所示。
：
假设在以D盘的根目录下有一个名为W1.txt的文本文件，程序运行时，当点击“打开”按钮（Command1）时，程序将W1.Txt文件中的内容显示在文本框（Text1）中，当点击“保存”按钮（Command2）时，将Text1中的内容保存在W1.txt文件中。
当点击“退出”按钮（Command3）时关闭本窗体。
图3记事本程序运行界面
DimstrtxtAsString
Text1="
Open[1]'
以读方式打开文件
DoWhile[2]'
判断文件是否结束
Input#1,strtxt'
从文件中读取数据并将其赋值给变量strtxt
Text1=Text1+[3]'
将内容显示在文本框中
Loop
[4]'
关闭文件
PrivateSubCommand3_Click（）
Open"
\W2.Txt"
ForOutputAs#1'
以写方式打开文件
Write#1,[5]'
在文本框中写入内容
Close#1
PrivateSubCommand4_Click（）
UnloadMe
[2]NotEOF
（1）
[3]strtxt
[4]Close#1
[5]Text1
[文档可能无法思考全面，请浏览后下载，另外祝您生活愉快，工作顺利，万事如意!
]
升级会员 