if document.work.method_select(0).checked=true then <!-- 此为先来先作业--> t=0 w=0 tmp=cdbl(document.work.time_submit(0).value) for i=0 to 3 tmp=tmp+cdbl(document.work.time_execute(i).value) time_round(i)=tmp-cdbl(document.work.time_submit(i).value) //msgbox time_round(i) t=t+1/4*(time_round(i)) w=w+1/4*(time_round(i)/cdbl(document.work.time_execute(i).value)) next document.work.result1.value=t document.work.result2.value=w //msgbox document.work.time_submit(0).value elseif document.work.method_select(1).checked=true then <!-- 此为当短作业优先 /--> for i=1 to 3 temp(i)=4-i next temp(0)=0 i=3 do while i>1 for j=1 to i-1 if cdbl(document.work.time_execute(temp(j)).value)>_ cdbl(document.work.time_execute(temp(j+1)).value) then tmp=temp(j) temp(j)=temp(j+1) temp(j+1)=tmp end if next //msgbox temp(1) & " " & temp(2) & " " & temp(3) i=i-1 loop//do while t=0 w=0 tmp=cdbl(document.work.time_submit(temp(0)).value) for i=0 to 3 tmp=tmp+cdbl(document.work.time_execute(temp(i)).value) time_round(i)=tmp-cdbl(document.work.time_submit(temp(i)).value) //msgbox time_round(i) t=t+1/4*(time_round(i)) w=w+1/4*(time_round(i)/cdbl(document.work.time_execute(temp(i)).value)) next document.work.result1.value=t document.work.result2.value=w /响应比优先 else for i=0 to 3 temp(i)=4-i next temp(0)=0 dim respond(4) for i=1 to 3 respond(i)=1+(cdbl(document.work.time_submit(0).value)+cdbl(document.work.time_execute(0).value)-_ cdbl(document.work.time_submit(i).value))/cdbl(document.work.time_execute(i).value) //msgbox respond(i) next temp(0)=0 i=3 do while i>1 for j=1 to i-1 if respond(temp(j))<respond(temp(j+1)) then tmp=temp(j) temp(j)=temp(j+1) temp(j+1)=tmp end if next //msgbox temp(1) & " " & temp(2) & " " & temp(3) i=i-1 loop//do while /以上为确定响应比的优先级 t=0 w=0 tmp=cdbl(document.work.time_submit(temp(0)).value) for i=0 to 3 tmp=tmp+cdbl(document.work.time_execute(temp(i)).value) time_round(i)=tmp-cdbl(document.work.time_submit(temp(i)).value) //msgbox time_round(i) t=t+1/4*(time_round(i)) w=w+1/4*(time_round(i)/cdbl(document.work.time_execute(temp(i)).value)) next document.work.result1.value=t document.work.result2.value=w /// end if end sub
sub average(first) t=0 w=0 tmp=cdbl(document.work.time_submit(first).value) for i=0 to 3 tmp=tmp+cdbl(document.work.time_execute(i).value) time_round(i)=tmp-cdbl(document.work.time_submit(i).value) //msgbox time_round(i) t=t+1/4*(time_round(i)) w=w+1/4*(time_round(i)/cdbl(document.work.time_execute(i).value)) next document.work.result1.value=t document.work.result2.value=w end sub </script> <!-- 以下为取消反键的代码/--> <script language="JavaScript"> <!-- if (window.Event) document.captureEvents(Event.MOUSEUP); function nocontextmenu() { event.cancelBubble = true event.returnValue = false; return false; } function norightclick(e) { if (window.Event) { if (e.which == 2 || e.which == 3) return false; } else if (event.button == 2 || event.button == 3) { event.cancelBubble = true event.returnValue = false; return false; } } document.oncontextmenu = nocontextmenu; // for IE5+ document.onmousedown = norightclick; // for all others //--> </script>96621班 白建明制作