出Ａ（ｉ，ｊ）数组的值进行计算．如在１２３４５６排列中， 一７６— 万方数据第一工序第五工段的时问数据是３５（血Ｄ前表格所示），即Ａ（１，５）＝３５。

    而在１２５４３６排列中，第一工序第－－－ｒ”段的数据应该也是３５，而此时ｊ等于３。

    那么我们怎样用这个３，把数据３５调出来呢７幸好ＶｉｓｕａｌＢａｓｉｃ给了我们一个截取字符串函数Ｍｉｄ（），让我们得以完成这项工作。

    如Ａ（１，Ｖａｌ（Ｍｉｄ（１２５４３６，ｊ，１））），它的意思是把字符串“１２５４３６”中第ｊ个字符取一个出来作为数组Ａ（１，ｊ）的另一个下标，如果是取第３个字符，则应该是５，即Ａ（１，Ｖａｌ（Ｍｉｄ（１２５４３６，３，１）））＝Ａ（１，５）＝３５。

    这样我们就完成了排列后的数据归位。

     在使用这个程序的时候，应当根据实际情况输入数据Ａ（ｉ，ｊ）。

    如果是八个工段五道工序，则应当输入５＊８—４０个数据。

    相应的ＭＮ的值改成ＭＮ＝１２３４５６７８。

    在对话框中输入ｍ、ｎ、和ＭＮ。

    最后要说明的是：（１）本程序还在第二个列表框中，列出对应于最短工期的所有排列。

    以便于在最短工期的前提下，找到一个适合具体情况的施工顺序。

    （２）由于每个列表框只能容纳３２７３６个数据，当ｍ＝９的时候数据问达到３６２８８０个，故在计算按钮下安放了十二个列表框（见界面）。

    （３）第十四列表框中列出的最长施工工期及排列顺序，仅作对照。

    （４）此程序可计算的范围是，工段数不能超过九，而工序的道数不受限制。

    不过，若计算机的容量足够的话，应用十六进制的数，则工段数的计算范围可以增加到十五。

    就一般情况而言，九个工段已经足够。

    如果再增加工段，计算机的计算时间恐怕不会仅以小时来计算了。

    （５）使用这个程序，必须在ＶｉｓｕａｌＢａｓｉｃ的系统环境下进行。

     源程序清单如下： Ｄｉｍ Ｍｉｎ＃，ｎ％，ｍ％，ＭＶ＆，ＧＱ（１Ｔ０３６２８８０）Ａｓ Ｄｏｕｂｌｅ Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ １－－Ｃｌｉｃｋ（） Ｄｉｍ ＭＮ＆，ＭＣ＆，ＭＢ％，ＭＸ％，ＭＹ％，ＭＺ％，Ａ（１Ｔ０９，１Ｔ０９）Ａｓ Ｉｎｔｅｇｅｒ，Ｂ（０Ｔ０９。

    ０Ｔ０９）ＡｓＩｎｔｅｇｅｒ Ａ（１，１）＝２５：Ａ（１，２）＝２０：Ａ（１，３）＝１５：Ａ（１，４）一３０：Ａ（１，５）＝３５：Ａ（１，６）一４４： Ａ（２，１）＝１２：Ａ（２，２）＝１５：Ａ（２，３）＝１１：Ａ（２，４）一８：Ａ（２，５）＝６：Ａ（２，６）＝４： Ａ（３，１）＝１８：Ａ（３，２）一２５：Ａ（３．３）＝２４：Ａ（３，４）＝１０：Ａ（３，５）＝２４：Ａ（３，６）一１６： ｍ—ＩｎｐｕｔＢｏｘ（“请输入施工段数ｍ”，“输人数据”，，２０００，４０００） ｎ—ＩｎｐｕｔＢｏｘ（“请输入施工工序数ｎ”，“输入数据”，，２０００，４０００） ＭＮ＝ＩｎｐｕｔＢｏｘ（“请按１２３４……的顺序输入一个ｍ位数。

    （ｍ是施工段数）”，“输入数据”，，２０００，４０００） ＭＶ＝１ Ｆｏｒ ｊ＝１ Ｔｏ ｍ 　 ＭＶ＝ＭＶ。

    ｊ Ｎｅｘｔ ｊ Ｆｏｒ ｋ＝１ Ｔｏ ＭＶ Ｆｏｒ ｉ＝１ Ｔｏ ｎ Ｆｏｒ ｊ＝１ Ｔｏ ｍ Ｂ（ｉ，ｊ）＝ＩＩｆ（Ｂ（ｉ－－１，ｊ）＞Ｂ（ｉ，ｊ一１），Ｂ（ｉ—ｌ，ｊ），Ｂ（ｉ，ｊ～１））＋Ａ（ｉ，Ｖａｌ（Ｍｉｄ（ＭＮ，ｊ，１））） Ｎｅｘｔ ｊ Ｎｅｘｔ ｉ ＧＱ（ｋ）＝Ｂ（ｉ一１，ｊ一１）＆ＭＮ Ｉｆ ｋ＜＝３２７３６ Ｔｈｅｎ Ｌｉｓｔｌ．ＡｄｄＩｔｅｍ（ＧＱ（ｋ））’一个列表框中只能容纳３２７３６行数字。

     Ｅｌｓｅｌｆｋ＜＝６５４７２ Ｔｈｅｎ Ｌｉｓｔ２．Ａｄｄｈｅｍ（ＧＱ（ｋ）） Ｅｌｓｅｌｆｋ＜＝９８２０８ Ｔｈｅｎ Ｌｉｓｔ３．Ａｄｄｈｅｍ（ＧＱ（ｋ）） Ｅｌｓｅｌｆｋ＜＝１ ３０９４４ Ｔｈｅｎ Ｌｉｓｔ４．Ａｄｄｈｅｍ（ＧＱ（ｋ）） Ｅｌｓｅｌｆｋ＜＝１ ６３６８０ Ｔｈｅｎ Ｌｉｓｔ５．Ａｄｄｈｅｍ（ＧＱ（ｋ）） Ｅｌｓｅｌｆｋ＜＝１９６４１６ Ｔｈｅｎ Ｌｉｓｔ６．Ａｄｄｈｅｍ（ＧＱ（ｋ）） Ｅｌｓｅｌｆｋ＜＝２２９１５２ Ｔｈｅｎ Ｌｉ