js转vbs，因为js有个浮点数计算的Bug

Question

这是javascript的，不懂vbscript客户端脚本，哪位能改成vbs的或者指点下  
 js计算有错误
<SCRIPT  LANGUAGE="javascript">    
　　<!--  
function  CalcWashCubage(i)  
{  
           var  calc  =  0.0;  
           if(isNaN(document.all["PipeLength"+i.toString()].value))  
                       {  
                                   alert("长度必须为数字");  
                                   document.all["PipeLength"+i.toString()].focus();  
                                   return;  
                       }  
           for(var  i=0;i<=document.all.ListIndex.value;i++)  
           {  
                       //alert(calc);  
                       if(document.all["PipeCaliber"+i.toString()].value  ==  "100"  &&  document.all["PipeLength"+i.toString()].value  !=  ""){  
                                   calc  =  calc  +  parseFloat(document.all["PipeLength"+i.toString()].value)*7.9;  
                                   continue;  
                       }   
           document.all.WashCubage.value  =  (parseFloat(calc)/100).toString();  
}

Answer 1

function CalcWashCubage(i)
calc=0
If Not IsNumeric(document.all("PipeLength" & i )) Then
msgbox("长度必须为数字");  
document.all("PipeLength" & i).setfocus
Exit Function
End If
for i=0 to document.all.ListIndex.value
if (document.all("PipeCaliber" & i )=100)and(document.all("PipeLength" & i )<>"") Then
calc  =  calc  +  document.all("PipeLength" & i)*7.9
else
document.all.WashCubage.value  =  calc/100
end if
next
end function
大致是这个样子

Answer 2

function CalcWashCubage(i)
calc=0
If Not IsNumeric(document.all("PipeLength" & i ).value) Then
msgbox("长度必须为数字");  
document.all("PipeLength" & i).setfocus
Exit Function
End If
for i=0 to document.all.ListIndex.value
if (document.all("PipeCaliber" & i ).value=100)and(document.all("PipeLength" & i ).value<>"") Then
calc  =  calc  +  document.all("PipeLength" & i).value*7.9
else
document.all.WashCubage.value  =  calc/100
end if
next
end function前面有点小错误