题目内容
（请给出正确答案）
Private Sub Dir1_Change()
File1. Path =dir1.Path
End Sub
Private Sub Drive1_Change()
----1----
End Sub
Private Sub File1_Click()
Dim PathStr As String
if right(file1.path,1)="/" then
PathStr=File1.Path & File1.FileName
else
----2----
end if
If Right(PathStr,4)= “.bmp” Or Right(PathStr,4)= “.BMP” Then
----3----
End If
End Sub
如果结果不匹配，请 联系老师 获取答案
更多“下列程序运行时，在驱动器列表框中选择驱动器，目录列表框相应变…”相关的问题
阅读以下应用说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。
【应用说明】
某应用程序可选择打开用户指定的文本文件，将其内容显示在指定的文本框内供用户编辑，并将编辑后的结果保存在用户指定的文件中。运行时的窗口如图6-1所示，其中有6个标签、一个驱动器列表框、一个目录列表框、一个文件列表框、一个文件类型组合框、一个文件编辑文本框、一个文件名文本框以及两个命令按钮。
.jpg)
该程序的开发要求如下。
(1)通过驱动器列表框(Drivel)、目录列表框(Dirl)和文件列表框(Filel)，选择文件。
(2)文件类型组合框(Cmb_type)设置为下拉式列表框，其中有三个供选项，分别为“所有文件(*．*)”、“文本文件(*.txt)”和“可执行文件(*．exe)”。在文件列表框中列出的文件类型会自动与文件类型组合框中选择的文件类型相匹配。
(3)在文件列表框中单击一个文件名时，该文件名会显示在文件名文本框 (Txt filename)中。
(4)在文件列表框中双击一个文件名时，若是文本文件，则在文件编辑文本框 (Txt file)中显示该文件的内容并可进行编辑；若不是文本文件，则弹出一个对话框，提示“请选择文本文件!”。
(5)对于编辑后的文本文件，可在文件名文本框中输入新的文件名，并单击命令按钮(Cmd save)进行保存。
【Visual Basic程序代码】
Private Sub Form_Load()
Cmb_type．Addltem "所有文件(*.*)"
Cmb_type．Addltem "文本文件(*.txt)"
Cmb_type．Addltem "可执行文件(*.exe)"
Cmb_type．ListIndex＝0
Filel.Pattern＝"*．*"： Txt_filename.Text＝" "
Txt_file.Text＝ " "
End Sub
Private Sub Dirl Change()
Filel．Path＝(1)
End Sub
Private Sub Drivel Change()
Dirl．Path＝Drivel．Drive
End Sub
Private Sub Cmb_type_click()
Select Case Cmb_type.(2)
Case 0
Filel．Pattern＝"*.*"
Case 1
Filel.Pattern＝"*.txt"
Case 2
Filel.Pattern＝"*.exe"
End Select
End Sub
Private Sub Cmd_save_Click()
usrFile＝GetFileName() '函数GetFileName获得要保存的文件名
Open usrFile For Output As 1 '定义usrFile为1号输出文件
Print 1，Txt file．Text '输出到1号文件
Close 1
End Sub
Private Sub Filel_DblClick()
If right(Filel.FileName，3)＜＞(3)Then
MsgBox "请选择文本文件!"
Exit Sub
End If
usrFile＝GetFileName() '函数GetFileName获得要打开的文件名
Open usrFile For Input As 1 '定义usrFile为1号输入文件
Txt_file．Text＝" "
DO While (4) EOF(1)
Line Input l，fContext '从1号文件读入一行
Txt_file．Text；Txt file．Text +(5)+vbCrLf
Loop
Close 1
End Sub
'其他代码略
阅读以下应用说明及Visual Basic程序代码，根据要求回答问题1至问题4。
[说明]
某文件管理系统的图片浏览器如图3-19所示。运行程序时，用户只要通过驱动器列表框、目录列表框和文件列表框，选择文本文件所在的驱动器、文件夹及相应的文件名后，在图像框中将显示出相应的文件图像。
在开发过程中，假设驱动器列表框名为drvFile，目录列表框名为 dirFile，文件列表框名为filFile，选择文件类型组合框名为cboFile，图像框名为IMG nClick=over(this) title=放大Show。
.jpg)
图3-19 图片浏览器
[Visual Basic程序]
Private Sub Form_Load ()
IMG nClick=over(this) title=放大Show.Stretch=True
cboFile.Addltem "位图文件(*.bmp)"
cboFile.Addltem "图标文件(*.ico)"
cboFile.Addltem "图元文件(*.wmf)"
cboFile.Addltem "JPEG文件(*.jpg)"
cboFile.Addltem "GIF文件(*.gif)"
cboFile.ListIndex = 0
(1)
End Sub
Private Sub drvFile_Change ()
(2)
End Sub
Private Sub dirFile_Change ()
(3)
End Sub
Private Sub cboFile_Click ()
(4)
Case 0
filFile. Pattern= "*.bmp"
Case 1
filFile. Pattern= "*.ico"
Case 2
filFile. Pattern= "*.wmf"
Case 3
filFile. Pattern= "*.jpg.
Case 4
filFile. Pattern= "*.gif"
End Select
End Sub
Private Sub filFile_Click()
If (5) Then
IMG nClick=over(this) title=放大Show. Picture= LoadPieture(filFile. Path+ filFile.FileName)
Else
IMG nClick=over(this) title=放大Show. Picture= LoadPicture((6) + "\" + (7) )
End If
End Sub
请根据[说明]和图3-19的显示结果，从以下备选答案中为程序(1)～(7)空缺处选择正确的答案。
[备选答案]
A. filFile.path B. dirFile.Path=drvFile.Drive
C．Right(filFile.Path，1) = "\" D．filFile.Pattern ="*.bmp"
E．filFile.Path = dirFile.Path F．filFile.FileName
G．Select Case cboFile.ListIndex
Private Sub Command1_Click()
If list1.text=””or list2.text””then
Msgbox”请选择交换的物品！”
Else
List1.additem list2.text
List2.removeitem【11】
【12】
List1.removeitem list1.listindex
End If
End Sub
阅读以下说明Visual Basic代码，回答问题1～2，将解答填入对应的栏内。
[说明]
本程序实现的功能是判断指定的文本文件中是否包含指定的字符串，并且如果包含则返回其第一次出现的位置(行号、列号)。程序运行界面如下图所示，用户只要通过驱动器列表框、目录列表框选定文件夹，文件列表框会自动列出该文件夹下所有文本文件名称，选中其中某个文件，再输入目标字符串并且单击“查找”按钮，就能看到查找的结果。
.jpg)
在开发过程中，驱动器列表框名为Drive1，目录列表框名为Dirl，文件列表框名为File1，目标字符串输入框名为Text1，“查找”按钮名为Command1。
[Visual Basic 代码]
Private Sub Drivel_Change()
Dirl. Path=(1) '更新目录列表框的路径
End Sub
Private Sub Dirl_Change()
(2)= Dirl. Path '更新文件列表框的路径 End Sub
Private Sub Commandl_Click()
Dim fso, a As Object
Dim i, j As Integer
If (3) = "" Then '判断是否已经选中某个文件
MsgBox "请选择一个文件文件!"
(4) '退出事件过程
End If
'创建文件系统对象以及文本流对象
Set fso = CreateOhjecl("Scripting. FileSystemOhject" )
Set a = fso. OpenTextFile(Dirl. Path & "/" &(3))
i=1
Do While (5)＜＞ True '逐行读取文件，直至文件末尾
strLine = a. ReadLine
j = InStr(1,(6))'返回目标字符串在文件这一行中的位置
If j ＞ 0 Then '如果目标字符串在这一行出现，则返回其位置
MsgBox "字符串第一次出现的位置是" & "(" & i & "," &j & "),,"
(4) '退出事件过程
End If
i:i+l
Loop
MsgBox "字符串在文件中不出现，"
End Sub
在窗体上画一个名称为File1的文件列表框，并编写如下程序： Private Sub File1_DblClick() x=Shell(File1_FileName，1) End Sub 以下关于该程序的叙述中，错误的是
A．x没有实际作用，因此可以将该语句写为：Call Shell(File1．FileName，1)
B．双击文件列表框中的文件，将触发该事件过程
C．要执行的文件的名字通过File1．FileName指定
D．File1中显示的是当前驱动器、当前目录下的文件
在窗体上画一个名称为Filel的文件列表框，并编写如下程序： Private Sub Filel_DblClick() x=Shell(Filel. FileName, 1) End Sub 以下关于该程序的叙述中，错误的是______。
A．x没有实际作用，因此可以将该语句写为：Call Shell(Filel. FileName, 1)
B．双击文件列表框中的文件，将触发该事件过程
C．要执行的文件的名字通过Filel. FileName指定
D．Filel中显示的是当前驱动器、当前目录下的文件
.jpg)
能够正确实现上述功能的程序是
A．Private Sub Dir1_Change() Filc1.Path=Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path=Drive1.Drive Label1.Caption=File1.ListCount End Sub
B．Private Sub Dir1_Change() File1.Path=Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path=Drive1.Drive Label1.Caption=File1.List End Sub
C．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 Sub
D．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
目录列表框的Path属性的作用是 ______。
A．显示当前驱动器或指定驱动器上的目录结构
B．显示当前驱动器或指定驱动器上的某目录下的文件名
C．显示根目录下的文件名
D．显示该路径下的文件
目录列表框的Path属性的作用是（）。
A. 显示当前驱动器或指定驱动器上的目录结构
B. 显示当前驱动器或指定驱动器上的某目录下的文件名
C. 显示根目录下的文件名
D. 显示该路径下的文件
A、通过适当的设置,可以在程序运行期间让定时器显示在窗体上
B、在列表框中不能进行多项选择
C、容器内不能有容器对象
D、框架也有Click和DblClick事件
