软件测试论坛 › [QuickTest Professional] › 求助一个vbs语法方面的问题，先谢过了

gdutlzl 发表于 2012-6-21 17:07:14

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

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 发表于 2012-6-22 17:04:00

没人能帮忙解答吗？

user603 发表于 2012-6-22 21:44:02

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

user603 发表于 2012-6-22 21:44:22

回复 2# gdutlzl


    这里人气不行啊。

17800455 发表于 2012-6-23 13:24:21

A1="1 10 12 14"
A2="16"
A3="21 22 23"
A4="4 14 18 23"
A5="7 18 20 23"
b = Array(A1,A2,A3,A4,A5)
For Each c In b
      msgbox c
Next

黑羽祭 发表于 2012-6-25 10:15:20

回复 1# gdutlzl这样：
Dim A(5)
A(1)="1 10 12 14"
A(2)="16"
A(3)="21 22 23"
A(4)="4 14 18 23"
A(5)="7 18 20 23"

for i=1 to 5
        msgbox A(i)
Next

hsjzfling 发表于 2012-6-25 14:57:15

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 Eval(abc)

Next

wuxue107 发表于 2012-6-25 22:31:43

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
        Execute "msgbox " & abc
Next

TestWith1314 发表于 2012-7-10 15:17:48

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

查看完整版本: 求助一个vbs语法方面的问题，先谢过了