入新的施工段的时间应取前两个时问的较大值。
我们用了一个ＩＩＦ函数来完成这个工作．下一个关键问题是，在用Ｆｏｒ Ｎｅｘｔ循环语句时，每计算一次都要用到上面所说的某一个较大值，这些较大值共有３（三道工序）’６（六个施工段）＝１８‘个，我们用了一个Ｂ（ｉ，ｊ）数组。
其中ｉ等于３，ｊ等于６．这个数组事先并不赋值，只是在循环计算的时候，边计算、边赋值、边调用。
又由于为简化程序，我们在句子中用到了ｉ～１和ｊ—ｌ的下标，于是我们在定义Ｂ（ｉ，ｊ）数组的下标下界时让ｉ等于０，否则将会溢出．另一个二维数组Ａ（ｉ，ｊ）就是工程的实际数据，是需要事先赋值的。
譬如，我们把前面数据表中的数据赋给Ａ（ｉ．ｊ）．在赋值时，注意要让ｉ表示工序数，让ｊ表示施工段数。
最后一个关键问题就是在计算的时候如何根据新的排列调出Ａ（ｉ，ｊ）数组的值进行计算．如在１２３４５６排列中， 一７６— 万方数据第一工序第五工段的时问数据是３５（血Ｄ前表格所示），即Ａ（１，５）＝３５。
而在１２５４３６排列中，第一工序第－－－ｒ”段的数据应该也是３５，而此时ｊ等于３。
那么我们怎样用这个３，把数据３５调出来呢７幸好ＶｉｓｕａｌＢａｓｉｃ给了我们一个截取字符串函数Ｍｉｄ（），让我们得以完成这项工作。
如Ａ（１，Ｖａｌ（Ｍｉｄ（１２５４３６，ｊ，１））），它的意思是把字符串“１２５４３６”中第ｊ个字符取一个出来作为数组Ａ（１，ｊ）的另一个下标，如果是取第３个字符，则应该是５，即Ａ（１，Ｖａｌ（Ｍｉｄ（１２５４３６，３，１）））＝Ａ（１，５）＝３５。
这样我们就完成了排列后的数据归位。
在使用这个程序的时候，应当根据实际情况输入数据Ａ（ｉ，ｊ）。
如果是八个工段五道工序，则应当输入５＊８—４０个数据。
相应的ＭＮ的值改成ＭＮ＝１２３４５６７８。
在对话框中输入ｍ、ｎ、和ＭＮ。
最后要说明的是：（１）本程序还在第二个列表框中，列出对应于最短工期的所有排列。
以便于在最短工期的前提下，找到一个适合具体情况的施工顺序。
（２）由于每个列表框只能容纳３２７３６个数据，当ｍ＝９的时候数据问达到３６２８８０个，故在计算按钮下安放了十二个列表框（见界面）。
（３）第十四列表框中列出的最长施工工期及排列顺序，仅作对照。
（４）此程序可计算的范围是，工段数不能超过九，而工序的道数不受限制。
不过，若计算机的容量足够的话，应用十六进制的数，则工段数的计算范围可以增加到十五。
就一般情况而言，九个工段已经足够。
如果再增加工段，计算机的计算时间恐怕不会仅以小时来计算了。
（５）使用这个程序，必须在ＶｉｓｕａｌＢａｓｉｃ的系统环境下进行。
源程序清单如下： Ｄｉｍ Ｍｉｎ＃，ｎ％，ｍ％，ＭＶ＆，ＧＱ（１Ｔ０３６２８８０）Ａｓ Ｄｏｕｂｌｅ Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ １－－Ｃｌｉｃｋ（） Ｄｉｍ ＭＮ＆，ＭＣ＆，ＭＢ％，ＭＸ％，ＭＹ％，ＭＺ％，Ａ（１Ｔ０９，１Ｔ０９）Ａｓ Ｉｎｔｅｇｅｒ，Ｂ（０Ｔ０９。
０Ｔ０９）ＡｓＩｎｔｅｇｅｒ Ａ（１，１）＝２５：Ａ（１，２）＝２０：Ａ（１，３）＝１５：Ａ（１，４）一３０：Ａ（１，５）＝３５：Ａ（１，６）一４４： Ａ（２，１）＝１２：Ａ（２，２）＝１５：Ａ（２，３）＝１１：Ａ（２，４）一８：Ａ（２，５）＝６：Ａ（２，６）＝４： Ａ（３，１）＝１８：Ａ（３，２）一２５：Ａ（３．３）＝２４：Ａ（３，４）＝１０：Ａ（３，５）＝２４：Ａ（３，６）一１６： ｍ—ＩｎｐｕｔＢｏｘ（“请输入施工段数ｍ”，“输人数据”，，２０００，４０００） ｎ—ＩｎｐｕｔＢｏｘ（“请输入施工工序数ｎ”，“输入数据”，，２０００，４０００） ＭＮ＝ＩｎｐｕｔＢｏｘ（“请按１２３４……的顺序输入一个ｍ位数。
（ｍ是施工段数）”，“输入数据”，，２０００，４０００） ＭＶ＝１ Ｆｏｒ ｊ＝１ Ｔｏ ｍ ＭＶ＝ＭＶ。
ｊ Ｎｅｘｔ ｊ Ｆｏｒ ｋ＝１ Ｔｏ ＭＶ Ｆｏｒ ｉ＝１ Ｔｏ ｎ Ｆｏｒ ｊ＝１ Ｔｏ ｍ Ｂ（ｉ，ｊ）＝ＩＩｆ（Ｂ（ｉ－－１，ｊ）＞Ｂ（ｉ，ｊ一１），Ｂ（ｉ—ｌ，ｊ），Ｂ（ｉ，ｊ～１））＋Ａ（ｉ，Ｖａｌ（Ｍｉｄ（ＭＮ，ｊ，１））） Ｎｅｘｔ ｊ Ｎｅｘｔ ｉ ＧＱ（ｋ）＝Ｂ（ｉ一１，ｊ一１）＆ＭＮ Ｉｆ ｋ＜＝３２７３６ Ｔｈｅｎ Ｌｉｓｔｌ．ＡｄｄＩｔｅｍ（ＧＱ（ｋ））’一个列表框中只能容纳３２７３６行数字。
Ｅｌｓｅｌｆｋ＜＝６５４７２ Ｔｈｅｎ Ｌｉｓｔ２．Ａｄｄｈｅｍ（ＧＱ（ｋ）） Ｅｌｓｅｌｆｋ＜＝９８２０８ Ｔｈｅｎ Ｌｉｓｔ３．Ａｄｄｈｅｍ（ＧＱ（ｋ）） Ｅｌｓｅｌｆｋ＜＝１ ３０９４４ Ｔｈｅｎ Ｌｉｓｔ４．Ａｄｄｈｅｍ（ＧＱ（ｋ）） Ｅｌｓｅｌｆｋ＜＝１ ６３６８０ Ｔｈｅｎ Ｌｉｓｔ５．Ａｄｄｈｅｍ（ＧＱ（ｋ）） Ｅｌｓｅｌｆｋ＜＝１９６４１６ Ｔｈｅｎ Ｌｉｓｔ６．Ａｄｄｈｅｍ（ＧＱ（ｋ）） Ｅｌｓｅｌｆｋ＜＝２２９１５２ Ｔｈｅｎ Ｌｉｓｔ７．Ａｄｄｈｅｍ（ＧＱ（ｋ）） Ｅｌｓｅｌｆｋ＜＝２６１８８８ Ｔｈｅｎ Ｌｉｓｔ８．Ａｄｄｈｅｍ（ＧＱ（ｋ）） Ｅｌｓｅｌｆｋ＜＝２９４６２４ Ｔｈｅｎ 一７７— 万方数据 Ｌｉｓｔ９．Ａｄｄｈｅｍ（ＧＱ（ｋ）） ＥｉｓｅＩｆｋ＜＝３２７３６０ Ｔｈｅｎ Ｌｉｓｔｌ０。
Ａｄｄｌｔｅｍ（ＧＱ（ｋ）） ＥｌｓｅＩｆＩｃ＜＝３６００９６ Ｔｈｅｎ Ｌｉｓｔｌｌ：ＡｄｄＩｔｅｍ（ＧＱ（ｋ）） Ｅｌｓｅｌｆｋ＜＝３９２８３２ Ｔｈｅｎ Ｌｉｓｔｌ２．Ａｄｄｌｔｅｍ（ＧＱ（ｋ）） Ｅｎｄ Ｉｆ Ａｌ ＭＮ＝ＭＮ＋９ ＭＣ＝１ Ｆｏｒｊ＝ｌ Ｔｏ ｍ ＭＣ＝－ＭＣ。
Ｖａｌ（Ｍｉｄ（ＭＮ，ｊ．１）） Ｎｅｘｔ ｊ ｌｆＭＶ＜＞ＭＣ Ｔｈｅｎ Ｇｏ Ｔｏ Ａ Ｅｌｓｅ Ｅｎｄ Ｉｆ ＭＢ＝０ ＭＸ＝０ Ｆｏｒ ｊ＝ｌ Ｔ０ ｒｎ ＭＢ＝ＭＢ＋ｊ ＭＸ＝ＭＸ＋Ｖａｌ（Ｍ．ｄ（ＭＮ．ｊ。
１）） Ｎｅｘｔ ｊ ｌｆＭＢ＜＞ＭＸ Ｔｈｅｎ ＧｏＴｏ Ａ Ｅｌｓｅ Ｅｎｄ Ｉｆ ＭＹ＝０ ＭＺ一０ Ｆｏｒ ｊ一１ Ｔｏ ｍ ＭＹ—ＭＹ＋ｊ‘２ ＭＺ＝ＭＺ＋Ｖａｌ（Ｍｉｄ（ＭＮ．ｊ，１））‘２ Ｎｅｘｔ ｉ ＩｆＭＹ＜＞ＭＺ Ｔｈｅｎ ＧｏＴｏ Ａ ＥＩｓｅ Ｅｎｄ Ｉｆ Ｎｅｘｔ ｋ Ｐｒｉｎｔ Ｓｐｃ（６）；”第ｍ！个排列应是最大数，据此可以判断结果的正确性。
一 Ｐｒｉｎｔ Ｓｐｃ（６）Ｉ”ＧＱ（”；ＭＶ；”）＝”；ＧＱ（ＭＶ） Ｅｎｄ Ｓｕｂ Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ２ｗＣｌｉｃｋ（） Ｍｉｎ＝ＩｎｐｕｔＢｏｘ（”请输入初始比较数据，其值比列表框中最小一个稍大即可一，一输入数据一，，２０００，４０００） Ｆｏｒ ｋ＝ｌ Ｔｏ ＭＶ Ｍｉｎ＝Ｉｌｆ（Ｍｉｎ＜ＧＱ（ｋ），Ｍｉｎ，ＧＱ（ｋ）） Ｎｅｘｔ ｋ Ｆｏｒ ｋ＝ｌ Ｔｏ ＭＶ Ｉｆ Ｉｎｔ（ＧＱ（ｋ）／１０‘ＩＴＩ）＝Ｉｎｔ（Ｍｉｎ／１０‘ｍ）Ｔｈｅｎ Ｌｉｓｔｌ３．ＡｄｄＩｔｅｍ（ＧＱ（ｋ）） Ｅｌｓｅ Ｅ：ｎｄ Ｉｆ 一７８—万方数据 Ｎｅｘｔ ｋ Ｅｎｄ Ｓｕｂ Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ３－－Ｃｌｉｃｋ（） Ｆｏｒ ｋ＝１ Ｔｏ ＭＶ Ｍａｘ＝１１ｆ（Ｍａｘ＞ＧＱ（ｋ），Ｍａｘ，ＧＱ（ｋ）） Ｎｅｘｔ ｋ Ｆｏｒ ｋ＝１ Ｔｏ ＭＶ ＩｆＩｎｔ（ＧＱ（ｋ）／１０‘ｍ）＝Ｉｎｔ（Ｍａｘ／１０‘ｍ）Ｔｈｅｎ Ｌｉｓｔｌ４．Ａｄｄ
上一篇：
过程控制工程虚拟实验系统的设计与开发
下一篇：
计算机网络毕业论文
2013-10-20
