更多"窗体上已有名称分别为Drive1、Dir1、File1的驱动器列表框、"的相关试题:
[填空题]窗体上已有名称分别为Drive1、Dir1、File1的驱动器列表框、目录列表框和文件列表框，且有一个名称为Text1的文本框。以下程序的功能是：将指定位置中扩展名为".txt"的文件显示在File1中，如果双击File1中的某个文件，则在Text1中显示该文件的内容。请填空。
Private Sub Form_Load（ ）
File1.Pattern= (13)
End Sub
Private Sub Drive1_Change（ ）
Dir1.Path=Drive1.Drive
End Sub
Private Sub Dir1_Change（ ）
File1.Path=Dir1.Path
End Sub
Private Sub File1_DblClick（ ）
Dim S As String*1
If Right(File1.Path,1)="/"Then
f_name=File1.Path+Filel.FileName
Else
f_name=Filel.Path+"/"+Filel.FileName
End If
Open f_name (14) As#1
Text1.Text=" "
Do While (15)
s=Input(1，#1)
Text1, Text=Text1.Text+S
Loop
Close#1
End Sub
[填空题]在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Drive1、Dir1和File1。为了使它们同步操作，必须触发Drive1_Change( )事件和Dir1_Change( )事件，在这两个事件中执行的语句分别是 (8) 和 (9) 。
[填空题]在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Dhvel、 Dirl和File1。为了使它们同步操作，必须触发Drive1_Change（ ）事件和Dir1_Change（ ）事件，在这两个事件中执行的语句分别是 【8】 和 【9】 。
[填空题]窗体中有一组文件系统控件，分别是驱动器列表框drive1、目录列表框dir1和文件列表框file1，在它们下面有一个图片框pic1。要求选择一个bmp文件，即单击文件列表框中的某个文件时，将该文件显示在图片框中。请在空白处填入适当的内容，将程序补充完整。
Option Explicit
Private Sub File1_Click（ ）
Dim fn As String
If Len(Dir1.Path)=3 Then
Fn=Dir1.Pach+File1.FileName
Else
Fn=Dir1.Path & "/"&______
End if
Pic1.AutoSize=True:Pic1.ScaleMode=vbPixels
Pic1.Picture=______
End Sub
Private Sub Form Load（ ）
File1.FileName="*.bmp"
End Sub
Private Sub Dir1_Change（ ）
File1.Path=Dir1.Path
End Sub
Private Sub Drive1_Change（ ）
Dir1.Path=Drive1.Drive
End Sub
[填空题]设窗体中已经加入了文件列表框(File1)、目录列表框(Dir1)、驱动器列表框(Drive1)，完成下列程序使这三个控件可以同步变化。
Private Sub Dir1_Change（ ）
______
End Sub
Private Sub File1_Click（ ）
MsgBox File 1.FileName
End Sub
[简答题]完成下列问题：
在名称为Form1的窗体上画一个名称为Drive1的驱动器列表框、一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，一个名称为Label1、标题为“文件名”的标签和一个名称为Label2、BorderStyle为1的标签。窗体的标题没置为“文件系统控件”，如图1所示。请编写适当的程序，使得这3个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将选中的文件名显示在Label2中。
[*]
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。
[单项选择]要获得当前驱动器应使用驱动器列表框的属性是（）。
A. Path
B. Drive
C. Dir
D. Pattern
[单项选择]窗体上有名称为Command 1的命令按钮，名称分别为List 1、List2的列表框，其中List 1的MultiSelect属性设置为1(Simple)，并有如下事件过程： Private Sub Command 1_Click（ ） For i=0 To List 1．ListCount-1 If List 1．Selected(i)=True Then List2．Addltem Text End If Next End Sub 上述事件过程的功能是将List 1中被选中的列表项添加到List2中。运行程序时，发现不能达到预期目的，应做修改，下列修改中正确的是
A. 将For循环的终值改为List 1．ListCount
B. 将List 1．Selected(i)=True改为List 1．List(i)．Selected=True
C. 将List2．AddItem Text改为List2．AddItem List 1．List(i)
D. 将List2．AddItem Text改为List2．AddItem List 1．ListIndex
[单项选择]窗体上有名称为Command1的命令按钮，名称分别为List1、List2的列表框，其中Listl的MultiSelect属性设置为1(Simple)，并有如下事件过程：
Private Sub Command1_Click（ ）
For i=0 To List1.ListCount-1
If List1.Selected(i)=True Then
List2.AddItem Text
End If
Next
End Sub
上述事件过程的功能是将List1中被选中的列表项添加到List2中。运行程序时，发现不能达到预期目的，应做修改，下列修改中正确的是______。
A. 将For循环的终值改为List1.ListCount
B. 将List1.Selected(i)=True改为List1.List(i).Selected=True
C. 将List2.AddItem Text改为List2.Addltem List1.List(i)
D. 将List2.AddItem Text改为List2.AddItem List1.ListIndex
[单项选择]窗体上有名称为Command1的命令按钮，名称分别为List1、List2的列表框，其中List1的MultiSelect属性设置为1(Simple)，并有如下事件过程：
Private Sub Command1_Click( )
For i =0 To List1. ListCount - 1
If List1. Selected(i) = True Then
List2. Additem Text
End ff
Next
End Sub
上述事件过程的功能是将List1中被选中的列表项添加到List2中。运行程序时，发现不能达到预期目的，应做修改，下列修改中正确的是( )。
A. 将For循环的终值改为List1. ListCount
B. 将List1. Selected(i)=True改为List1. List(i). Selected=True
C. 将List2. AddItem Text改为List2. AddItem List1. List(i)
D. 将List2. AddItem Text改为List2. AddItem List1. ListIndex
[填空题]改变驱动器列表框的Drive属性值将引发卫士事件。
[单项选择]在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程。
Private Sub Form_Load（ ）
List1.AddItem "Item 1"
List1.AddItem "Item 2"
List1.AddItem "Item 3"
End Sub
Private Sub Command1_Click（ ）
List1.List(List1.Listcount)="AAAA"
End Sub
程序运行后，单击命令按钮，其结果为
A. 把字符串"AAAA"添加到列表框中，但位置不能确定
B. 把字符串"AAAA"添加到列表框的最后(即"Item 3"的后面)
C. 把列表框中原有的最后一项改为"AAAA"
D. 把字符串"AAAA"插入到列表框的最前面(即"Item 1"的前面)
