公司员工应严格管理个人用户名及口令，严格向其他人提供用户名及口令，严禁员工索要、搜集他人用户名及口令（）

A.公司各应用系统的用户，口令设置应遵循以下原则：(1)口令中没有具体含义，不能包括用户名;(2)不使用简单的弱口令(111aaa、123abc、1a2b3c等);(3)应定期更换用户口令，口令更换不使用半年内曾经使用过的口令

B.公司员工负有保管好自己用户口令的责任，不得将自己使用的用户口令泄露给他人

C.不允许两个或两个以上人员共同使用同一个用户帐号

D.账号密码禁止通过邮件、QQ等方式进行明文发送，应加密发送或通过口头等方式告知

阅读以下说明及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

A.口令长度至少八位字符长

B.口令应混合字母、数字和符合

C.口令应难以猜测；不要使用您的姓名；用户名；手机号码；生日及配偶/孩子姓名和生日

D.口令为空口令

A.用户设置的各系统的口令长度不得小于8位

B.口令必须由大写英文字母

C.小写英文字母及阿拉伯数字组成

D.用户本人应妥善保管用户名和密码，不能泄露或借予他人使用。

A.口令不得与用户名、ID相同或存在内容相关

B.口令内容不得存在公司标识和个人信息

C.口令应使用大写字母、小写字母、数字、标点及特殊字符四种字符中至少三种的组合

D.设备入网后需要删除工程账号