(9）窗体上己有名称分别为Drive 1、Dirl、File 1的驱动器列表框、目录列表框和文件列表框，且有1个名称为Textl的文本框。以下程序的功能是：将指定位置中扩展名为".txt"的文件显示在Filel中，如果双击File 1中的某个文件，则在Textl中显示该文件的内容。请填空。Private Sub Form_ Load()Filel．Pattern=【13】End SubPrivate Sub Drive 1_ Change()Dir 1.Path＝Drive 1．DriveEnd SubPrivate Sub Dirl _Change()File 1.Path＝Dirl.PathEnd SubPrivate Sub Filel_DblClick()Dim s As String*1If Right(Filel .Path, 1）="＼"Thenf_ name＝File 1.Path＋File l .FileNameElsef name＝File 1．Path＋"\"＋File 1．FileNameEnd IfOpen f_ name【14】As＃1Text 1．Text=""Do While【15】s＝Input(1，＃1）Text 1 ．Text＝Text 1 ．Text＋sLoopClose＃1End Sub
(9）窗体上己有名称分别为Drive 1、Dirl、File 1的驱动器列表框、目录列表框和文件列表框，且有1个名称为Textl的文本框。以下程序的功能是：将指定位置中扩展名为".txt"的文件显示在Filel中，如果双击File 1中的某个文件，则在Textl中显示该文件的内容。
请填空。
Private Sub Form_ Load()
Filel．Pattern=【13】
End Sub
Private Sub Drive 1_ Change()
Dir 1.Path＝Drive 1．Drive
End Sub
Private Sub Dirl _Change()
File 1.Path＝Dirl.Path
End Sub
Private Sub Filel_DblClick()
Dim s As String*1
If Right(Filel .Path, 1）="＼"Then
f_ name＝File 1.Path＋File l .FileName
Else
f name＝File 1．Path＋"\"＋File 1．FileName
End If
Open f_ name【14】As＃1
Text 1．Text=""
Do While【15】
s＝Input(1，＃1）
Text 1 ．Text＝Text 1 ．Text＋s
Loop
Close＃1
End Sub
相关考题：
当改变目录列表框控件Dir1中的当前目录时，希望同步改变文件列表框File1中显示的文件，在Dir1_Change事件过程中使用的命令是A．File1.Path=Dir.PathB．Dir1.Path=File1.PathC．File1.Path=Dir1.DriveD．Dir1.Drive=File1.Path
阅读以下说明和Visual Basic代码，将应填入(n)处的字句写在对应栏内。[说明]本程序实现的功能是查看磁盘上的图片及其基本信息。程序运行界面如下图所示，用户只要逐步选择适当的驱动器、目录和图片文件，图片内容随即显示在界面中央，文件的基本信息则呈现于右侧文本框中。用户还可以删除或复制选中的图片文件。在开发过程中，驱动器列表框名为Drivel，目录列表框名为Dir1，文件列表框名为File1，图片的显示由Image控件对象Image1来实现，文件信息文本框名为Text1，按钮“删除文件”和“复制到…”分别名为CmdDel和CmdCpy。[Visual Basic代码]Dim filename As StringDim fso As New (1), file As filePrivate Sub Form_Load()Set fso = CreateObject("Scripting.FileSystemObject")Drivel.Drive = "F:"End SubPrivate Sub Dir1_Change()File1.path=Dirl.path ’更新文件列表框的路径End SubPrivate Sub Drive1_Change()Dir1.path =(2) ’更新目录列表框的路径End SubPrivate Sub File1_Click()’文件列表框的单击事件响应代码If Right(Dir1.path, 1) ＜＞"\" Thenfilename = Dir1.path "\" Filel.filenameElsefilename = Dir1.path Filel.filenameEnd IfImage1.Picture =(3)Set file = fso.GetFile(filename)Text1. Text = "文件名称:" file.Name vbCrLf _"文件大小:" file. Size "字节" vbCrLf _"文件类型:" file.Type vbCrLf _"创建日期:" file. DateCreated vbCrLf _"修改日期:" file. DateLastModifiedEnd SubPrivate Sub CmdCpy_Chck()’按钮“复制到…”的单击事件响应代码Dim path As Stringpath = InputBox("请输入目标路径(含文件名):")(4)End SubPrivate Sub CmdDel_Click()’按钮“删除文件”的单击事件响应代码(5)End Sub
在窗体上画一个名称为Drive1的驱动器列表框，—个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是A．Drive1_ChangeB．Drive1_ClickC．Dir1_ClickD．Dir1_Change
阅读以下说明及Visual Basic程序代码，将应填入(n)处的字句写在答题纸的对应栏内。【说明】某个文本文件中存放了若干个非零数值有效数据，每个数据占一行，最后一行以数字“0”作为结束标志。下面的程序用于计算该文件中这些数据之和，其运行窗口如下。用户只要通过驱动器列表框、目录列表框和文件列表框，选择文本文件所在的驱动器、文件夹及相应的文件名，再单击“累计”按钮，就能在“总计”文本框中看到该文本文件中的数据之和。在开发过程中，设驱动器列表框名为Drivel，目录列表框名为Dirl，文件列表框名为Filel，存放数据的文本文件名为D：\test\vb7\datA．txt，“累计”按钮名为sum，“总计”文本框(TextBox)名为textl。【Visual Basic代码】Private Sub Drivel_Change()Dirl．Path=(1) '户选择的驱动器反映到目录列表框中End SubPrivate Sub Dirl_Change()Filel．Path=(2) '用户选择的文件夹改变文件列表框内容End SubPrivate Sub sum_Click()Dim (3) As New FileSystemOject, (4) As TextStxeam'创建自己的文件系统对象，说明自己的文本流对象If Right (Dirl．Path，1)="\"ThenSetmyTextFile=fso．OpenTextFile (Dirl．Path+Filel．FileNamc)ElseSetmyTextFile=fso．OpenTextFile(Dirl．Path+”\’+Filel．FileName)End“S=0Dod=Val (myTextFilE．ReadRow)S=S+dLoop While (5)Textl．Text=Str$(S)End Sub
窗体上已有名称分别为Drivel、Dirl、Filel的驱动器列表框、目录列表框和文件列表框，且有1个名称为Textl的文本框。以下程序的功能是：将指定位置中扩展名为“．txt”的文件显示在Filel中，如果双击FileI中的某个文件，则在Textl中显示该文件的内容。请填空。Private Sub Form_Load()Filel．Pattern=End SubPrivate Sub Drivel_Change()Dirl．Path=Drivel．DriveEnd SubPrivate Sub Dirl_Change()Filel．Path—Dirl．PathEnd SubPrivate Sub Filel_DblCliek() ‘Dim s As String姜1If Right(Filel．Path，1)=“＼”Thenf_name!=Filel,Path+Filel．FileNameElsef_name=Filel．Path+“＼”+File1．FileNameEnd 1fOpen f_name As1Textl．Text=“”Do whiles=Input(1，1)Textl．Text=Textl．Text+sLoopClose-1End Sub
在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Drivel、Dirl和Filel，为了使它们同步操作，必须触发驱动器的Change事件和目录的Change事件，在这两个雾件中执行的语句分别为（ ）。A. Filel．Ptth=Drivel．Drive和Filel．Path=Dirl．PathB. Dirl．Path=Drivel．Drive和Filel．Path=Dirl．PathC. Dirl．Path=Dirl．Path和Filel．Path=Drivel．DriveD. Dirl．P tth=Drivel．Path和Filel．Path=Dirl．Path
在窗体上有一个名称为Drivel的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分别为Label1、Label2的标签(标题分别为空白和“共有文件”)。要使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Label1中显示当前文件夹中文件的数量。下列能够正确实现上述功能的程序是（ ）。
使用驱动器列表框drive1、目录列表框dir1、文件列表框file1时，需要设置控件的同步，以下能够正确设置两个控件同步的命令是A)dir1.path=drive1.pathB)file1.path=dir1.pathC)file1.path=drive1.pathD)drive1.drive=dir1.path
在窗体上画一个名称为Drivel的驱动器列表框，一个名称为Dirl的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是A．Drivel changeB．Drive1_ClickC．Dirl_ClickD．Dirl_Change
假设有文件列表框File1、驱动器列表框Drive1和目录列表框Dir1，为了使三者同步，在下列语句中，正确的语句是 ______。 Ⅰ．File1.Path=Dir1.Path Ⅱ．File1.FileName=Dirl.FileName Ⅲ．Dir1.Path=Drive1.Drive Ⅳ．Dir1.Path=Drive1.PathA．Ⅰ和ⅢB．Ⅰ和ⅣC．Ⅰ、Ⅲ和ⅣD．全部
在窗体上画一个名称为File的文件列表框，并编写如下程序： Private Sub File1_DblClick( ) x=Shell(File1．FileName，1) End Sub以下关于该程序的叙述中，错误的是A．x没有实际作用，因此可以将该语句写为：Call Shell(FilE.FileName，1)B．双击文件列表框中的文件，将触发该事件过程C．要执行的文件的名字通过File1．FileName指定D．File1中显示的是当前驱动器、当前目录下的文件
在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为 Drivel、Dirl和Filel。当改变目录列表框的内容时，要求文件列表框中显示当前选中的文件夹中的内容，则在Dirl_Change事件过程中应使用的语句是______。A．Dirvel.Drive=Dirl.PathB．Dirl.Path=Drivel.DriveC．Dirl.Path=Filel.PathD．Filel.Path=Dirl.Path
在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Drive1、Dir1和File1。当改变目录列表框的内容时，要求文件列表框中显示当前选中的文件夹中的内容，则在Dir1_Change事件过程中应使用的语句是______。A．Dirve1. Drive=Dir1. PathB．Dit1. Path=Drive1. DriveC．Dir1. Path=File1. PathD．File1. Path=Dir1. Path
在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为 Drive1、Dir1和File1。当改变目录列表框的内容时，要求文件列表框中显示当前选中的文件夹中的内容，则在Dir1_Change事件过程中应使用的语句是 ______。A．Dirvel.Drive=Dir1.PathB．Dir1.Path=Drive1.DriveC．Dir1.Path=File1.PathD．File1.Path=Dir1.Path
假设有文件列表框File1、驱动器列表框Drivel和目录列表框Dirl，为了使三者同步，在下列语句中，正确的语句是 ______。 Ⅰ．FilePath=Did.Path Ⅱ．FileFileName=Dirl.FileName Ⅲ．Dirl.Path=Drivel.Drive Ⅳ．Dirl. Path=Drivel. PathA．Ⅰ和ⅢB．Ⅰ和ⅣC．Ⅰ、Ⅲ和ⅣD．以上全部
在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分别为Label1、Label2，标题分别为空白和“共有文件”的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签kabel1中显示当前文件夹中文件的数量，如图所示。能够正确实现上述功能的程序是A．Private Sub Dir1_Change( ) Filc1.Path=Dir1.Path End Sub Private Sub Drive1_Change( ) Dir1.Path=Drive1.Drive Label1.Caption=File1.ListCount End SubB．Private Sub Dir1_Change( ) File1.Path=Dir1.Path End Sub Private Sub Drive1_Change( ) Dir1.Path=Drive1.Drive Label1.Caption=File1.List End SubC．Private Sub Dir1_Change( ) File1.Path=Dir1.Path Label1.Caption=File1.ListCount End Sub Private Sub Drive1_Change( ) Dir1.Path=Drive1.Drive Label1.Caption=File1.ListCount End SubD．Private Sub Dir1_Change( ) File1.Path=Dir1.Path Label1.Caption=File1.List End Sub Private Sub Drive1_Change( ) Dir1.Path=Drive1.Drive Label1.Caption=File1.List End Sub
在窗体上建立一个驱动器列表框、目录列表框、文件列表框、图片框、文本框。要求程序运行后，驱动器列表框Drive1的默认驱动器设置为e盘，选择File1中所列的图片文件（*.bmp，*.gif和*.jpg），则相应的图片显示在图片框Picture1中，文件的路径显示在文本框中。程序运行结果如下图所示。 程序如下，请补充完整。
要实现驱动器列表框、目录列表框及文件列表框之间数据的同步，须在驱动器列表框和目录列表框的Change事件分别添加以下代码（）A、Dir1.Path=Drive1.DriveFile1.Path=Dir1.PathB、File1.Path=Drive1.DriveDir1.Path=Drive1.DriveC、Dir1.Path=Drive1.DriveFile1.Path=Drive1.DriveD、File1.Path=Dir1.PathDir1.Path=Drive1.Drive
窗体上有名为Drivel与Dirl的驱动器列表框与文件夹列表框，需要在选定驱动列表框中的列表项时，文件夹表框中内容随之改变，正确的语句及语句的位置是（）。A、Dir1.Path=Drive1.Drive′位于Drive1 Change（）过程B、Dir1.Path=Drive1.Drive′位于Dir1 Change（）过程C、Dir1.Path=Drive1.Path′位于Dir1 Change（）过程D、Dir1.Path=Drive1.Path′位于Drive1 Change（）过程
下面有关文件管理控件的说法正确的是（）A、ChDir语句的作用是指明新的缺省工作目录，同时也改变目录列表框的Path属性值B、改变文件列表框的FileName属性值，仅改变列表框中显示的文件名，不会引发其他事件C、改变驱动器列表框的ListIndex属性值，会改变Drive属性值并触发Change事件D、单击目录列表框中某一项，会触发Change事件
单选题使用驱动器列表框Drive1、目录列表框Dir1、文件列表框File1时，需要设置控件的同步，以下能够正确设置两个控件同步的命令是（ ）。ADir1.Path=Drive1.PathBFile1.Path=Dir1.PathCFile1.Path=Drive1.PathDDrive1.Drive=Dir1.Path
单选题窗体上有一个名称为Dir1的目录列表框，一个名称为File1的文件列表框。当改变目录列表框的内容时，文件列表框的内容应该与之同步改变。为实现两控件同步操作，应该使用的事件过程是（ ）。ADir1_ClickBDir1_ChangeCFile1_ClickDFile_Change
单选题要实现驱动器列表框、目录列表框及文件列表框之间数据的同步，须在驱动器列表框和目录列表框的Change事件分别添加以下代码（）ADir1.Path=Drive1.DriveFile1.Path=Dir1.PathBFile1.Path=Drive1.DriveDir1.Path=Drive1.DriveCDir1.Path=Drive1.DriveFile1.Path=Drive1.DriveDFile1.Path=Dir1.PathDir1.Path=Drive1.Drive
判断题使用驱动器列表框、目录列表框和文件列表框构成一个文件管理系统时，三者之间可以实现自动同步，即当在驱动器列表框改变驱动器时，目录列表框和文件列表框的内容立即同跟着变。A对B错