票据管理系统功能模块:用ASP编写数列求和算法.

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/28 00:49:14

<%
dim s,i,arr,spa
dim arr(1,2,3,......,n)
spa=split(arr,",")
for i=0 to (ubound(spa)-1)
s=s+spa(i)
next
response.write (s)
response.end
%>

<Script language="VBScript">
dim i
dim s
dim a(1..10)

'输入
for i=1 to 10
a(i)=inputbox("输入第" & i & "个数字","输入")
next

'计算求和

for i=1 to 10
s=s+a(i)
next

msgbox "求和的结果是:" & s
</Script>

有没有具体的问题例子,贴一个上来,给你解决了你也就明白了

对啊,没问题,不好做啊,但我感觉不太麻烦