Question

asp 编写计算1-100的奇数和和偶数和的程序

Answer 1

<%'偶数
For i=0 To 100 Step 2
sum=sum+i
Response.Write (i&",")
Next
response.write "100内偶数和"&sum
'奇数
Response.Write ("<hr>")
For i=1 To 100 Step 2
sum=sum+i
Response.Write (i&",")
Nextresponse.write "100内奇数和"&sum
%>
<hr>

Answer 2

dim i
i=5
if i mod 2=0 then
response.write"I的值是"&i&"，是奇数"
else
response.write"I的值是"&i&"，是偶数"
enf if

这是固定值的判断，你可以改成函数，获取动态值，或者输入的值做判断。

如果说自定函数还不懂写，建议再看看基础。

去百度一下SUB和FUNCTION，顺便可以学习一下它们之间的区别。。。

Answer 3

<%dim sum,isum=0if(i<100) then sum=sum+iresponse.write("sum")end if if(i<100) then sum=sum+i*2response.write("sum")end if %>