简单编程题 - 软件应用 - 3s地带 3s|网游论坛|3S空间|3s技术参数|宠物狗论坛

强风

UID 5113
精华 0
积分 78
帖子 19
现金 68
贡献值 0
阅读权限 30
注册 2007-8-24

楼主

发表于 2007-9-2 17:16 资料个人空间短消息加为好友

简单编程题

这道题是给了十个数,求负数总和,正数总和
问题是把数给数组后是字符,怎么样转成数来计算,我用CINT也不行,有其它办法吗
<html>
<head>
<script language=vbscript>
dim m(9),sub,sum,i
m(0)=-2
m(1)=73
m(2)=82
m(3)=-76
m(4)=-1
m(5)=24
m(6)=321
m(7)=-25
m(8)=89
m(9)=-20
sum=0
sub=0
for i=0 to 9
if cint(m(i))>0 then

sum=m(i)+sum
else
sub=m(i)+sub
end if
next
msgbox cstr(sum)&cstr(sub)

</script>
</head>
<body></body>
</html>

1SxS1

疾风

UID 4235
精华 0
积分 247
帖子 56
现金 237
贡献值 0
阅读权限 40
注册 2007-8-24

沙发

大中小

发表于 2007-9-2 17:16 资料个人空间短消息加为好友

sub是VBScript的关键字，请换一个变量名。
另外，cint可以去掉，因为VBScript在赋值的时候就决定了类型。

当前时区 GMT+8, 现在时间是 2008-12-2 11:48	清除 Cookies - 联系我们 - 3S地带 - Archiver - WAP - 赣ICP备07006302号