想取值sum1,sum2,sum3....并相加得出总数

hp3325 发布于 2012-05-25 14:31， 862 次点击

我写了这个，但不知错在哪，想取值sum1,sum2,sum3....并相加得出总数
Dim i,Hdk
Hdk=0
For i=1 To 21
Dim Hsaa&i : Hsaa&i=Easp.Post("sum&i:n")
if Hsaa&i="" Then
Hsaa&i=0
Hdk=Hdk+Hsaa&i
end if
Next
Easp.WC Hdk

6 回复

yms1232012-05-28 09:39

Dim i,Hdk
Hdk=0
For i=1 To 21
Dim Hsaa&i : Hsaa&i=Easp.Post("sum&i:n")'这个Easp是做什么用的？
if Hsaa&i="" Then
Hsaa&i=0
Hdk=Hdk+Hsaa&i'你这个地方肯定出错，因为在vbs里&号代表连接字符串和变量+号代表数字相加，这两个符号不可以混用
end if
Next
Easp.WC Hdk

hp33252012-06-07 13:47

回复 2楼 yms123

如何改呀???

sac精灵2012-06-08 08:37

Hsaa&i=0
Hdk=Hdk+Hsaa&i有问题
end if
Next
Easp.WC Hdk

hp33252012-06-10 13:39

回复 4楼 sac精灵

好知道有问题,关键是如何改

sky2222012-06-13 17:25

Dim Hsaa&i 这个就有问题的，变量不能这样定义的

关键是楼住要达到什么效果

sky2222012-06-13 17:34

程序代码：

Dim i,s,t,sum
Redim t(10)
For i = 0 to 10
    t(i) = i'request.Form("sum"&i)
    response.Write t(i)
    sum = sum + t(i)
Next
response.Write sum