QTP中创建数组的两种常见方式:
1.用array函数创建
示例:
Dim a
Dim Msg, dat
dat=inputbox("please input date")
a=Array("0","91","105")
For i=0 to 2
Msg = DateAdd("d", a(i),dat)
da=da +cstr(Msg)+ chr(13)
Next
MsgBox da
2.Dim申明创建
Dim a(1)
a(0)="0"
a(1)="91"
For i=0 To UBound(a)
MsgBox a(i)
Next