📄 18737.html

📁 VB技巧问答10000例 VB技巧问答10000例
💻 HTML
字号:
<html>  <head>    <title>Re: 'VB 有无穷回圈问题帮忙改</title>  </head>  <body bgcolor="#FFFFFF" vlink="#808080">    <center>      <h1>Re: 'VB 有无穷回圈问题帮忙改</h1>    </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by Phoenix on September 10, 1999 at 02:13:56:<p>In Reply to: <a href="18130.html">'VB 有无穷回圈问题帮忙改</a> posted by 小楷 on August 30, 1999 at 16:23:38:<p>: cost = 0<br>: min = 200<br>: step = 0<br>: For i = 0 To 2<br>: For j = 0 To JOB<br>: ptr(i, j) = 0<br>: Next j<br>: For k = 0 To MACH<br>: m_step(i, k) = 0<br>: Next k<br>: Next i<br>: Do While step < MACH * JOB<br>: min = 200<br>: For i = 1 To JOB<br>: If ptr(1, i) < MACH Then<br>: t1 = ptr(2, i)<br>: t2 = (i - 1) * MACH + ptr(1, i) + 1<br>: t3 = route(t2, 4)<br>: t4 = m_step(2, t3)<br>: If t1 >= t4 Then<br>: t5 = t1<br>: Else<br>: t5 = t4<br>: End If<br>: l(i) = t5 + route(t2, 5)<br>: Else<br>: l(i) = 1000<br>: End If<br>: If l(i) < min Then<br>: min = l(i)<br>: jj = i<br>: End If<br>: Next i<br>: ptr(1, jj) = ptr(1, jj) + 1<br>: ptr(2, jj) = min<br>: t7 = (jj - 1) * MACH + ptr(1, jj)<br>: t8 = route(t7, 5)<br>: t9 = route(t7, 4)<br>: m_step(1, t9) = m_step(1, t9) + 1<br>: m_step(2, t9) = min<br>: t10 = m_step(1, t9)<br>: schedule((t9 - 1) * 3 + 1, t10) = t7<br>: schedule((t9 - 1) * 3 + 2, t10) = min - t8<br>: schedule((t9 - 1) * 3 + 3, t10) = min<br>: step = step + 1<br>: Loop<br>: k = 1<br>: i = 1<br>: Do While k <= MACH * 3<br>: Chr (10)<br>: If k Mod 3 = 1 Then<br>: Print "-------------------"<br>: Chr (10)<br>: Print "M", i<br>: i = i + 1<br>: End If<br>: If k Mod 3 = 2 Then<br>: Print "start"<br>: End If<br>: If k Mod 3 = 0 Then<br>: Print "end "<br>: End If<br>: For j = 1 To JOB<br>: Print schedule(k, j)<br>: Next j<br>: Loop<br>: Chr (10)<br>: cost = 0<br>: For m = 1 To JOB<br>: If cost < ptr(2, m) Then<br>: cost = ptr(2, m)<br>: End If<br>: Next m<br>: Chr (10)<br>: Chr (10)<br>: Print "makespan:", cost<br>: 'VB 有无穷回圈问题帮忙改'<p>你没有写出 JOB 这个参数的数字就进行回圈呀!<br>在第 4 行<br><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 18737--></ul><!--end: 18737--><br><hr size=7 width=75%><p></body></html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -