| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 |
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _分析按钮_被单击 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 水池总容量 | 双精度小数型 | |||||
| 水池当前水量 | 双精度小数型 | |||||
| 每秒进水量 | 双精度小数型 | |||||
| 每秒出水量 | 双精度小数型 | |||||
| 水池装满的时间 | 双精度小数型 | |||||
| 水降到底的时间 | 双精度小数型 | |||||
水池总容量 ＝ 到数值 (水池总容量编辑框.内容)
水池当前水量 ＝ 到数值 (水池当前水量编辑框.内容)
每秒进水量 ＝ 到数值 (每秒进水量编辑框.内容)
每秒出水量 ＝ 到数值 (每秒出水量编辑框.内容)
水池状态编辑框.内容 ＝ “”
如果真 (水池总容量 ＞ 0) ' 要是水池有容量时
如果真 (水池当前水量 ≤ 水池总容量) ' 要是水池当前水量，小于或等于水池总容量时如果真 (每秒进水量 ＞ 0 或 每秒出水量 ＞ 0) ' 要是水池有进水，或有出水时如果真 (每秒进水量 ＞ 0 且 每秒出水量 ≤ 0) ' 要是水池只有进水，没有出水时水池装满的时间 ＝ 四舍五入 ( (水池总容量 － 水池当前水量) ÷ 每秒进水量, 2) ' 保留两位小数水池装满的时间编辑框.内容 ＝ 到文本 (水池装满的时间) ' 在这个编辑框显示水池装满的时间水降到底的时间编辑框.内容 ＝ “” ' *** 缩略程序块 ***水池状态编辑框.加入文本 (“水池总容量有” ＋ 到文本 (水池总容量) ＋ “立方米，”)如果真 (水池当前水量 ＞ 0) ' 要是水池当前水量大于零,显示水池当前水量这个条件水池状态编辑框.加入文本 (“水池当前水量有” ＋ 到文本 (水池当前水量) ＋ “立方米，”)水池状态编辑框.加入文本 (“水池每秒进水量为” ＋ 到文本 (每秒进水量) ＋ “立方米。”)水池状态编辑框.加入文本 (“水池装满需要多少秒？” ＋ #换行符 ＋ #换行符 )水池状态编辑框.加入文本 (“解：”)如果真 (水池当前水量 ＞ 0) ' 要是水池当前水量大于零，显示减去当池当前水量的计算水池状态编辑框.加入文本 (“(” ＋ 到文本 (水池总容量) ＋ “-”)水池状态编辑框.加入文本 (到文本 (水池当前水量) ＋ “)”)
如果真 (水池当前水量 ≤ 0) ' 要是水池当前水量小于等于零，忽略减去当池当前水量的计算水池状态编辑框.加入文本 (到文本 (水池总容量))水池状态编辑框.加入文本 (“÷” ＋ 到文本 (每秒进水量) ＋ “=”)水池状态编辑框.加入文本 (到文本 (水池装满的时间) ＋ “(” ＋ “秒” ＋ “)” ＋ #换行符 )水池状态编辑框.加入文本 ( #换行符 ＋ “答：水池装满需要” ＋ 到文本 (水池装满的时间) ＋ “秒。”)如果真 (每秒出水量 ＞ 0 且 每秒进水量 ≤ 0) ' 要是水池只有出水，没有进水时水降到底的时间 ＝ 四舍五入 (水池当前水量 ÷ 每秒出水量, 2) ' 保留两位小数水降到底的时间编辑框.内容 ＝ 到文本 (水降到底的时间) ' 在这个编辑框显示水降到底的时间水池装满的时间编辑框.内容 ＝ “” ' *** 缩略程序块 ***水池状态编辑框.加入文本 (“水池总容量有” ＋ 到文本 (水池总容量) ＋ “立方米，”)水池状态编辑框.加入文本 (“水池当前水量有” ＋ 到文本 (水池当前水量) ＋ “立方米，”)水池状态编辑框.加入文本 (“水池每秒出水量为” ＋ 到文本 (每秒出水量) ＋ “立方米。”)水池状态编辑框.加入文本 (“水降到池底需要多少秒？” ＋ #换行符 ＋ #换行符 )水池状态编辑框.加入文本 (“解：”)水池状态编辑框.加入文本 (到文本 (水池当前水量) ＋ “÷” ＋ 到文本 (每秒出水量) ＋ “=”)水池状态编辑框.加入文本 (到文本 (水降到底的时间) ＋ “(” ＋ “秒” ＋ “)” ＋ #换行符 )水池状态编辑框.加入文本 ( #换行符 ＋ “答：水降到池底需要” ＋ 到文本 (水降到底的时间) ＋ “秒。”)如果真 (每秒进水量 ＞ 0 且 每秒出水量 ＞ 0) ' 要是水池有进水，也有出水时如果真 (每秒进水量 ＝ 每秒出水量) ' 要是水池进水量，等于水池出水量水池装满的时间编辑框.内容 ＝ “”水降到底的时间编辑框.内容 ＝ “”水池状态编辑框.加入文本 (“当前水池进水量与出水量一样，”)水池状态编辑框.加入文本 (“无法计算水池装满水的时间，和水降到池底的时间！”)如果真 (每秒进水量 ＞ 每秒出水量) ' 要是水池进水量，大于水池出水量水池装满的时间 ＝ 四舍五入 ( (水池总容量 － 水池当前水量) ÷ (每秒进水量 － 每秒出水量), 2) ' 保留两位小数水池装满的时间编辑框.内容 ＝ 到文本 (水池装满的时间) ' 在这个编辑框显示水池装满的时间水降到底的时间编辑框.内容 ＝ “” ' *** 缩略程序块 ***水池状态编辑框.加入文本 (“水池总容量有” ＋ 到文本 (水池总容量) ＋ “立方米，”)如果真 (水池当前水量 ＞ 0) ' 要是水池当前水量大于零,显示水池当前水量这个条件水池状态编辑框.加入文本 (“水池当前水量有” ＋ 到文本 (水池当前水量) ＋ “立方米，”)水池状态编辑框.加入文本 (“水池每秒进水量为” ＋ 到文本 (每秒进水量) ＋ “立方米，”)水池状态编辑框.加入文本 (“水池每秒出水量为” ＋ 到文本 (每秒出水量) ＋ “立方米。”)水池状态编辑框.加入文本 (“水池装满需要多少秒？” ＋ #换行符 ＋ #换行符 )水池状态编辑框.加入文本 (“解：”)如果真 (水池当前水量 ＞ 0) ' 要是水池当前水量大于零，显示减去当池当前水量的计算水池状态编辑框.加入文本 (“(” ＋ 到文本 (水池总容量) ＋ “-”)水池状态编辑框.加入文本 (到文本 (水池当前水量) ＋ “)”)如果真 (水池当前水量 ≤ 0) ' 要是水池当前水量小于等于零，忽略减去当池当前水量的计算水池状态编辑框.加入文本 (到文本 (水池总容量))水池状态编辑框.加入文本 (“÷” ＋ “(” ＋ 到文本 (每秒进水量) ＋ “-”)水池状态编辑框.加入文本 (到文本 (每秒出水量) ＋ “)” ＋ “=”)水池状态编辑框.加入文本 (到文本 (水池装满的时间) ＋ “(” ＋ “秒” ＋ “)” ＋ #换行符 )水池状态编辑框.加入文本 ( #换行符 ＋ “答：水池装满需要” ＋ 到文本 (水池装满的时间) ＋ “秒。”)如果真 (每秒进水量 ＜ 每秒出水量) ' 要是水池出水量，小于水池进水量如果真 (水池当前水量 ＞ 0) ' 要是水池当前水量等于零水降到底的时间 ＝ 四舍五入 (水池当前水量 ÷ (每秒出水量 － 每秒进水量), 2) ' 保留两位小数水降到底的时间编辑框.内容 ＝ 到文本 (水降到底的时间) ' 在这个编辑框显示水降到底的时间水池装满的时间编辑框.内容 ＝ “” ' *** 缩略程序块 ***水池状态编辑框.加入文本 (“水池总容量有” ＋ 到文本 (水池总容量) ＋ “立方米，”)水池状态编辑框.加入文本 (“水池当前水量有” ＋ 到文本 (水池当前水量) ＋ “立方米，”)水池状态编辑框.加入文本 (“水池每秒进水量为” ＋ 到文本 (每秒进水量) ＋ “立方米，”)水池状态编辑框.加入文本 (“水池每秒出水量为” ＋ 到文本 (每秒出水量) ＋ “立方米。”)水池状态编辑框.加入文本 (“水降到池底需要多少秒？” ＋ #换行符 ＋ #换行符 )水池状态编辑框.加入文本 (“解：”)水池状态编辑框.加入文本 (到文本 (水池当前水量) ＋ “÷” ＋ “(”)水池状态编辑框.加入文本 (到文本 (每秒出水量) ＋ “-” ＋ 到文本 (每秒进水量) ＋ “)” ＋ “=”)水池状态编辑框.加入文本 (到文本 (水降到底的时间) ＋ “(” ＋ “秒” ＋ “）” ＋ #换行符 )水池状态编辑框.加入文本 ( #换行符 ＋ “答：水降到池底需要” ＋ 到文本 (水降到底的时间) ＋ “秒。”)如果真 (水池当前水量 ≤ 0) ' 要是水池当前没有水水池状态编辑框.内容 ＝ “由于水池当前没有水，且水池的出水量大于进水量，无法计算！” ' 给出提示
如果真 (每秒进水量 ≤ 0 且 每秒出水量 ≤ 0) ' 要是水池没有进水,也没有出水水池状态编辑框.内容 ＝ “请输入水池的进水量或出水量！” ' 给出提示每秒进水量编辑框.获取焦点 ()如果真 (水池当前水量 ＞ 水池总容量) ' 要是水池当前容量大于水池总容量水池状态编辑框.加入文本 (“水池当前的水量不能大于水池的总容量！” ＋ #换行符 ) ' 给出提示水池状态编辑框.加入文本 (“请修改水池的总容量，或修改水池当前的水量！”) ' 给出建议水池总容量编辑框.获取焦点 ()如果真 (水池总容量 ≤ 0) ' 要是水池没有容量水池状态编辑框.内容 ＝ “请输入水池的总容量！” ' 给出提示水池总容量编辑框.获取焦点 ()
