VisualBasic编程与应用作业4答案 |
|
www.nanhushi.com 佚名 不详 |
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
|
|
|
文章录入:杜斌 责任编辑:杜斌 |
|
上一篇文章: VisualBasic编程与应用作业4 下一篇文章: 二级VB考试菜单程序设计练习题 |
【字体:小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
|
|