WebRadioGroup.Select

方法三 动态获取 所有Item项 ，然后循环为Item赋值
all_Items =  Browser("Browser").Page("Web Tours").Frame("info_9").WebRadioGroup("outboundFlight").GetROProperty("all Items")
Items_count =  Browser("Browser").Page("Web Tours").Frame("info_9").WebRadioGroup("outboundFlight").GetROProperty("Items count")


'分别获取每一个Item的值
For i=1 to len(all_Items)
mid_values=mid(all_Items,i,1) 
mid_values = cstr (mid_values) 
If  cint(strcomp(mid_values,";",1) ) = 0 Then
j=j+1 
If  j mod 3 = 0 Then
k = k + 1
s= k -1
else
 Item_N(k) = Item_N(k) & mid_values 
End If
else 
 Item_N(k) = Item_N(k) & mid_values 
End If
Next


For i =0 to Items_count -4
 tmp = Item_N(i) 
Browser("Browser").Page("Web Tours").Frame("info_9").WebRadioGroup("outboundFlight").Select  tmp
Next