51Testing软件测试论坛

标题: 求助一个vbs语法方面的问题，先谢过了 [打印本页]
作者: gdutlzl    时间: 2012-6-21 17:07
标题: 求助一个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
没人能帮忙解答吗？
作者: user603    时间: 2012-6-22 21:44
这里人气不行啊。不知道为何。
作者: user603    时间: 2012-6-22 21:44
回复 2# gdutlzl


    这里人气不行啊。
作者: 17800455    时间: 2012-6-23 13:24

  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

复制代码
作者: 黑羽祭    时间: 2012-6-25 10:15
回复 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"

  8. for i=1 to 5
  9.         msgbox A(i)
  10. Next
复制代码
作者: hsjzfling    时间: 2012-6-25 14:57
  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"


  8. for i=1 to 5

  10. abc="A"&i
  11. msgbox Eval(abc)

  13. Next
复制代码
作者: wuxue107    时间: 2012-6-25 22:31
  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"

  7. for i=1 to 5
  8.         abc="A"&i
  9.         Execute "msgbox " & abc
  10. Next
复制代码
作者: TestWith1314    时间: 2012-7-10 15:17
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



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2