VBScript 数组

上一篇 / 下一篇 2011-04-10 13:32:41 / 个人分类：QTP

' Project name:Array

' Author：Tanner_Li

' Date： 2011/04/10

' ======================================

Dim Myarray(10)

For i=0 to 9

a= inputbox ("Input data "&(i+1),"Input Box","Please input here")

If a="Please input here" or a=""Then

Msgbox "Please input data!"

i=i-1

else

Myarray(i)=a

End If

For j=0 to 9

Msgbox space(25)&Myarray(j),vbYes,"Myarray("&j&") "

TAG: