关于for next 语句！急！！下午结帐
<%
strs1="11"
strs2="22"
strs3="33"
for i=1 to 3
response.write str&i
next
%>
我想显示出来的是 str1, str2,str3的值，怎么做？？？？下午结帐！急
问题点数：100、回复次数：19Top
1 楼superdullwolf（超级大笨狼,每天要自强,MVP）回复于 2003-08-04 10:53:52 得分 90
哈哈，你撞到我枪口上了
<%
strs1="11"
strs2="22"
strs3="33"
for i=1 to 3
response.write eval("strs" & i)
next
%>Top
2 楼Cooly（☆不做开发很久了......☆）回复于 2003-08-04 10:54:15 得分 10
<%
dim strs(3)
strs(0)="11"
strs(1)="22"
strs(2)="33"
for i=0 to 2
response.write strs(i)
next
%>Top
3 楼zorou_fatal（The world and system is even）回复于 2003-08-04 10:54:57 得分 0
<%
strs1="11"
strs2="22"
strs3="33"
for i=1 to 3
response.write str&i
next
%>
改成
<%
strs1="11"
strs2="22"
strs3="33"
for i=1 to 3
response.write "str"&string(i)&string(i)
next
%>
Top
4 楼LonelyStark（LonelyStark）回复于 2003-08-04 10:58:06 得分 0
用数组
dim strs(3)
strs(0)="11"
......
for i=0 to ubound strs
response.write strs(i)
nextTop
5 楼superdullwolf（超级大笨狼,每天要自强,MVP）回复于 2003-08-04 11:01:53 得分 0
只有我的才识标准答案，测试过了。Top
6 楼jz_bnx（蓝羽）回复于 2003-08-04 11:03:09 得分 0
我认为用EVAL函数好使一点Top
7 楼wangrutie（wangrutie）回复于 2003-08-04 11:06:54 得分 0
zorou_fatal(Red Star Over China) 的是什么意思？
response.write "str"&string(i)&string(i)这句不对，
superdullwolf(超级大笨狼) 得80分，
还有别的写法吗不用数组的
Top
8 楼ryuginka（一米八五的猪）回复于 2003-08-04 11:10:10 得分 0
<%
strs1="11"
strs2="22"
strs3="33"
for i=1 to 3
response.write "str" & i
next
%>
Top
9 楼ryuginka（一米八五的猪）回复于 2003-08-04 11:12:20 得分 0
同意用数组的方法。Top
10 楼6048378（橙子）回复于 2003-08-04 11:30:59 得分 0
strs1 = "11"
strs2 = "22"
strs3 = "33"
for i = 1 to 3
response.write eval("strs" & i) & "<br>"
nextTop
11 楼PeterMCT（学习三个代表）回复于 2003-08-04 11:43:29 得分 0
数组强!Top
12 楼cloudchen（cloudchen）回复于 2003-08-04 12:12:12 得分 0
这个问题用eval是对的，其他尽管可以解决，但是思路全不对Top
13 楼dicklee1214（令狐冲）回复于 2003-08-04 12:31:32 得分 0
同意超级大笨狼，其他的有点答非所问，如果使用数组解决，完全简化了提问者的要求！Top
14 楼feiyun2001（菩提本无树，明镜也非台）回复于 2003-08-04 12:58:00 得分 0
我是来混分地！Top
15 楼fengchu2（凤雏）回复于 2003-08-04 13:28:37 得分 0
<%
strs1="11"
strs2="22"
strs3="33"
for i=1 to 3
response.write ("strs"+cstr(i))
next
%>
Top
16 楼superdullwolf（超级大笨狼,每天要自强,MVP）回复于 2003-08-04 14:14:25 得分 0
哈哈，这么弄
<OBJECT RUNAT=server id=ScriptControl1 style="LEFT: 0px; TOP: 0px" classid="clsid:0E59F1D5-1FBE-11D0-8FF2-00A0D10038BC">
<PARAM NAME="_ExtentX" VALUE="1005">
<PARAM NAME="_ExtentY" VALUE="1005">
<PARAM NAME="Language" VALUE="vbscript">
<PARAM NAME="Timeout" VALUE="10000">
<PARAM NAME="AllowUI" VALUE="-1">
<PARAM NAME="UseSafeSubset" VALUE="0"></OBJECT>
<%
ScriptControl1.Language="VBScript"
Set m = ScriptControl1.Modules.Add("Module1")
for i=1 to 3
m.AddCode "dim strs1,strs2,strs3"
m.AddCode "strs" & i & "=" & i & i
m.ExecuteStatement("strs" & i & "=" & i & i)
next
for i=1 to 3
response.write m.eval("strs" & i)
next
%>Top
17 楼superdullwolf（超级大笨狼,每天要自强,MVP）回复于 2003-08-04 14:20:17 得分 0
哈哈，赋值就象上面那么弄
'或者 m.AddCode "public strs1,strs2,strs3"看情况而定
'或者 m.AddCode "private strs1,strs2,strs3"看情况而定
我厉害不？
Top
18 楼superdullwolf（超级大笨狼,每天要自强,MVP）回复于 2003-08-04 14:24:13 得分 0
给我100分！！
：）Top
