求助一个vbs语法方面的问题，先谢过了

gdutlzl

A1="1 10 12 14"
A2="16"
A3="21 22 23"
A4="4 14 18 23"
A5="7 18 20 23"


for i=1 to 5

abc="A"&i
msgbox abc

Next

以上代码我放在vbs文件里运行的时候，打印出来的结果分别是“A1, A2, A3, A4, A5”， 但我想要的是打印出上面已经赋值的变量（A1, A2, A3, A4, A5）的具体值，怎么能实现呢？麻烦高手指导一下啊

gdutlzl

没人能帮忙解答吗？

user603

这里人气不行啊。不知道为何。

user603

回复 2# gdutlzl


    这里人气不行啊。

17800455

1. 
   
2. A1="1 10 12 14"
   
3. A2="16"
   
4. A3="21 22 23"
   
5. A4="4 14 18 23"
   
6. A5="7 18 20 23"
   
7. b = Array(A1,A2,A3,A4,A5)
   
8. For Each c In b
   
9.       msgbox c
   
10. Next
    
11. 
    

复制代码

黑羽祭

回复 1# gdutlzl这样：

1. Dim A(5)
   
2. A(1)="1 10 12 14"
   
3. A(2)="16"
   
4. A(3)="21 22 23"
   
5. A(4)="4 14 18 23"
   
6. A(5)="7 18 20 23"
   
7. 
   
8. for i=1 to 5
   
9.         msgbox A(i)
   
10. Next

复制代码

hsjzfling

1. A1="1 10 12 14"
   
2. A2="16"
   
3. A3="21 22 23"
   
4. A4="4 14 18 23"
   
5. A5="7 18 20 23"
   
6. 
   
7. 
   
8. for i=1 to 5
   
9. 
   
10. abc="A"&i
    
11. msgbox Eval(abc)
    
12. 
    
13. Next

复制代码

wuxue107

1. A1="1 10 12 14"
   
2. A2="16"
   
3. A3="21 22 23"
   
4. A4="4 14 18 23"
   
5. A5="7 18 20 23"
   
6. 
   
7. for i=1 to 5
   
8.         abc="A"&i
   
9.         Execute "msgbox " & abc
   
10. Next

复制代码

TestWith1314

Dim A1,A2,A3,A4,A5
A1="1 10 12 14"
A2="16"
A3="21 22 23"
A4="4 14 18 23"
A5="7 18 20 23"

Dim B
B = Array(A1,A2,A3,A4,A5)

for i=0 to 4

msgbox B(i)

Next