请问各位，我用VB写了一个函数，返回的是一个数组，调用这个函数后，UBound它出错，报下标越界。

Question

我用VB写了一个函数
Function GetCount() as variant   Dim kk() as variant   ............
   kk(3)=4
   kk(6)=6
   GetCount = kk()
End Function当调用这个函数   ff = GetCount()  后
UBound(ff)  报错，提示下标越界
请问怎么解决啊？

Answer 1

将GetCount = kk()改为GetCount = kk

Answer 2

Dim kk() as variant改为Dim kk as variant
GetCount = kk()改为GetCount = kk

Answer 3

按照上面两位的改法定义 Dim kk as variant 
当给kk负值时，kk(3) = 4
系统会知道kk为数组吗？

Answer 4

ff定义是 Dim ff as Variant

Answer 5

给数组单个赋值之前必须确定其长度
如果长度不确定可以
 array=split(string,splitchar) redim preverse array(len) as variant