首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读以下说明及Visual Basic程序代码,将应填入(n)处的字句写在对应栏内。 [说明] 某公司的服务器上为每位员工提供了一定大小的存储空间,用于数据的备份。下面的程序面向公司员工,提供了本地计算机与服务器端之间文件传输的功能。主要操作介绍如下
阅读以下说明及Visual Basic程序代码,将应填入(n)处的字句写在对应栏内。 [说明] 某公司的服务器上为每位员工提供了一定大小的存储空间,用于数据的备份。下面的程序面向公司员工,提供了本地计算机与服务器端之间文件传输的功能。主要操作介绍如下
admin
2009-02-15
44
问题
阅读以下说明及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
程序员下午应用技术考试
软考初级
相关试题推荐
下列关于Word2007撤销操作的叙述中,正确的是______。
四个铜厂前年的产值、去年的产值如下表:根据上表,在这几个厂中,(29)发展最快。
企业信息系统的用户一般不包括()。
信息处理组长感到日常的信息处理工作效率不高,而且容易出错。为解决这个问题,一般来说,应重点采取的技术措施是()。
在WPS文字中,由“字体”“字号”“粗体”“斜体”“两端对齐”等按钮组成的工具栏是________________。
在收集、整理、存储大数据时,删除重复数据的作用不包括________________。
下列关于Windows7屏幕保护程序的叙述中,不正确的是__________。
在Windows7中,若删除桌面上某个应用程序的快捷方式图标,则(31)。
平面上由条件X≥0、Y≥0和X+Y≤1所限定的区域,其面积为________。
阅读下列说明,根据网页显示的效果图,回答问题1至问题3。【说明】某商务网站用ASP实现了一个在线手机性能评价投票网页,主页文件名为“index.asp”,用IE打开该网页后的效果如图4-9所示。程序中使用的Access数据表结构如表4-1所示
随机试题
A、Theyarevirtuallyimpossibletoenforce.B、Neitherisapplicabletothewoman’scase.C、Bothofthemhavebeensubjecttocri
男性,30岁。哮喘病史10余年,近年来发作频繁。2天前因搬家劳累致极重度发作,口服氨茶碱和沙丁胺醇未缓解,且有进一步加重趋势,该患者根据病情选择药物治疗
白细胞分类计数时,应在油镜下选择什么部位有秩序检查
关于X线防护原则,错误的是
政府对市场价格的干预是通过()影响土地供给和需求来间接影响土地价格的。
在非关键线路上的工作都应是非关键性工作。()
通过风险承受态度评估表在对客户的风险特征进行评估时,一个客户的每项打分都是4分,则这个客户的特点是()。Ⅰ.首要考虑因素抗通胀保值Ⅱ.过去投资绩效是只赔不赚Ⅲ.目前主要投资的市场是债券市场Ⅳ.未来回避投资的市场是股票市场
关于我国储蓄国债(电子式)的特点,下列说法错误的有( )。
甲商业银行P分行为增值税一般纳税人,主要提供存款、贷款、货币兑换、基金管理、资金结算、金融商品转让等相关金融服务。2019年第一季度,其有关经营情况如下:(1)提供贷款服务,取得含增值税利息收入8708.96万元。(2)提供票据贴现服务,取得含增值税
A、challengedtheaccordforfreezingPyongyang’snuclearprogramme.B、requiredtheinspectionofPyongyang’snuclearsiteforat
最新回复
(
0
)