关于“变量”循环递增

anjincheng 发布于 2011-05-15 11:14， 761 次点击

老师们：
有变量j1、j2、j3、j4、j5、j6......，怎么用For循环来实现它？
如下代码不行！怎么修改？感谢！
For i=1 To 20
If........Then
j(i)=0
Else
j(i)=j(i)+1
response.Write j(i)
End If
Next

j(i)分别改为：j&i 或 j&i& 都不行哦！！
到底怎么写呢老师们？感谢！

[ 本帖最后由 anjincheng 于 2011-5-15 11:28 编辑 ]

5 回复

wangjy5002011-05-15 18:30

<%Dim x
for i=1 to 20
    if i=1 then
      x=0
    else
      x=x+1
    end if
Dim ji
ji=x
Response.Write("j"&i&"="&ji&"<br/>")
Next
%>

hams2011-05-16 08:04

Ji可以么？
还是用数组吧

dzt00012011-05-16 08:52

2楼没有定义j1、j2...这样的变量，只是显示出来是j1=0, j2=1，....

liang1982072011-05-16 09:24

<%
Dim MyArray()
for i = 0 to 10
ReDim Preserve MyArray(i)
MyArray(i)=i
response.write("MyArray("&MyArray(i)&")<br>")
next
%>

yms1232011-05-16 17:11

如果是这样的变量最好用数组来表示