一.用函数实现下拉框检查数值：

   Vbs中函数有Sub 与Function ，区别是Sub没有返回值，Function有

Set fly =Window("Flight Reservation").WinComboBox("Fly From:")

 

Function flyCom(obj)

Dim myArr()

For i = 0 to obj.GetItemsCount -1

ReDim Preserve myArr(i)

myArr(i)= obj.GetItem(i)

Next

flyCom=myArr

End Function

调用该函数,把函数赋值给变量aa，因该函数返回值是数组类型，直接用ubound求出数组大小

aa =flyCom(fly)

for i= 0 to ubound(aa)

msgbox aa(i)

Next