ｓｔ７．Ａｄｄｈｅｍ（ＧＱ（ｋ）） Ｅｌｓｅｌｆｋ＜＝２６１８８８ Ｔｈｅｎ Ｌｉｓｔ８．Ａｄｄｈｅｍ（ＧＱ（ｋ）） Ｅｌｓｅｌｆｋ＜＝２９４６２４ Ｔｈｅｎ 一７７— 万方数据 Ｌｉｓｔ９．Ａｄｄｈｅｍ（ＧＱ（ｋ）） ＥｉｓｅＩｆｋ＜＝３２７３６０ Ｔｈｅｎ Ｌｉｓｔｌ０。

    Ａｄｄｌｔｅｍ（ＧＱ（ｋ）） ＥｌｓｅＩｆＩｃ＜＝３６００９６ Ｔｈｅｎ Ｌｉｓｔｌｌ：ＡｄｄＩｔｅｍ（ＧＱ（ｋ）） Ｅｌｓｅｌｆｋ＜＝３９２８３２ Ｔｈｅｎ Ｌｉｓｔｌ２．Ａｄｄｌｔｅｍ（ＧＱ（ｋ）） Ｅｎｄ Ｉｆ Ａｌ ＭＮ＝ＭＮ＋９ ＭＣ＝１ Ｆｏｒｊ＝ｌ Ｔｏ ｍ ＭＣ＝－ＭＣ。

    Ｖａｌ（Ｍｉｄ（ＭＮ，ｊ．１）） Ｎｅｘｔ ｊ ｌｆＭＶ＜＞ＭＣ Ｔｈｅｎ Ｇｏ Ｔｏ Ａ Ｅｌｓｅ Ｅｎｄ Ｉｆ ＭＢ＝０ ＭＸ＝０ Ｆｏｒ ｊ＝ｌ Ｔ０ ｒｎ ＭＢ＝ＭＢ＋ｊ ＭＸ＝ＭＸ＋Ｖａｌ（Ｍ．ｄ（ＭＮ．ｊ。

    １）） Ｎｅｘｔ ｊ ｌｆＭＢ＜＞ＭＸ Ｔｈｅｎ ＧｏＴｏ Ａ　 Ｅｌｓｅ Ｅｎｄ Ｉｆ ＭＹ＝０ ＭＺ一０ Ｆｏｒ ｊ一１ Ｔｏ ｍ ＭＹ—ＭＹ＋ｊ‘２ ＭＺ＝ＭＺ＋Ｖａｌ（Ｍｉｄ（ＭＮ．ｊ，１））‘２ Ｎｅｘｔ ｉ ＩｆＭＹ＜＞ＭＺ Ｔｈｅｎ ＧｏＴｏ Ａ ＥＩｓｅ Ｅｎｄ Ｉｆ Ｎｅｘｔ ｋ Ｐｒｉｎｔ Ｓｐｃ（６）；”第ｍ！个排列应是最大数，据此可以判断结果的正确性。

    一 Ｐｒｉｎｔ Ｓｐｃ（６）Ｉ”ＧＱ（”；ＭＶ；”）＝”；ＧＱ（ＭＶ） Ｅｎｄ Ｓｕｂ Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ２ｗＣｌｉｃｋ（） Ｍｉｎ＝ＩｎｐｕｔＢｏｘ（”请输入初始比较数据，其值比列表框中最小一个稍大即可一，一输入数据一，，２０００，４０００） Ｆｏｒ ｋ＝ｌ Ｔｏ ＭＶ Ｍｉｎ＝Ｉｌｆ（Ｍｉｎ＜ＧＱ（ｋ），Ｍｉｎ，ＧＱ（ｋ）） Ｎｅｘｔ ｋ Ｆｏｒ ｋ＝ｌ Ｔｏ ＭＶ Ｉｆ Ｉｎｔ（ＧＱ（ｋ）／１０‘ＩＴＩ）＝Ｉｎｔ（Ｍｉｎ／１０‘ｍ）Ｔｈｅｎ Ｌｉｓｔｌ３．ＡｄｄＩｔｅｍ（ＧＱ（ｋ）） Ｅｌｓｅ Ｅ：ｎｄ Ｉｆ 一７８—万方数据 Ｎｅｘｔ ｋ Ｅｎｄ Ｓｕｂ Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ３－－Ｃｌｉｃｋ（） Ｆｏｒ ｋ＝１ Ｔｏ ＭＶ Ｍａｘ＝１１ｆ（Ｍａｘ＞ＧＱ（ｋ），Ｍａｘ，ＧＱ（ｋ）） Ｎｅｘｔ ｋ Ｆｏｒ ｋ＝１ Ｔｏ ＭＶ ＩｆＩｎｔ（ＧＱ（ｋ）／１０‘ｍ）＝Ｉｎｔ（Ｍａｘ／１０‘ｍ）Ｔｈｅｎ Ｌｉｓｔｌ４．Ａｄｄｌｔｅｍ（ＧＱ（ｋ）） Ｅｌｓｅ Ｅｎｄ Ｉｆ Ｎｅｘｔ ｋ Ｅｎｄ Ｓｕｂ Ｐｒｉｖａｔｅ Ｓｕｂ Ｆｏｒｍ～Ｌｏａｄ（） Ｔｅｘｔ２．Ｔｅｘｔ＝”警告：”＆ｖｂＣｒＬｆ＆”（１）一定要先按计算按钮！”＆ｖｂＣｒＬｆ＆”（２）ＭＶ的值是ｍ！，（即ｍ的阶乘）不能稍大。

    公共段中声明的变量ＧＱ（）的下标上界是九的阶乘（９ １），主要是避免临时输入。

    ，， Ｔｅｘｔ２．ＦｏｒｅＣｏｌｏｒ＝ＲＧＢ（２５５，０．Ｏ） Ｔｅｘｔ２．ＦｏｎｔＳｉｚｅ＝１０ Ｔｅｘｔ２．ＢｏｒｄｅｒＳｔｙｌｅ＝０ Ｃｏｍｍａｎｄｌ．Ｃａｐｔｉｏｎ＝”计算按钮” ＣｏｍｍａｎｄｌＩ ＦｏｎｔＮａｍｅ＝”隶书” Ｃｏｍｍａｎｄ １．ＦｏｎｔＳｉｚｅ＝１ １ Ｃｏｍｍａｎｄ２．Ｃａｐｔｉｏｎ＝”最短工期” Ｃｏｍｍａｎｄ２．ＦｏｎｔＮａｍｅ＝“隶书” Ｃｏｍｍａｎｄ２．ＦｏｎｔＳｉｚｅ＝１１ Ｃｏｍｍａｎｄ３．Ｃａｐｔｉｏｎ＝”最长工期” Ｃｏｍｍａｎｄ３．ＦｏｎｔＮａｍｅ一”隶书” 　 Ｃｏｍｍａｎｄ３．ＦｏｎｔＳｉｚｅ＝１ｌ Ｔｅｘｔｌ＝”注意：”＆ｖｂＣｒＬｆ＆”列表框中所列数字的后ｍ位表明施工顺序，前面几位数字表明施工工期，ｍ等于工程段数。

    例如，若是６个施工段，则ｍ等于６。

    即，后６位表示施工的排列顺序，而前面几位数则表示施工的工期，如“１８７１２３５６４”，“１２３５６４”表示施工顺序是：Ａ工段、Ｂ工段、Ｃ工段、Ｅ工段、Ｆ工段、Ｄ工段。

    而“１８７”则表示施工工期是１８７天。

    又如“２１８５１４６２３”，这里变了一下施工顺序：５１４６２３（Ｅ—Ａ—Ｄ—Ｆ—Ｂ—Ｃ），工期则长达２１８天。

    ” Ｔｅｘｔｌ．ＦｏｒｅＣｏｌｏｒ＝ＲＧＢ（２５５，０，Ｏ） Ｔｅｘｔｌ．ＦｏｎｔＳｉｚｅ＝１０ Ｔｅｘｔ １．ＢｏｒｄｅｒＳｔｙｌｅ＝０ ＥｎｄＳ７ｕｂ 界｜．ｆ【ｊ 一７９— 万方数据