如何使用数组显示下拉菜单

Sub DoDropDown（Arr（），strselname，onchange，strselected，strexclude）
朦胧的我
如果strselected <>然后
交换率，strselected
最后如果
response.write
我= 0，UBound（ARR）
如果是（我）空（ARR <>和（我））=假和ARR（我）<> strexclude然后
response.write Arr（我）
最后如果
下一个
response.write
端子

Sub Swap（Arr（）（），strselected）
交换数组中的元素
昏暗的storestring，我
我= 0，UBound（ARR）
如果Arr（我）= strselected然后
storestring = Arr（我）
Arr（我）= ARR（0）
Arr（0）= storestring
最后如果
下一个
端子