VisualBasic程序设计典型例题解析（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）和文件列表框（FileListBox）。三者协同操作可以访问任意位置的目录和文件，可以进行文件系统的人机交互管理。
分析：在Visual Basic中，文件系统控件包括驱动器列表框（DriveListBox）、目录列表框（DirListBox）和文件列表框（FileListBox）。驱动器列表框可以选择或设置一个驱动器，目录列表框可以查找或设置指定驱动器中的目录，文件列表框可以查找指定驱动器指定目录中文件信息，三者协同操作可以访问任意位置的目录和文件，可以进行文件系统的人机交互管理。
结论：答案应为：（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事件过程，使目录列表框和文件列表框同步，即在文件列表框（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.要使图像框能够自动调整大小以适应其中的图形，应将图像框属性设置为。
