第4题
第5题
编程实现视频课程中的文本进度条。(将代码和运行结果截图上传) 1、要求如下:???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? 1) 采用sleep()模拟一个持续的进度,获得文本进度条的变化时间;???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? 2)通过print()函数实现单行动态刷新,在print()函数中更换参数end的默认值为'',每次使用print()函数输出时不能换行;???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????? 3)要能回退:打印后光标到之前的位置 \r。 2、运行效果:3、运行方法: 1)编好代码后,先保存为test.py文件; 2)在开始菜单中选择“windows系统”,从中选择“命令提示符”,进入命令行(cmd)环境;3)切换到python程序所在的目录,假如python安装在D盘的python文件夹中,就执行如下操作:先输入d:回车,再输入cd python4)输入python test.py,运行程序
第6题
这是【第一周作业更新】,原【第一周作业】作废。 P6(2),拍照上传,截止日期为4月7日,4月8-28日开放互评。建议手机上传作业照片,上传后请务必按“提交”按钮确认提交。若用电脑,请使用作业窗口中的图片工具上传(见下图),若上传失败,请换成360或搜狗等其他浏览器上传。DUT在校生作业:习题集P4、P6。仅上传P6(2)并参与互评。 基本要求: 1. 不缺尺寸。 2. 逐条检查以下各要求。 (1)圆尺寸前面加Φ; (2)半圆或圆弧尺寸前面加R; (3)水平方向的尺寸注于尺寸线上方且字头朝上; (4)垂直方向的尺寸注于尺寸线左方且字头朝左; (5)小尺寸在内,大尺寸在外; (6)尺寸线之间间隔均匀; (7)同心同径的圆弧尺寸数字前缀为Φ; (8)尺寸线不要与中心线、轴线、轮廓线重合; (9)对称结构尺寸对称标注; (10)定位尺寸要从基准引出; (11)尺寸线、尺寸界线为细实线; (12)同一结构上孔的数量要标注,圆角半径可不注数量; (13)箭头规范 (14)避免尺寸链封闭。 (15)作业不潦草
第8题
[说明]
某公司的服务器上为每位员工提供了一定大小的存储空间,用于数据的备份。下面的程序面向公司员工,提供了本地计算机与服务器端之间文件传输的功能。主要操作介绍如下:
(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
第9题
用户协议 1.使用协议的接受与修改 1.1 本协议服务条款构成您(无论是个人或者单位)使用土豆网所提供服务之先决条件。如您不同意本协议服务条款或其随时对其的修改,您应不使用或主动取消土豆网提供的服务。您的使用行为将被视为您对本协议服务条款及其随时修改版本的完全接受; 1.2 这些条款可由土豆网随时更新,且毋须另行通知。修改后的服务条款一旦在土豆网上公布即取代替原来的服务条款,并构成本条款整体之一部分。您可随时登陆土豆网查阅最新的服务条款。 2.土豆网服务 2.1 土豆网向您提供包括但不限于如下服务: (i) 土豆网主页www.tudou.com(含其他任何由土豆网直接所有或运营的任何网站); (ii)土豆网网站联盟(包括其他第三方网站); 2.2 您在此明确陈述并保证对所有上载、传播到土豆网上的内容,拥有或取得了所有必要的权利并承担全部的法律责任,包括但不限于:您有权或已取得必要的许可、授权、准许来使用或授权土豆网使用所有与上传作品有关的所有专利、商标、商业秘密、版权、表演者权及其他私有权利; 2.3 对所有上传至土豆网的内容(您在此保证已获得权利人的明确授权),您在此同意授予土豆网对所有上述作品和内容的在全球范围内的免费、不可撤销的、无限期的、并且可转让的非独家使用权许可;土豆网有权视情况展示、散布及推广前述内容,有权对前述内容进行任何形式的复制、修改、出版、发行及以其他方式使用或者授权第三方进行复制、修改、出版、发行及以其他方式使用;
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!