2. 计算机
  3. 阅读以下说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。 [说明] 某公司的服务器上为每位员工提供了一定大小的存储空间，用于数据的备份。下面的程序面向公司员工，提供了本地计算机与服务器端之间文件传输的功能。主要操作介绍如下

阅读以下说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。 [说明] 某公司的服务器上为每位员工提供了一定大小的存储空间，用于数据的备份。下面的程序面向公司员工，提供了本地计算机与服务器端之间文件传输的功能。主要操作介绍如下

admin2009-02-15  22
问题 阅读以下说明及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
选项
答案(1) Dir1.Path=Drive1.Drive (2) InpatBox (3) File1.ListCount-1 (4) File1.Selected(i) (5) GetFile
解析 (1)驱动器列表框的Drive属性表示当前选择的驱动器；目录列表框的Path属性表示当前目录的路径；文件列表框的path属性则表示列表中文件所在的目录的路径；
(2)此处需要提供输入框以供用户输入用户名和密码；
(3)Flie1.ListCount表示File1中文件的总数目，因文件编号自0起，所以还应减去1；
(4)若文件列表框中某项被选中，则其Selected(index)属性将为True，此循环中，index就足循环变量i；
(5)FSO对象的GetFile方法返回一个和指定路径中文件相对应的File对象。
转载请注明原文地址:https://kaotiyun.com/show/GbjZ777K
本试题收录于： 程序员下午应用技术考试题库软考初级分类
0

程序员下午应用技术考试

软考初级

相关试题推荐
随机试题
最新回复(0)