本课全程无难点……
作业是把程序写入子程序，通过投递参数完成。
命令：
寻找文件（）
取文件尺寸（）
取文件时间（）
列表框.加入项目（）
.版本 2
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
.局部变量 找到的文件, 文本型
.局部变量 文件时间, 日期时间型
.局部变量 文件大小, 双精度小数型
找到的文件 ＝ 寻找文件 (编辑框1.内容 ＋ “\” ＋ “*.exe”, )
.判断循环首 (找到的文件 ≠ “”)
找到的文件 ＝ 寻找文件 (, )
文件大小 ＝ 四舍五入 (取文件尺寸 (编辑框1.内容 ＋ “\” ＋ 找到的文件) ÷ 1024, 1)
文件时间 ＝ 取文件时间 (编辑框1.内容 ＋ “\” ＋ 找到的文件)
列表框1.加入项目 (找到的文件 ＋ “|” ＋ 到文本 (文件时间) ＋ “|” ＋ 到文本 (文件大小) ＋ “kb”, )
.判断循环尾 ()
查找文件子程序 (编辑框1.内容)
.子程序 查找文件子程序
.参数 文件路径, 文本型
.局部变量 找到的文件, 文本型
.局部变量 文件时间, 日期时间型
.局部变量 文件大小, 双精度小数型
找到的文件 ＝ 寻找文件 (文件路径 ＋ “\” ＋ “*.exe”, )
.判断循环首 (找到的文件 ≠ “”)
找到的文件 ＝ 寻找文件 (, )
文件大小 ＝ 四舍五入 (取文件尺寸 (编辑框1.内容 ＋ “\” ＋ 找到的文件) ÷ 1024, 1)
文件时间 ＝ 取文件时间 (编辑框1.内容 ＋ “\” ＋ 找到的文件)
列表框1.加入项目 (找到的文件 ＋ “|” ＋ 到文本 (文件时间) ＋ “|” ＋ 到文本 (文件大小) ＋ “kb”, )
.判断循环尾 ()
返回 ()
