阅读以下说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。 [说明] 某公司的服务器上为每位员工提供了一定大小的存储空间，用于数据的备份。下面的程序面向公司员工，提供了本地计算机与服务器端之间文件传输的功能。主要操作介绍如下： (1)连接服务器：员工需要输入用户名和口令才能连接到服务器端，checkUser函数用于检查用户名和口令是否合法，返回真假值。 (2)上传文件：从本地计算机上传文件到服务器。员工可以在本地文件列表中选择一个或多个文件，这些文件通过上传操作被复制到服务器端指定的某个文件夹中； (3)下载文件：从服务器端下载文件到本地。 在开发过程中，本地驱动器列表框名为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