如下求解释~，关于函数array和ubound的应用中的问题

Question

首先声明，我想用按键精灵编个这样的脚本
有两个下拉菜单，第一个是全国的31省的名称，第二个是对应的31个省的全部地市名称，假如我电脑里有个表格里面存着比如河北省石家庄市，河北省张家口市，四川省成都市，等全国的包括省名的地市名，然后我想通过复制表格里的某个地市名，然后获取剪切板内容，最后在两个下拉菜单里选到对应的省和地市名。
先做了个脚本实验，把31个省名称存入a ，假如第一个下拉菜单第一个省是黑龙江，第二个是吉林 那a数据里的顺序就是下面这样的
a = array("黑龙江","吉林",)
b = Plugin.Sys.GetCLB()
假如现在复制的是黑龙江省哈尔滨市
for e = 0 to ubound(a)
if instr(b,a(e)) =1
q=e
endif
next
现在这个q+1这个数值就是1了，然后选择第一个下拉菜单 然后DOWN q+1 就可以选到黑龙江省，全国31个省还好写，但是31个省对应的地市该怎么写呢，也就是相对应的第二个下拉菜单的地市名怎么判断呢，有没有比较快捷的方式。

Answer 1

返回一个 Long 型数据，其值为指定数组维可用的最小下标。语法LBound(arrayname[, dimension])LBound 函数的语法包含下面部分：部分 描述arrayname 必需的。数组变量的名称，遵循标准的变量命名约定。dimension 可选的；Variant (Long)。指定返回哪一维的下界。1 表示第一维，2 表示第二维，如此类推。如果省略 dimension，就认为是 1。说明LBound 函数与 UBound 函数一起使用，用来确定一个数组的大小。UBound 用来确定数组某一维的上界。对具有下述维数的数组而言，LBound 的返回值见下表：Dim A(1 To 100, 0 To 3, -3 To 4)语句 返回值LBound(A, 1) 1LBound(A, 2) 0LBound(A, 3) -3所有维的缺省下界都是 0 或 1，这取决于 Option Base 语句的设置。使用 Array 函数创建的数组的下界为 0；它不受 Option Base 的影响。对于那些在 Dim 中用 To 子句来设定维数的数组而言，Private、Public、ReDim 或 Static 语句可以用任何整数作为下界。返回一个 Long 型数据，其值为指定的数组维可用的最大下标。语法UBound(arrayname[, dimension])UBound 函数的语法包含下面部分：部分 描述arrayname 必需的。数组变量的名称，遵循标准变量命名约定。dimension 可选的；Variant (Long)。指定返回哪一维的上界。1 表示第一维，2 表示第二维，如此等等。如果省略 dimension，就认为是 1。说明UBound 函数与 LBound 函数一起使用，用来确定一个数组的大小。LBound 用来确定数组某一维的上界。对具有下述维数的数组而言，UBound 的返回值见下表：Dim A(1 To 100, 0 To 3, -3 To 4)语句 返回值UBound(A, 1) 100UBound(A, 2) 3UBound(A, 3) 4LBound 函数示例该示例使用 LBound 函数来返回数组的指定维数的最小可用下标。可以使用 Option Base 语句取代数组缺省下标值 0。Dim LowerDim MyArray(1 To 10, 5 To 15, 10 To 20) '声明数组变量。Dim AnyArray(10)Lower = Lbound(MyArray, 1) '返回 1。Lower = Lbound(MyArray, 3) '返回 10。Lower = Lbound(AnyArray) '返回 0 或 1，取决于'Option Base 的设置。UBound 函数示例该示例使用 UBound 函数，确定数组的指定维的最大可用下标。Dim UpperDim MyArray(1 To 10, 5 To 15, 10 To 20) '声明数组变量。Dim AnyArray(10)Upper = UBound(MyArray, 1) '返回 10。Upper = UBound(MyArray, 3) '返回 20。Upper = UBound(AnyArray) '返回 10。

Answer 2

这个快捷的方式,不是太好办你可以这样做!写入时也就是 a=array("黑龙江","哈尔滨市","黑龙江","齐齐哈尔市" ....)全这样,如果选黑龙江 查找黑龙江 的第下一个 也就是奇偶吧查找一下!就行了!可能麻烦点!