您的位置：程序门 -> vb -> 网络编程

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

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

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

发表于：2007-03-05 16:54:15 楼主

这是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（);
}

发表于：2007-03-12 23:42:391楼得分:0

看热闹并接分

发表于：2007-03-16 13:49:362楼得分:0

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

大致是这个样子

发表于：2007-03-16 13:51:143楼得分:0

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

前面有点小错误

下一篇：关于socket查找服务器文件
上一篇：请教各位大侠关于oledragdrop获取ie超级链接和文本的问题

其他资讯