[说明] 某公司的服务器上为每位员工提供了一定大小的存储空间，用于数据的备份。下面的程序面向公司员工，提供了本地计算机与服务器端之间文件传输的功能。主要操作介绍如下： (1)连接服务器：员工需要输入用户名和口令才能连接到服务器端，checkUser函数用于检查用户名和口令是否合法，返回真假值。 (2)上传文件：从本地计算机上传文件到服务器。员工可以在本地文件列表中选择一个或多个文件，这些文件通过上传操作被复制到服务器端指定的某个文件夹中； (3)下载文件：从服务器端下载文件到本地。

在开发过程中，本地驱动器列表框名为Drive1，本地和服务器端目录列表框分别名为Dir1和 Dir2，本地和服务器端文件列表框分别名为File1和File2，界面上有上至下四个按钮分别名为Command1至Command4。[Visual Basic代码]Private Sub Drive1_Change() (1) ’更新目录列表框的路径End SubPrivate Sub Dir1_Change() File1.Path=Dir1.Path’更新文件列表框file1的路径End SubPrivate 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 IfEnd 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.RefreshEnd Sub’下载文件Private Sub Command3_Click() ……End Sub’退出程序Private Sub Command4_Click() EndEnd Sub

以下表述属于农业银行现金管理业务范围的有（）。

A.负责人民币结算与现金管理的市场营销和营销支持

B.组织对公无授信客户的需求研究、直接营销和营销管理

C.研究客户现金管理需求，提出产品创意

D.制定全行现金管理业务的各项规章制度、办法和操作流程等