VBA编程实现燃气-蒸汽联合循环性能计算

口中显 示 的变 量 并 不 影 响 窗 体 的 正 常 显示 。 “ Ｄ ｉ ｍ ｒ ａ ， ｒ ｇ ， ｒ ｐ ， Ｒ ｐ ａ ， Ｒ ｐ ｇ ， Ｂ ｉ ｌ ｌ ， Ｃ ｐ ａ ， Ｔ ａ Ａ ｓ Ｄ ｏ ｕ ｂ ｌ ｅ ” 这 句 代 码的意思是定义双精度变 量 ｒ ａ ， ｒ ｇ ， ｒ ｐ ， Ｒ ｐ ａ ， Ｒ ｐ ｇ ， ｎ ｎ ｌ ， Ｃ ｐ ａ和 ｒ ｒ ａ 。
Ｄｉ ｍ Ｔ ｇ ｌ ，Ｔ ｇ ４ Ａｓ Ｄｏ ｕ ｂ ｌ ｅ
＃ 黯 ” ｗ ；
粉龇 窖 ｃ ～ ｋ （ 瞄
讯
“
■磊
诫 ｊ
ｔ
．．
ｎ ．
ｌ
嚣
萧 一
Ｄｊ ｍ ｈ１ ｆ Ａｓ Ｄｏ ｕ ｂ ｌ ｅ
Ｄｉ ｍ ｍｇ Ａｓ Ｄｏ ｕ ｂ ｌ ｅ Ｔ ａ１： Ｔ ４ Ｔ ｇ ４： ３ ９ ３． １ ５ ｈ１ ｆ： ０ ９ ８ ５ ｍｇ ＝ ｍ ａ＋ ｍ ｆ
２燃 烧 室 计 算
Ｄｉ ｍ ｍｆ ． Ｃｐ ｇ Ａｓ Ｄｏ ｕ ｂ ｌ ｅ Ｃｐ ｇ＝ １ ． ８ ０ ８ ３ — ０． ０ ０ ２ ３ １ ２ ７ Ｔ Ｉ Ｔ ４ －０． ０ ０ ０ ０ ０ ４０ ４５ Ｔ Ｉ Ｔ ＴＩ Ｔ一０ ０ ０ ０ ０ ０ ０ ０ ０ １ ７ ３ ６ ３ ＴＩ Ｔ ＊ＴＩ Ｔ Ｔ Ｉ Ｔ
在 修 改 完 所 有 的 程 序 错 误 之 后 ，就 可 以 选 择 “ 运 行 子过 程／ 用 户 窗 体 ” 直 接 运 行 程 序 了 。运 行 完 的程 序 如 图 ６所示 。
；
Ｓ Ｆ Ｃ ＝３ ６ ０ ０ ｆ／ Ｗ Ｇｎ ｅ ｔ Ｑａ ｄ ｄ＝ｆ Ｌ ＨＶ ｎ ｔ ｈ： Ｗ Ｇｎ ｅ ｔ｜ Ｑａ ｄ ｄ
ｌ
＿
Ｊ
’
“
…
ｆ
’
ｌ
实用第一 智慧密集
． ． ． …
１压 气 机 计 算
Ｄｉ ｍ ｒ ｅ ， ｒ ｇ ，ｒ ｐ 。Ｒ ｐ ａ ， Ｒｐ ｇ， ｎ ｍ， Ｃｐ ａ ， Ｔ ａ Ａｓ Ｄｏ ｕ ｂ ｌ ｅ
ｒ ａ＝ １ ． ４
“ ” ’
ＨＲ ： ３ ６ ０ ０，ｎ ｔ ｈ Ｄｅ ｂ ｕ ｇ ． Ｐｒ ｉ ｎ ｔ“ ＨＲ＝“ ： ＨＲ
单ｍ
；
蠢
奠 ｌ ｌ ¨ 。 ｌ
ｉ
： ： ：
— — 三 — 二 — 二■ —
莓ｊ
４蒸 汽 轮 机 计 算
Ｄｉ ｍ Ｑａ ｖ ， ｍｓ ， Ｗ ｓ ｔ Ａｓ Ｄｏ ｕ ｂ ｌ ｅ
Ｃｐ ｆ Ｔ ｆ～ Ｃｐ ｇ ＴＩ Ｔ １ ｆ＝ ｍｆ／ｍａ
ｓ ｉ ｔ ａ＝ ＴＩ Ｔ／Ｔ１
体 ” 等 几个 选 项 。选 择 “ 逐句读”时可以按 “ Ｆ ８ ”键 ，每 按 一
次 键 程 序运 行 一 行 。如 果 选 择 “ 运行到光标处”可以按 “ Ｃ ｔ ｒ ｌ ＋
读 ”的 方 式 可 以很 快 发 现 程 序 中的 所 有错 误 。
Ｔ ４＝Ｔ ３ （ １一 ｎ ｔ Ｒ ｐ ｇ ）
Ｗ ｔ： Ｃｐ ｇ ＴＩ Ｔ ｎ ｔ Ｒｐ ｇ／ｎ ｍ Ｗ Ｇｎ ｅ ｔ＝ Ｗ ｔ— Ｗ ｃ Ｐ ： ｍａ Ｗ Ｇｎ ｅ ｔ
Ｄｅ ｂ ｕ ｇ． Ｐ ｒ ｉ ｎ ｔ” Ｐ： “ ： Ｐ
３燃 气 透 平 计 算
Ｄｉ ｍ Ｔ ３． Ｔ４ ． Ｗｔ ， Ｗ Ｇｎ ｅ ｔ ，Ｐ ， ＳＦ Ｃ，Ｑａ ｄ ｄ ， ｎ ｔ ｈ ， ＨＲ Ａｓ Ｄｏ ｕ ｂ ｌ ｅ
Ｔ ３ ＝ ＴＩ Ｔ
Ｆ ８ ”键 ，这 样 就 会 运 行 到 光 标 处 。如 果 选 择 “ 运行 子过程， 用 户窗体 ”可 以按 “ Ｆ ５ ” 键 ， 这 样 可 以 一 次 运 行 完 所 有 程 序 代 码 ，但 是 这 样 就 发 现 不 了程 序 中存 在 的 错 误 了 。 选 择 “ 逐 句
“
ｎ ａ ｉ ｌ ＝ ”； ｎ ａ ｌ ｌ ” 是 在 立 即窗 口中 显 示 变 量 ｎ ａ ｌ ｌ 的值 。 在 立 即窗
ｒ ｐ＝ Ｐ ２／Ｐ １ ， （ １ ） Ｔ ２： Ｔ １ （ １＋（ ｒ ｐ （ （ ｒ ａ一 １ ） ／ｒ ａ ）一 １ ） ／ｎ ｃ ） 《 ３ ） Ｒ ｐ ａ： （ ｒ ｐ （ （ ｒ ａ一 １ ） ／ｒ ｅ ）一 １ ） ／ｎ ｃ Ｒ ｐ ｇ＝ （ １一 （ １／（ ｒ ｐ “ ｒ ｇ一 １ ） ／ｒ ｇ ） ） ） ）
在 Ｖ Ｂ Ａ 中 可 以一 次 定 义 多 个 变 量 。
Ｔ ａ＝ （ Ｔ １ －Ｔ ４ ２ ） ／ ２
Ｃ ｐ ａ＝ １ ． ０ ２ Ｗ ｃ＝ Ｃ ｐ ａ Ｔ１ Ｒｐ ａ／ｎ ｍ
最 后 ．应该 注 意 的是 ：在 Ｖ Ｂ Ａ 中每 句 代 码 的 结 束 不 需 要 增 加 标 点符 号 ，在 Ｖ Ｂ Ａ中 能像 在 Ｖ Ｃ ＋ ＋ 中那 样 每 句 代 码 结 束 都 要 加 英语 中分 号 。
３ 程 序 计 算 结 果
编 制好 程 序 之 后 ，就 可 以运 行 程 序 了 。在 运 行 程 序 时 可 以Leabharlann Baidu
选择 “ 逐 句读 ” 、 “ 运行 到光 标处 ”和 “ 运 行 子 过 程／ 用 户 窗
ｍｆ＝ ｍａ （ Ｃｐ ｇ ＴＩ Ｔ — Ｃｐ ａ Ｔ１ （ １＋ Ｒ ｐ ｇ ） ）／（ Ｌ ＨＶ ＋
，
该 段 程 序 代 码 中 ，如 果 用 来 注 释 的 文 字 可 以 在 文 字 前 加
注 意 这 个 单 引号 是 英 文 的单 引 号 ，不 是 中文 中 的单 引 号 ，
ｒ ｇ＝ １ ． ３ ３ ｎ ｍ ＝０ ． ９ ９
例 如 “， ５ 总 参 数 ” 所 示 。 另 外 程 序 中 的 “ Ｄ ｅ ｂ ｕ ｇ ． Ｐ ｒ ｉ ｎ ｔ