标题:想取值sum1,sum2,sum3....并相加得出总数
只看楼主
hp3325
Rank: 2
等 级:论坛游民
帖 子:29
专家分:26
注 册:2009-6-7
结帖率:33.33%
已结贴  问题点数:10 回复次数:6 
想取值sum1,sum2,sum3....并相加得出总数
我写了这个,但不知错在哪,想取值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
2012-05-25 14:31
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
得分:10 
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
2012-05-28 09:39
hp3325
Rank: 2
等 级:论坛游民
帖 子:29
专家分:26
注 册:2009-6-7
得分:0 
回复 2楼 yms123
如何改呀???
2012-06-07 13:47
sac精灵
Rank: 1
等 级:新手上路
帖 子:14
专家分:7
注 册:2012-6-4
得分:0 
Hsaa&i=0
Hdk=Hdk+Hsaa&i有问题
end if
Next
Easp.WC Hdk
2012-06-08 08:37
hp3325
Rank: 2
等 级:论坛游民
帖 子:29
专家分:26
注 册:2009-6-7
得分:0 
回复 4楼 sac精灵
好知道有问题,关键是如何改
2012-06-10 13:39
sky222
Rank: 4
等 级:业余侠客
威 望:1
帖 子:152
专家分:225
注 册:2010-3-11
得分:0 
Dim Hsaa&i 这个就有问题的,变量不能这样定义的

关键是楼住要达到什么效果
2012-06-13 17:25
sky222
Rank: 4
等 级:业余侠客
威 望:1
帖 子:152
专家分:225
注 册:2010-3-11
得分:0 
程序代码:
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 
2012-06-13 17:34



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-368022-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.047885 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved