VB课件第6章Visual Basic 循环结构

合集下载

VisualBasic程序设计循环结构程序设计

VisualBasic程序设计循环结构程序设计

累乘分析:

初始化: F=1

循环体: F=F × I (I=1,2,3……N)
章 程序:
循 Private Sub Command1_Click()
环 Dim N A Long
结 N = Val(Text1.Text)
构 程
F=1
序 For I = 1 To N
构 程 序
For I = 1 To 9 A=A+B

B=A+B

Text1.Text = Text1.Text & Str(A) & Str(B) & _
Chr(13) & Chr(10)
Next I
End Sub
8
思考:
1. 在窗体上打印1、3、5、7、9、…、N。 第 六 2. 在窗体上显示1到500之间所有能被3整除的数, 章 每行10个数。
序 (4)Exit For——退出循环,常放在条件语句中
设 计
(5)Next之后的循环变量应与For语句中的循环变量
应一致,也可以省略
2
【例6-1】求1+2+3+4+…+N
累加分析:

累加器(变量)初值 S=0
六 章
循环体(重复执行) S=S+I (I=1,2,…,N)
Private Sub Command1_Click()
斐波那契数列如下:
第 六 章
0,1,1,2,3,5,8,13,… 即从第三项起每一项是其前两项之和。
分析: ……
Private Sub Form_Click()
循 A = 0:B = 1
环 Text1.Text = Text1.Text & Str(A) & Str(B) & _

VB教程---循环结构幻灯片PPT

VB教程---循环结构幻灯片PPT

(2) Do Until …Loop语句
语法格式:
Do Until〈条件表达式〉
〈循环体〉

[Exit Do]

〈循环体〉 Loop
课 件
Dim S%, i% S=0 i=1 Do while s<=400
S=S+i i=i+1 Loop Print " S=",S
Dim S%, i% S=0 For i=1 to 100
〔3〕Do … Loop While语句
语法格式: Do 〈循环体〉 [Exit Do] 〈循环体〉 Loop While〈条件表达式〉
⑷ . Do …Loop Until语句
语法格式:
Do

〈循环体〉

[Exit Do]

〈循环体〉

Loop Until〈条件表达式〉
注意: ① 至少要执行循环体一次。

② Do While/Until和Loop应成对出现。


③ 循环体中要有控制循环的语句,以防止出

现死循环。
④ 由于该循环的特点是先判断条件,然后再 决定是否要执行循环体里的语句。所以,这 种循环可以一次也不执行循环体。
⑤ Exit Do 表示当遇到该语句时,强制退出 循环,执行Loop后的下一条语句
② 与Do While循环的区别: Do While循环先测试条件是否成立,只有 成立才执行循环;而该循环先执行循环体, 后测试条件是否成立。
例:输入有效位数,按下述公式计算圆周率∏的有效值。
教 学 课 件
m=val(text1.text) pai=2:p=0 Do
t=s:p=spr(2+p):pai=t*2/p Loop Until abs(t-s)<0.1^m

vb控制结构循环结构程序设计课件

vb控制结构循环结构程序设计课件
π/4=1- 1/3 + 1/5 -1/7 +…+(-1)n+11/2n-1+…
6.3 Do...Loop循环结构
Private Sub cmdPi_Click() Dim a As Single Dim m As Single Dim s As Integer Dim i As Integer s=1 i=1 Do m=1/i a=a+s*m i=i+2 s = -s Loop Until m < 0.0001 Text1.Text = a * 4
Print i j=j-1 k=k+1 Next Print j, k End Sub
练习:分析下面程序段结束时窗体上显示的值是多少?
(1) For i = 1 To 10
i2 = i2+1 Next Print i (11)
(2) i2=0 For i = 1 To -2 Step -1
i2 = i2+1 Next Print i , i2 (-3 4)
i=i+1 i2 = i2 + 1 i3 = i3 + 1 Next Print i, i2 (11 6)
(6)
i2 = 0
For i = 1 To 10
i2 = i2 + 1
If i > 6 Then Exit For
Next Print i, i2
(7 7)
(7)
i2 = 0
i = 10
Do
i2 = i2 + 1
Dim i As Integer, n As Integer, a As Integer '定义所需变量
n = Text1.Text

《vb循环结构》课件

《vb循环结构》课件
Do...Loop循环的执行流程如下:首先进入循环,然后进行条件判断,如果条件为真, 则执行循环体,接着再次进行条件判断,如果条件仍为真,则继续执行循环体,直到条
件为假,最后退出循环。
Do...Loop循环的示例
总结词
给出Do...Loop循环的一个具体示例 ,包括代码实现和运行结果。
详细描述
以下是一个使用Do...Loop循环计算1 到10的累加和的示例代码
01
```vb
02
Dim sum As Integer = 0
Dim i As Integer = 1
03
While循环的示例
While i <= 10 sum = sum + i
While循环的示例
• i=i+1
While循环的示例
Wend
VS
MsgBox "1到10之间所有整数的和 为:" & sum
Console.WriteLine("1到10的累加和为:" & sum)
Do...Loop循环的示例
01
```
02
在上述代码中,使用Do...Loop循 环从1到10进行累加,每次循环 将i的值加到sum变量中,并更新i 的值。当i大于10时,循环结束, 最终输出累加和的结果。
05
循环结构的嵌套
Do...Loop循环的语法结构包括Do关键字、 条件表达式和循环体三个部分。Do关键字 表示开始循环,条件表达式用于控制循环的 执行条件,循环体包含重复执行的代码块。
Do...Loop循环的执行流程
总结词
详细描述Do...Loop循环的执行流程,包括循环的启动、条件判断和循环体的执行等步 骤。

visual basic6-循环结构程序设计

visual basic6-循环结构程序设计

VB6-循环结构程序设计
15
一、 Do – Loop循环结构四种形式

3. 先执行循环体(条件在Loop之后)、使用While条件的组 合

Do <语句组1> [Exit Do] <语句组2> Loop While <条件> 循环体
循环体
F
条件表达式
T
下午2时7分23秒
VB6-循环结构程序设计
16
I=0: S=0 F
S+(I+1)^2<=N
N = Val(Text1.Text) I=0 : s=0 Do While s + (I + 1) ^ 2 <= N I=I+1 s=s+I*I Loop Text2.Text = s Label3.Caption = "I =" & Str(I) 下午2时7分23秒

下午2时7分23秒
VB6-循环结构程序设计
2
一、For – Next 循环结构的格式

For <循环变量>=<初值> To <终值> [Step <步长>] [<语句组1>]
[Exit For]
[<语句组2>] Next [循环变量]
循环体
下午2时7分23秒
VB6-循环结构程序设计
3
二、For – Next 循环结构的执行过程
I=1 T I>n F
循环体 Next I
Sum=Sum+I
I=I+1
Label3.Caption = Str(Sum)

VB6.0基础教程 之 第6章 Visual Basic常用标准控件

VB6.0基础教程 之 第6章 Visual Basic常用标准控件
第6 章
6.1 6.2 6.3 6.4 6.5 6.6 6.7 6.8 6.9
Basic常用标准控件 Visual Basic常用标准控件
概述 图形控件 单选按钮和复焦点与Tab Tab顺序 焦点与Tab顺序
1
6.2 图形控件
图片框(PictureBox)和图像框(Image) 功能:用于显示图形 Picture属性:设置图片框或图像框中要显示的图像文件名。可以在设计阶段设置 或在程序中设置。 LoadPicture函数一般格式: [对象.]Picture= LoadPicture(“文件名”)
复选框
2.复选框(CheckBox) Caption属性:文本标题。 Alignment属性 0:控件钮在左边,标题显示在右边。 1:控件钮在右边,标题显示在左边。 Value属性 0--Unchecked:未被选定 1--Checked:选定 2--Grayed:灰色,禁止选择 Style属性 0--Standard:标准方式 1--Graphical:图形方式 事件 Click
6.4 框架
用途:将窗体中的控件按功能或类别分组。
框架
6.4 框架
Caption属性:框架标题 Enabled属性 False,不允许对框架内的对象进行操作。 Visible属性 True:框架及其控件可见。 False:框架及其控件被隐含起来。 事件 Click、DblClick 一般不需要编写框架的事件过程。
例如:Dir1.Path=“C:\Mydir” 重要事件——Change事件 在程序运行时,每当改变当前目录,即目录列表框的Path属性发生变化时,都要触 发其Change事件。
文件列表框(FileListBox)
功能:显示当前目录中指定类型的所有文件。 Path属性:用于返回和设置当前目录。 要从文件列表框(File1)中获得全路径的文件名Fname,用下面的程序代码: If Right(file1.path,1) ="\" Else Fname=file1.path &"\"& file1.filename End If Then Fname=file1.path & file1.filename

VB程序设计课件(全套)

VB程序设计课件(全套)

在VB中,将反映对象的属性和行为封装在一起,是面向对 象编程的基本元素。
21
上一页
下一页
2.类的概念
本章目录
类是创建对象实例的模板,是同种对象的集合与抽象,它包 含所创建对象的属性描述和行为特征的定义。 例如,人类是人的抽象,一个个不同的人是人类的实例。各 个人具有不同的身高、体重等属性值和不同的行为。 在 VB中,工具箱上的可视图标是 VB系统设计好的标准控件 类。通过将控件类实例化,可以得到真正的控件对象,也就是 当在窗体上画一个控件时,就将类转换为对象,即创建了一个 控件对象,简称为控件。
25
上一页
下一页
事件
本章目录
2. 事件、事件过程和事件驱动 (1) 事件 事件就是发生在对象上的事情。同一事件,作用于不同的对 象,就会引发不同的反应,产生不同的结果。 例如,在学校,教室楼的铃声是一个事件,教师听到铃声就 要准备开始讲课,向学生传授知识;学生听到铃声,就要准备 听教师上课,接受知识;而行政人员对铃声可不于响应。 在VB中,系统为每个对象预先定义好了一系列的事件。 例如,单击 (Click) 、双击 (DblClick) 、改变 (Change) 、获 取焦点(GotFocus)、键盘按下(KeyPress)等。
9
上一页
下一页
VB功能特点
2 功能特点 1) 具有面向对象的可视化设计工具 2) 事件驱动的编程机制 3) 提供了易学易用的应用程序集成开发环境 4) 结构化的程序设计语言 5) 强大的数据库功能 6) Active技术 7) 网络功能 8) 多个应用程序向导 9) 完备的Help联机帮助功能
10
Visual Basic 程序设计简明教程
第一章 Visual Basic程序设计概述(2) 第二章 VB简单的程序设计(6) 第三章 VB语言基础(4) 第四章 基本的控制结构(8) 第五章 数组(5) 第六章 过程(4) 第七章 常用控件(2) 第八章 界面设计(2) 第九章 文件(2) 第十章 图形(1) 第十一章 数据库技术(自学) 第十二章 系统开发案例 (自学)

VB程序设计--循环结构ppt课件

VB程序设计--循环结构ppt课件

第五章 根本的控制构造 (5学时〕
5.1 顺序构造 5.2 选择构造 5.3 循环构造 5.4 其它辅助控制语句 5.5 常见错误 〔顺序、条件、循环〕
判别条件进展循环
• While循环
例:设

While <条件s>=1×2×3×……×n,
• <循环体>
求s不大于4000时的最 大的n。

wend
Private Sub Command1_Click() Max = 100 For i = 1 To 10
x = Int(Rnd * 101 + 100) Print x; If x > Max Then Max = x Next i Print Print "最大值="; Max End Sub
‘ e存放累加和、n存放阶

i=0 : t=1
‘ i计数器、t第i项的值
Do While t > 0.00001
e = e + t : i = i + 1 ‘ 累加、连乘
n=n*i: t=1/n
Loop
Print "计算了 "; i; " 项的和是 "; e
End Sub
2.求素数
判别某数m能否为素数最简单的方法是:
> 当条件为真时,继续执行循
环体,为假,退出循环体。 循环体至少执行一次
循环体
Exit Do
循环体 T 条件
F
Do循环控制构造
⑷ Do……loop until语句 do <循环体> [exit do] <循环体> loop until<条件表达

vb循环结构ppt课件

vb循环结构ppt课件

例:连乘求自然数1-30的乘积(即30的阶乘)
Private Sub Form_Click() s=1
For i = 1 To 10 s = s * I ‘ 赋值语句实现 Print i; "的阶乘是:"; s
Next i End Sub
11
思考?若把循环体前面置各变量初值的语句放在 循环体内,程序运行时会产生什么情况?
i=i+3 “有无此句结果有什么不同?
j=j+1 Print "第"; j; "次循环i="; i
Next i Print "退出循环后i="; i End Sub 正常情况:i=1,3,5,7,9,11,13,15,17,19 现在: i=4,9,14,19
9
★:常用算法:累加,连乘
算法:是对某个问题求解过程的描述
5
循环变量得到初值
循环变量在终值内
T 语句块
T 有Exit For
F
循环变量加步长
For…Next流程图 F
For 循环流程图
6
例: For I=2 To 13 Step 3
Print I ,
Next I
Print : Print “I=“, I
结果: 输出I的值分别为:
2 5 8 11
循环执行次数:
Next ii
For ii =1 To 10 For jj=1 To 20 … Next ii
Next jj
For ii =1 To 10 …
Next ii For ii =1 To 10
… Next ii
For ii =1 To 10 For ii=1 To 20 … Next ii

《Visual Basic程序设计》 第6章 循环结构程序设计

《Visual Basic程序设计》  第6章  循环结构程序设计
2 2020整 步长:+:≤终值,-:≥终值;缺省为1 语句块:循环体 Exit For:强制退出循环 循环次数:n=Int((终值-初值)/步长
+1)
3 2020/1/11
二、 while循环
其格式如下: While <条件表达式> [循环体] Wend 该循环格式中的<条件表达式>一般为布尔表
达式,也可以是数值和字符表达式,结果为 True或False,用来表示一个判断条件。
4 2020/1/11
该语句的执行过程是: 首先计算给定的<条件表达式>的值,如 果结果为 True(非0值),则执行循环体, 当遇到Wend语句时,控制返回并继续对< 条件表达式>进行测试,如果仍然为True, 重复上述过程;如果<条件表达式>的结果 为False,则不执行循环体,直接执行 Wend后面的语句。
7 2020/1/11
2. 说明
While:条件为真时循环,又称“当”循环 Until:条件为假时循环,又称“直到”循环 无<条件>子句时(仅有Do…Loop),则无
条件循环,此时必须有Exit Do,否则为死 循环。
8 2020/1/11
6.2 循环的嵌套
在处理实际问题时,常常要在循环体 内再进行其他循环操作,在内嵌的循环 中还可以再包括循环,这种在一个循环 的循环体内又含有另外一个循环的循环 结构称之为多重循环,也称为循环的嵌 套。
嵌套时,内层循环必须完全包含在外 层循环之内,不能相互“骑跨”。
多重循环的执行过程是,外循环每 执行一次,内循环都要从头到尾执行一 遍。
9 2020/1/11
5 2020/1/11
三、Do…Loop循环语句

vb第6章 循环结构

vb第6章 循环结构
《Visual Basic 程序设计》
想一想
D
B. 1 2 3 4 D. 1 1 1 4
第6章 P 14
PAN XIAONAN
6.3
While循环 While循环
前面我们介绍了For…Next循环, 前面我们介绍了For…Next循环,它适合于解 For 循环 决循环次数事先能够确定的问题。 循环次数事先能够确定的问题。 的问题 对于只知道控制条件 只知道控制条件, 对于只知道控制条件,但不能预先确定需要 执行多少次循环体的情况,我们可以使用While 执行多少次循环体的情况,我们可以使用While 循环。 循环。
《Visual Basic 程序设计》 第6章 P2
PAN XIAONAN
用循环语句解决上面的问题,程序非常简短: 用循环语句解决上面的问题,程序非常简短: Private Sub Form_Click() Dim s&, x% s=0 For x = 1 To 99 Step 2 s = s + x ^2 Next x "1~100所有奇数的平方和 所有奇数的平方和="; Print "1~100所有奇数的平方和="; s End Sub
PAN XIAONAN
3、流程图: ①赋值 循环变量赋初值 、流程图: ②比较 True 循环变量超过终值? 循环变量超过终值 ③执行 ④+步长 步长 循环变量加上一个步长
False
循环体
《Visual Basic 程序设计》
第6章
P6
PAN XIAONAN
4、举例: 、举例:
X为循环变量
For x = 1 To 10 Step 3 print x , Next x 分析: 分析

循环结构程序设计PPT课件

循环结构程序设计PPT课件

2020/12/29
3
6.1 问题的提出
利用前面所学的知识,同学们已经可以编程解决 以下问题
计算班级3名学生的总成绩及平均成绩 计算sum=1+2+3+4+5 如果在第1题里是一个班级30名同学的成绩呢? 如果在第2题里是计算sum=1+2+3+…+n-1+n (n=1000)呢?
2020/12/29
}
2020/12/29
19
6.4 for语句
一般形式 for([表达式1];[表达式2];[表达式3]) 语句 此处无;
for
执行流程
表达式1
表达式2
假(0)
真(非0)
语句
执行表达式1 当表达式2为真时
do 语句
while(表达式);
do
此处有;
真(非0)
语句
语句
当表达式为真时
while
表达式
假(0)
特点:先执行循环体内语句,后判断表达式
2020/12/29
15
100
例:用do~while循环求 n n 1
#include <stdio.h> int main() { int n,sum=0;
{ int i,sum=0;
{ int i,sum=0;
scanf("%d",&i);
scanf("%d",&i);
do
while(i<=10)
{ sum+=i;
{ sum+=i;
i++;
i++;
}while(i<=10);
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
End Sub
Do Until i = 100
例6-3:求 1+22+32+……n2大于1000的最小值。
选Do … Loop语句: 不知道要加到第几项,但知道累加和大于 1000,并且,第一次超过1000时就不再累 加了,所以选Do … Loop语句。
求项数(计数i): i=0(初值) ,i=i+1(重复执行)
例: 利用随机函数10个产生[20,90]的整数, 求其平均值.
界面设计: 单击窗体, 显
示结果如图.
例: 利用随机函数10个产生[20,90]的整数, 求其平均值.
分析: 产生数X 求和s
求平均a
产生一个X: X=Int(Rnd*71+20)
显示产生的值: Print x
计算和: s=s+x
重复10次 求得这10 个数的和s
Private Sub Form_Click( ) Dim i As Integer i=0 Do While i < 100 i=i+1 Print i; If i Mod 10 = 0 Then Print Loop
End Sub
用Do Until … Loop循环来编制 例6-2的程序
Private Sub Form_Click() Dim i As Integer i=0 Do While i < 100 i=i+1 Print i; If i Mod 10 = 0 Then Print Loop
If Max <= x Then Max = x Next i Print Print “最大值为:”; Max End Sub
6.4 循环嵌套
循环嵌套:在一个循环语句的循环体中又包含有另一 循环语句。 VB的三种循环可以自身嵌套与相互嵌套 要求:内层结构一定包含在外层结构中,不能交叉
Do While … …
For k= …
Next k Loop
For k= …
Do While … … Loop Next k
Do while Do While … … Loop …
Loop
For k= …
Do While … …
Next k … Loop
Do While … …
For k= …
④ For后面的循环变量和Next后面的循 环变量是同一个变量(变量名和类型相同) 单循环时,Next后面的循环变量可以省略
⑤ 可以在循环体中加上Exit For语句或 GoTo语句,中途退出For … Next循环。
例:求 k=1+2+3+ …+ n(n为自然数)
分析:k=0 k=k+1 k=k+2 k=k+3 k=k+4 … k=k+n
知道重复执行语句的次数
4.引入循环
例6-1:在窗体上显示1到10 十个自然数。 (1)程序代码 Form1.Print 1;2;3;4;5;6;7;8;9;10 (2)注意 Print后面的参数似乎编写得有点累赘冗长。 如果让我们显示100个自然数,其程序代码的设
计就非常不可取了。 其实,这里面就含有了“循环”的理论,100个
自然数参数,就是100次循环,解决这类问题, 程序代码采用循环结构编程,其可读性就大大提 高了。
6.2.1 Do While | Until … Loop语句
Do While <循环条件>
[<语句序列1>]
[Exit Do]
循环体
[<语句序列2>]
Loop Do Until<循环条件>
[<语句序列1>]
End Sub
6.2.1 Do While | Until … Loop语句
Do
[<语句序列1>] [Exit Do]
循环体
[<语句序列2>]
Loop While <循环条件>
Do [<语句序列1>]
[Exit Do]
循环体
[<语句序列2>]
Loop Until<循环条件>
语句序列 (循环体)
条件判断 False
x= 4 y= 12 z= 7 a=10
X=2 ,3 ,4 Y=8 ,10,12 Z=3 , 5, 7 a=2( 8,3)
3 a=a+步长=3+3
6 6<=8? True
7 a=a+步长=7+3
10 10<=8? False
For…Next语句的几点说明
③超过的两个含义: 当步长为正时,循环结束条件为大于终值 当步长为负时,循环结束条件为小于终值
True
Do … Loop While程 序流程图
至少执行一次 循环体
Do ... Loop Until 程序流程图
语句序列 (循环体)
条件判断
True
False
用Do...Loop Until语句,重新编写例 6-3的程序代码。
Private Sub Form_Click()
Dim Sum As Integer, i As Integer
Label3.Caption = "它们的最大公约数是:" & m
Label4.Caption = "它们的最小公倍数数是:" & t / m End Sub
6.3 For … Next 语句
计数型循环语句:主要用于循环次数已知 的情况下,编写循环结构的程序代码。
For 循环控制变量 = 初值 To 终值 [Step 步
0+1=1 1+2=3 3+3=6 6+4=10
1+2+ …+(n-1) +n
初值:k=0 重复执行: k=k+i (i=1,2,3,4,….,n)
Private Sub Command1_Click()
Dim n%, i%, k&
当步长为1时,Step 1可省略
n = Val(InputBox(“Input n:"))
例6-5:输入2个正整数,求它们的 最大公约数和最小公倍数
231和63的最大公约数
古希腊数学家欧几里德的“辗转相除法”理论 ①在给出的两个正整数中,变量m(较大) ,
变量n(放较小)。 ②m除以n,得出余数r。 ③若r≠0,则 n→m,r→n,转到②。 ④若r=0,则n的值就是这两个正整数的最大
公约数。
For i = 1 To n
k=0
k=k+i
For i = 1 To n Step 1
Next i
k=k+i Next i Print “k="; k
For i = n To 1 Step -1 k=k+i
Next i
End Sub
在本例中,For循环结束后i 的值为? n+1(步长)
计算 n! ,如何修改程序?
①在给出的两个正整数中,变量m(较大) , 变量n(放较小)。
m = Val(Text1.Text) n = Val(Text2.Text) If m < n Then t = m: m = n: n = t
m=231 n=63
②m除以n,得出余数r。 ③若r≠0,则 n→m,r→n,转到②。 ④若r=0,则n的值就是这两个正整数的最大公约数。
长]
[<语句序列1>] [Exit For]
循环体
[<语句序列2>]
Next [<循环控制变量>]
61.35 F9or … Next 语句的流程图
For n=1 To 10 Step 4 Print n;
没有 Next n
nn==15913
1593<<==1010TrFuaelse
n=n+4=159+4=5913
[Exit Do] [<语句序列2>]
循环体
Loop
条件判断
False
True
语句序列 (循环体)
Do While … Loop程序流程图
Do Until ... Loop程序流程图
条件判断
True
False
语句序列 (循环体)
例6-2:单击窗体,在窗体上显示1 到100的自然数,每行显示10个数。
求平均a: a=s/10 显示计算结果: Print “平均值为”;a
Private Sub Form_Click()
s=0
For k = 1 To 10
a的值保留二位小数?
x = Int(Rnd * 71 + 20)
Print x s=s+x Next k a = s / 10
Round(a,2) Format(a,“#.00”)
Int(a*100+0.5)/100
Print "平均值为"; a
End Sub
例:找最大值。
利用随机函数产生并显示30个0 到100之间的整数,找出其中的 最大值。
Max:用于保存当前的最大值
其初值为0(小于所有产生的数)
Private Sub Form_Click() Randomize Max = 0 For i = 1 To 30 x = Int(Rnd * 100) Print x;
重复环节的关联却是明显的,而且,前 后的规律性也是可寻的。
在计算机出现之后,处理重复环节的问 题就显得非常简单。
6.1 循环的概念
计算机的特点之一就是,可以在程序 控制下严格地执行着重复的操作,并 可让重复环节在每一次的循环中有所 改变。
相关文档
最新文档