程序设计典型例题解析(2)

典型例题解析（2）

一、填空题

1．以顺序输入模式打开“c:\source1.txt”文件的命令是（1）；以输出方式打开“c:\source2.txt”文件的命令是（2）。

分析：Print # 语句用于将把数据写入文件中。Print语句格式为：

Open 文件名 [For模式] As [#] 文件号

“For 模式”为指定打开文件的模式是数据的输入模式还是输出模式。

结论：答案应为：（1）Open "c:\source1.txt" For Input As #1

（2）Open "c:\source2.txt" For Output As #2

2.在Visual Basic中，文件系统控件包括（1）、（2）和文件列表框（）。三者协同操作可以访问任意位置的目录和文件，可以进行文件系统的人机交互管理。

分析：在Visual Basic中，文件系统控件包括驱动器列表框（DriveListBox）、目录列表框（DirListBox）和文件列表框（）。驱动器列表框可以选择或设置一个驱动器，目录列表框可以查找或设置指定驱动器中的目录，文件列表框可以查找指定驱动器指定目录中文件信息，三者协同操作可以访问任意位置的目录和文件，可以进行文件系统的人机交互管理。

结论：答案应为：（1）驱动器列表框（DriveListBox）（2）目录列表框（DirListBox）

3．每次重新设置驱动器列表框的Drive属性时，都将引发（1）事件。可在该事件过程中编写代码修改目录列表框的路径，使目录列表框内容随之发生改变。

分析：在Visual Basic中，每次重新设置驱动器列表框的Drive属性时，都将引发Change 事件。可在Change事件过程中编写代码修改目录列表框的路径，使目录列表框内容随之发生改变。驱动器列表框的默认名称为Drive1，其Change事件过程的开头为Drive1_Change()。

结论：答案应为：（1）Change

4．目录列表框用来显示当前驱动器下目录结构。刚建立时显示（1）的顶层目录和当前目录，如果要显示其他驱动器上的目录信息，必须改变路径，即重新设置目录列表框的（2）属性。

分析：在Visual Basic中，目录列表框用来显示当前驱动器下目录结构。刚建立时显示当前驱动器的顶层目录和当前目录，如果要显示其他驱动器上的目录，必须改变路径，即重新设置目录列表框的Path属性。

结论：答案应为：（1）当前驱动器（2）Path

5．对驱动器列表框来说，每次重新设置驱动器列表框的（1）属性时，将引发Change 事件；对目录列表框来说，当（2）属性值改变时，将引发Change事件；对于文件列表框，重新设置的（3）属性，将引发Change事件。

分析：在Visual Basic中，对驱动器列表框来说，每次重新设置驱动器列表框的Drive属性时，将引发Change事件；对于目录列表框和文件列表框改变路径，即重新设置列表框的Path属性，将引发Change事件。

结论：答案应为：（1）Drive（2）Path（3）Path

6．以下程序段简要说明驱动器列表框、目录列表框及文件列表框三者协同工作的情况。将程序段补充完整。

Private Sub Drive1_Change()

（1）

End Sub

Private Sub Dir1_Change()

（2）

End Sub

分析：首先设置目录列表路径随驱动器列表路径改变而改变：每当改变驱动器列表框的Drive属性时，将产生驱动器列表框的Change事件，执行Drive1_Change事件过程，使驱动器列表框和目录列表框同步，即将目录列表框中的目录（Dir1.Path属性）变为该驱动器的目录（Drive1.Drive属性）。然后，设置文件列表路径随目录列表路径改变而改变：当目录列表框Path属性的改变时，将产生目录列表框的Change事件，执行Dir1_Change事件过程，使目录列表框和文件列表框同步，即在文件列表框（属性）中显示目录驱动器所指目录下的文件信息（Dir1.Path属性）。这样三个文件系统控件就协同工作了。

结论：答案应为：（1）Dir1.Path=Drive1.Drive（2）

7.为了在运行时把当前路径下的图形文件pictureg装入图片框Picture1，所使用的语句为（1）。

分析：可以使用LoadPicture语句，必须先确定图片的位置，在本例中路径为当前路径可以采用默认路径；也可以在Picture1的Picture属性中直接设置打开文件对话框，在对话框中选择图片进行设置。

结论：答案应为：Picture1. Picture = LoadPrcture(“pic ture”)

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）。