期末复习

实战练习

Visual Basic编程与应用作业4答案返回

1．什么是多文挡界面？（MDI）
   解答：多文挡界面（Mu1tiple Document Interface）是指在一个父窗口下面可以同时打开多个子窗口。子窗口归属于父窗口，如果父窗口关闭，则所有子窗口全部关闭。
2．什么是文件？
解答：所谓文件是指存放在外部存储介质上的数据和程序等。
3．文件管理系统有什么作用？
解答：为了方便用户存取，在现代的计算机系统中，都包含有文件管理系统。用户可以对文件进行各种各样的处理和操作，如选择、打开和删除等。
4．文件系统有哪些控件？
解答：在VB6.0中包括四个文件类控件，它们分别是DriveListSox控件、DirListBox控件、FileListBox控件和CommDialog控件。
5．磁盘驱动器列表发生变动后，如何通知目录列表？
解答：
Private Sub Drive1_Change（）
Dir1.Path = Drive1.Drive   '设置DirListBox控件的路径与DriveListBox控件同步。
End Sub
6．目录列表发生变动后，如何通知文件列表？
解答：
Private Sub Dir1_Change（）
      File1.Path = Dir1.Path
End Sub
7．文件按照其数据存放的方式，分为几种类型？
解答：按照文件的存取方式及其组成结构可以分为两种类型：顺序文件和随机文件。
8．如何打开顺序文件？
解答：打开顺序文件的语法结构如下：
Open pathname For mode [Access access ] [lock] As [#] filenumber [Len = reclength]
Open语句的语法参数及其说明如下所示：
    参数                                         说明
Pathname        指定文件路径和文件名
Mode           指定文件方式，有Append，Binary，Input,Output或Random方式。
Access          说明打开的文件可以进行的操作，有Read，Write或Read Write操作
Lock            说明其它进程能够对打开的文件进行的操作，有Shared，Lock Read，Lock                                           Write和Lock Read Write操作。
Filenumber      一个有效的文件号，范围在1到511之间
Reclength       小于或等于32 767（字节）的一个数，对于用随机访问方式打开的文件，
               该值就是记录长度，对于顺序文件，该值就是缓冲字符数。
9．如何关闭顺序文件？
解答：Close < 文件号1 > [，< 文件号2 > …]
10．如何向磁盘中读写数据？
解答：从顺序文件中读取数据的语法结构如下：
Input # filenumber,varlist
Input # 语句的语法参数及其说明如下：
Filenumber      有效的文件号
Varlist          用逗号分界的变量表，将文件中读出的值分配给这些变量。
向顺序文件中写入数据的语法结构如下：
Write # filenumber ，[output1ist]
Write # 语句的语法具有以下几个部分，它的参数及说明如下：
Filenumber    一个有效的文件号
Outputlist     要写入文件的表达式，用逗号将这些表达式分界。
11．讨论一下PathName属性。
解答：pathname为所要执行的应用程序的名称及其路径和必要的参数。
12．顺序文件、随机文件和二进制文件各有什么特点和用途？
解答：所谓顺序文件，通常指的是普通的文本文件，文件中的字符包括文本字符及控制字符，如“，”，Chr（14）”，换行符“GR，LF”，“Chr（13）”，“Chr（10）”等。
由于这类文件的信息是按照顺序从头到尾按顺序排列，而且只提供第一条记录的存储位置，所以对其中的数据信息进行处理是相当困难的。
随机文件由记录组成，能够随机存取其相同长度的数据记录，每一数据记录内可以设计各种栏位以容纳不同的数据。此种文件数据是以二进制的位的形式保存在磁盘上。随机文件比顺序文件占用内存多。
二进制文件的数据是以二进制格式保存的,能用来存储任何数据。这种文件的灵活性最大，但程序的工作量大。二进制访问能够提供对文件的完全控制，因为文件中的字节可以代表任何东西。
    二、程序填空题
本题要求实现如下窗体中的功能，窗体中有一组文件系统控件，分别是驱动器列表框drive1，目录列表框dir1，和文件列表框file1，在它们下面有一个图片框pic1，右边是一个命令按钮comd1和两个文本框text1和text2，要求选择一个位图文件（JPG）即单击文件列表框（file1）中的某个文件时，将该位图文件显示在图片框中，当按命令按钮时，将该位图的实际尺寸（高/宽）以像素点为单位显示在文本框内。

解答：
Option Explicit
Private Sub Form_Load()
     File1.Pattern = "*. jpg"
End Sub
Private Sub Dir1_Change()
     File1.Path = Dir1.Path
End Sub
   Private Sub Drive1_change()
     Dir1.Path = Drive1.Drive
   End Sub
   Private Sub File1_click()
     Dim fn As String
        If Len(Dir1.Path) = 3 Then
            fn = Dir1.Path + File1.FileNane
      Else
            fn = Dir1.Path & "\" & File1.FileName
        End If
        Pic1.AutoSize = True
        Pic1.ScaleMode = vbPixels
        Pic1.Picture = LoadPicture(fn)
   End Sub
   Private Sub Comd1_Click()
     Text1.Text = Pic1.ScaleWidth
     Text2.Text = Pic1.ScaleHeight
     End Sub