程序设计典型例题解析2Word格式.docx

程序设计典型例题解析2Word格式.docx

《程序设计典型例题解析2Word格式.docx》由会员分享，可在线阅读，更多相关《程序设计典型例题解析2Word格式.docx（15页珍藏版）》请在冰点文库上搜索。

可在该事件

过程中编写代码修改目录列表框的路径，使目录列表框内容随之发生改变。

分析：

在VisualBasic中，每次重新设置驱动器列表框的Drive属性时，都将引发Change事件。

可在Change事件过程中编写代码修改目录列表框的路径，使目录列表框内容随之发生改变。

驱动器列表框的默认名称为Drive1，其Change事件过程的开头为Drive1_Change（）。

结论：

（1）Change

4．目录列表框用来显示当前驱动器下目录结构。

刚建立时显示

（1）的顶层目录和当

前目录，如果要显示其他驱动器上的目录信息，必须改变路径，即重新设置目录列表框的

（2）属性。

在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,）"

后，CurrentX＝。

语句中（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#1

B．Open"

ForInputAs#1

C．Open"

ForBinaryAs#1D．Open"

ForRandomAs#1分析：

以读方式打开顺序文件的语法格式为：

Open<

文件名>

ForInputAs[#]<

文件号>

。

上述选项只有B满足条件。

答案应为B

4.如果准备向随机文件中写入数据，正确的语句是（）

rec

C．Put#1,,recD．Get#1,,

随机文件写操作的语法格式为：

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）,,BC．Line（200,200）-（400,400）,,FD．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的红色圆。

答案应为C9．下面选项中，能绘制填充矩形的语句是（）

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.5B．Circle（1000,1000）,500,RGB（255,0,0）,,0.5C．Circle（1000,1000）,500,RGB（255,0,0）,,,0.5D．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数据库

DimstrDBAsStringstrDB"

Provider=SQLOLEDB;

LSF;

UserID=sa;

Password=;

Database=[1]"

IfADOcnIsNothingThen

SetADOcn=[2]ADOcn.OpenstrDB

EndIf

PrivateSubCommand1_Click（）

增加学生记录

DimstrSQLAsString

DimADOrsAs[3]Recordset

ADOrs.ActiveConnection=ADOcn

StudentsWhere学号=”+”‘“+Text1+

IfNot[4]Then

MsgBox“你输入的学号已存在，不能新增加！

”

Else

StrSQL=”InsertIntostudents（学号,姓名,,籍贯,性别）

StrSQL=strSQL+Values（”+”‘“+text1+”‘,‘“+text2+”“+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同步改变

将当前驱动器显示在文本框中

[3]'

使文件列表框和目录列表框同步改变

Text1.Text=[4]'

将当前目录的路径显示在文本框中EndSub

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]判断文件是否结束