题目内容
（请给出正确答案）
[单选题]
要获得文件列表框中当前被选中的文件的文件名，则应使用哪个属性 ______。
A.Dir
B.Path
C.Drive
D.Filename
查看答案
如果结果不匹配，请 联系老师 获取答案
题目内容
（请给出正确答案）
如果结果不匹配，请 联系老师 获取答案
题目内容
（请给出正确答案）
A.Dir
B.Path
C.Drive
D.Filename
如果结果不匹配，请 联系老师 获取答案
更多“要获得文件列表框中当前被选中的文件的文件名，则应使用哪个属性…”相关的问题
要获得文件列表框中当前被选中的文件的文件名，则应使用哪个属性______。
A．Dir
B．Path
C．Drive
D．Filename
A.Dirve1.Drive=Dir1.Path
B.Dir1.Path=Drive1.Drive
C.Dir1.Path=File1.Path
D.File1.Path=Dir1.Path
A．Dirvel.Drive=Dirl.Path
B．Dirl.Path=Drivel.Drive
C．Dirl.Path=Filel.Path
D．Filel.Path=Dirl.Path
在窗体上画一个名称为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中显示的是当前驱动器、当前目录下的文件
A.选中要删除的文件或文件夹，按下Delete键
B.选中要删除的文件或文件夹，单击鼠标右键，在弹出的快捷菜单中选中“剪切”命令
C.鼠标拖拽文件或文件夹图标置于桌面“回收站”图标上，释放鼠标
D.选中要删除的文件或文件夹，单击当前窗口的“文件”或“组织”菜单，选中“删除”命令
阅读以下说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。
[说明]
某公司的服务器上为每位员工提供了一定大小的存储空间，用于数据的备份。下面的程序面向公司员工，提供了本地计算机与服务器端之间文件传输的功能。主要操作介绍如下：
(1)连接服务器：员工需要输入用户名和口令才能连接到服务器端，checkUser函数用于检查用户名和口令是否合法，返回真假值。
(2)上传文件：从本地计算机上传文件到服务器。员工可以在本地文件列表中选择一个或多个文件，这些文件通过上传操作被复制到服务器端指定的某个文件夹中；
(3)下载文件：从服务器端下载文件到本地。
![阅读以下说明及Visual Basic程序代码，将应填入（n)处的字句写在对应栏内。[说明] 某公司](https://img2.soutiyun.com/shangxueba/ask/11259001-11262000/11260009/ct_crppxm_crppxprogxvb_00015(20093).jpg)
在开发过程中，本地驱动器列表框名为Drive1，本地和服务器端目录列表框分别名为Dir1和 Dir2，本地和服务器端文件列表框分别名为File1和File2，界面上有上至下四个按钮分别名为Command1至Command4。
[Visual Basic代码]
Private Sub Drive1_Change()
(1) ’更新目录列表框的路径
End Sub
Private Sub Dir1_Change()
File1.Path=Dir1.Path ’更新文件列表框file1的路径
End Sub
Private Sub Dir2_Change()
File2.Path=Dir2.Path ’更新文件列表框file2的路径
End Sub
’连接服务器
Private Sub Command1_Click()
Dim user,password As String
user=(2) (“请输入用户名：”)
password=(2) (“请输入口令：”)
If check User(user,password)Then ’若用户名和口令正确
Dir2.Path=…… ’打开服务器上某一指定目录
Else: MsgBox“口令错误，请重试!”
End If
End Sub
’上传文件
Private Sub Command2_Click()
Dim fso As new FileSystemObject,f As File,i As Integer
If File1.FileName=""Then ’判断是否已经选中文件
MsgBox“请选择本地的文件!”
Exit Sub
End If
’创建文件系统对象
Set fso=CreateObject(“Scripting.FileSystemObject”)
’上传文件
For i=0 To (3) ’遍历文件列表框File1中的全体文件
If (4) Then’若该文件被选中
Set f=fso. (5) (Dir1.Path & “\” & File1.List(i))
f.Copy Dir2.Path & “\” & File1.List(i),True ’复制文件至服务器端
End If
Next
File2.Refresh
End Sub
’下载文件
Private Sub Command3_Click()
……
End Sub
’退出程序
Private Sub Command4_Click()
End
End Sub
A．File1.Path=Dir.Path
B．Dir1.Path=File1.Path
C．File1.Path=Dir1.Drive
D．Dir1.Drive=File1.Path
