此程序无法运行？

yuanming_003 发布于 2010-03-09 14:04， 397 次点击

</html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>13</title>
</head>
<body>

<script language="vbscript">
dim n,sum
n=1
sum=0
do while n<10
n=2n-1
sum=sum+n
msgbox "1+100="&n
loop
msgbox "1+100="&sum

</script>

</body>
</html>
运行结果看附件

只有本站会员才能查看附件，请登录

[ 本帖最后由 yuanming_003 于 2010-3-9 14:24 编辑 ]

2 回复

yms1232010-03-09 16:14

求得1到100累加的和？
求和为什么要这么写呢？

yms1232010-03-09 16:18

</html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>13</title>
<script language="vbscript">
dim n,sum
sum=0
do while n<100
sum=sum+n
n=n+1
loop
msgbox "1+100="&sum

</script>
</head>
<body>

</body>
</html>