大虾过来看看这个怎么算啊~~~

题目是这样的：
    有一个数组a()，里面的元素个数不确定，元素是数值。然后，再给定一个数A，求数组a()里面哪几个数之和等于给定的数A，并得出那几个数的下标。 --------------------编程问答--------------------

dim myI as integer

for i=0 to ubound(a)-1

' 指定数字A1

  if A1 = a(i) then

'myI就是我的下标值

    myI = i

    exit for

  end if

next

--------------------编程问答-------------------- 我错了，没看清题目 --------------------编程问答-------------------- 这个好像涉及到排列的问题，在看看啊~

补充：VB ,  VBA