在ASP中,使用vbscript计算1~1000之间所有不能被7整除的数的和

Question

如题所述

Answer 1

<script language=vbscript>
dim i,s
s=0
for i=1 to 1000
if i mod 7<>0 then s=s+i
next
</script>
这是计算过程，在ASP中要输出，也可以用按钮或其他方法调用，那这个代码就要改一点点啦.将这个计算写在sub中

Answer 2

dim n
for i=1 to 1000

if i mod 7 > 0 then
n=n+i
response.write i & "<br />"
end if

next
response.write n
%>

你的分数给的太少了.

Answer 3

response.Write (1+1000)*1000/2-7*(1+1000\7)*(1000\7)/2