首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读以下说明及Visual Basic程序代码,将应填入(n)处的字句写在对应栏内。 [说明] 某公司的服务器上为每位员工提供了一定大小的存储空间,用于数据的备份。下面的程序面向公司员工,提供了本地计算机与服务器端之间文件传输的功能。主要操作介绍如下
阅读以下说明及Visual Basic程序代码,将应填入(n)处的字句写在对应栏内。 [说明] 某公司的服务器上为每位员工提供了一定大小的存储空间,用于数据的备份。下面的程序面向公司员工,提供了本地计算机与服务器端之间文件传输的功能。主要操作介绍如下
admin
2009-02-15
41
问题
阅读以下说明及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
程序员下午应用技术考试
软考初级
相关试题推荐
计算机处理的数字数据有数值数据和字符数据之分。对信息处理技术员来说,它们的主要区别是______。
在Excel2010中,若要计算出B3:E6区域内的数据的最大值并保存在B7单元格中,应在B7单元格中输入________________。
企业实现移动信息化的作用不包括________________。
抽样调查是收集数据的重要方法之一。抽样调查所遵循的原则不包括______。
点击F.DOC文档窗口的“最小化”按钮后,则______。
在Windows系统的资源管理器中,文件和文件夹可以采用多种形式显示,但不能以(40)形式显示。
某地区考试机构准备对信息处理技术员考试笔试成绩(BS)不低于45分,并且机考成绩(JK)为43~44分者进行重点复查。对考生成绩表进行筛选操作时,正确描述上述条件的表达式是(27)。
删除Windows中某个应用程序的快捷方式,意味着(39)。
阅读以下说明,回答问题1至问题4。说明某公司A楼高40层,每层高3.3米,同一楼层内任意两个房间最远传输距离不超过90米,A楼和B楼之间距离为500米,需在整个大楼进行综合布线,结构如图1-1所示。为满足公司业务发展的需要,要求为楼内客户机提供数
随机试题
背景某幕墙公司通过招投标从总承包单位承包了某机关办公大楼幕墙工程的施工任务。承包合同约定,本工程实行包工包料承包,合同工期180个日历天。在合同履行过程中发生了以下事件:事件一:按照合同约定,总承包单位应在8月1日交出施工场地,但由于总承包单位负责施工
简述咨询调查中内部数据的种类。
乙醇性心肌病可见
在电梯设备中检测轿厢是否超速的装置是()。
()是混凝土结构设计、施工质量控制和工程验收的重要依据。
世界三大宗教中,传人中国最早的是()。
我国首次实现月球软着陆和月面巡视勘察的探测器是()。
一个扇形的面积是314平方厘米,它所在的圆的面积是1256平方厘米,则此扇形的圆心角是()。
运动员竞技能力要素中某种能力缺陷,其总体竞技能力就会受到限制,难以达到较高的水平。()
HowtoProvideaBetterLifeforSeniorCitizens?
最新回复
(
0
)