VisualBasic编程与应用作业4答案

会计考友

1．什么是多文挡界面？（MDI）
2 \* g. x, R1 w( P$ e. o* D0 V   解答：多文挡界面（Mu1tiple Document Interface）是指在一个父窗口下面可以同时打开多个子窗口。子窗口归属于父窗口，如果父窗口关闭，则所有子窗口全部关闭。
6 l. f+ ~/ m, E: g: ^2．什么是文件？
  解答：所谓文件是指存放在外部存储介质上的数据和程序等。
2 F0 R6 }; Y% N3．文件管理系统有什么作用？
  ~6 K( i9 t0 @+ F  解答：为了方便用户存取，在现代的计算机系统中，都包含有文件管理系统。用户可以对文件进行各种各样的处理和操作，如选择、打开和删除等。
0 b4 `  o) g* f  b( N+ E  |1 Z4．文件系统有哪些控件？
8 h' p$ Y* H0 E) T; H0 L, Z3 _3 V1 |  解答：在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．文件按照其数据存放的方式，分为几种类型？
3 ]' Q0 n0 m) A- |1 i$ F  g  解答：按照文件的存取方式及其组成结构可以分为两种类型：顺序文件和随机文件。
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操作。
; _* b/ e7 v8 F3 s  Filenumber      一个有效的文件号，范围在1到511之间
$ J, H+ o' H: ]* {. \% x9 e  Reclength       小于或等于32 767（字节）的一个数，对于用随机访问方式打开的文件，
               该值就是记录长度，对于顺序文件，该值就是缓冲字符数。
7 U7 a) i$ [! N! e, m/ R9．如何关闭顺序文件？
8 q2 f- [; q" d, w$ y6 h  解答：Close < 文件号1 > [，< 文件号2 > …]
10．如何向磁盘中读写数据？
7 ^/ N, }& s& r% @/ E8 p  解答：从顺序文件中读取数据的语法结构如下：
  Input  # filenumber,varlist
$ a. Q6 ]$ ]/ r! K: B0 w  Input  # 语句的语法参数及其说明如下：
/ l8 M/ H8 X. b. J6 k9 c  Filenumber      有效的文件号
  Varlist          用逗号分界的变量表，将文件中读出的值分配给这些变量。
5 I  R5 T- G1 ~  R- X+ v  向顺序文件中写入数据的语法结构如下：
/ u1 ~' T* f3 E6 j/ {6 ^3 R7 i, B  Write # filenumber ，[output1ist]
( e) D$ u% j+ B. o! l- F  Write # 语句的语法具有以下几个部分，它的参数及说明如下：
( w6 \/ x* ?, M& T2 {+ {+ c  Filenumber    一个有效的文件号
  Outputlist     要写入文件的表达式，用逗号将这些表达式分界。
+ e$ w8 w  Q3 n8 ?11．讨论一下PathName属性。
  解答：pathname为所要执行的应用程序的名称及其路径和必要的参数。
4 U% d1 ^+ c1 I5 G$ A12．顺序文件、随机文件和二进制文件各有什么特点和用途？
  解答：所谓顺序文件，通常指的是普通的文本文件，文件中的字符包括文本字符及控制字符，如“，”，Chr（14）”，换行符“GR，LF”，“Chr（13）”，“Chr（10）”等。

会计考友

由于这类文件的信息是按照顺序从头到尾按顺序排列，而且只提供第一条记录的存储位置，所以对其中的数据信息进行处理是相当困难的。
1 D; m/ g+ y& W, z+ ?3 l* r5 \9 G  随机文件由记录组成，能够随机存取其相同长度的数据记录，每一数据记录内可以设计各种栏位以容纳不同的数据。此种文件数据是以二进制的位的形式保存在磁盘上。随机文件比顺序文件占用内存多。
二进制文件的数据是以二进制格式保存的,能用来存储任何数据。这种文件的灵活性最大，但程序的工作量大。二进制访问能够提供对文件的完全控制，因为文件中的字节可以代表任何东西。
      二、程序填空题
  本题要求实现如下窗体中的功能，窗体中有一组文件系统控件，分别是驱动器列表框drive1，目录列表框dir1，和文件列表框file1，在它们下面有一个图片框pic1，右边是一个命令按钮comd1和两个文本框text1和text2，要求选择一个位图文件（JPG）即单击文件列表框（file1）中的某个文件时，将该位图文件显示在图片框中，当按命令按钮时，将该位图的实际尺寸（高/宽）以像素点为单位显示在文本框内。

' Y5 t0 ^+ }! C2 ^' {+ R  解答：
  Option Explicit
  Private Sub Form_Load()
' x4 H- [* Q. {: c* ]- e  W     File1.Pattern = "*. jpg"
  End Sub
% B( X9 r2 A; a) h/ e0 }4 }+ T  Private Sub Dir1_Change()
     File1.Path = Dir1.Path
5 g/ w8 y, P( h0 o4 t) |  End Sub
& X5 \$ c6 K8 N$ n4 ^, e   Private Sub Drive1_change()
     Dir1.Path = Drive1.Drive
4 y: t* Y1 M2 Q$ n   End Sub
" @5 L% n; P8 N7 Y8 |4 Q. e   Private Sub File1_click()
     Dim fn As String
        If Len(Dir1.Path) = 3 Then
, v$ L2 p* E$ S4 o7 m% M; q" g            fn = Dir1.Path + File1.FileNane
        Else
2 J  w# h- e/ s7 D8 v5 }& ~            fn = Dir1.Path & "\" & File1.FileName
        End If
        Pic1.AutoSize = True
        Pic1.ScaleMode = vbPixels
        Pic1.Picture = LoadPicture(fn)
0 R3 z% q; _5 S3 v  X   End Sub
   Private Sub Comd1_Click()
     Text1.Text = Pic1.ScaleWidth
  A$ _$ C5 O+ D' N! \     Text2.Text = Pic1.ScaleHeight
- ~" L" Y( ~0 ^# {     End Sub