Visual Basic 6.0:函数返回数组

时间:2011-05-19 08:34:54

标签: arrays function vb6

是否有更好的方法来创建函数返回数组:

function foo
 Dim bar(1 to 2)as double
 bar(1)=1
 bar(2)=2
 foo=bar
end function

并在代码中:

arrayx=foo

因为当我声明Dim arrayx(1 to 2) as double时它会抛出错误“无法分配数组”当我没有声明变量arrayx时,它似乎没有任何问题。

2 个答案:

答案 0 :(得分:13)

作为Matt suggests,此错误:

  

编译错误:无法分配给数组

源于您尝试将Foo()的返回值分配给固定数组,而不是动态数组。您只需要向编译器指出您声明的变量是一个数组,而不是数组的实际大小。它将根据返回的数组大小计算出大小。

此外,您应始终为函数指定返回值类型。你可以在VB中通过在函数声明的末尾放置一个As Type子句来实现。在这种情况下,您需要一个双精度数组,写为Double()

所以,重写你的代码看起来像这样,并结合这两个变化:

Function Foo() As Double()      ' note the specification of a return value
   Dim bar(1 To 2) As Double
   bar(1) = 1
   bar(2) = 2
   Foo = bar
End Function

Private Sub Command1_Click()
   Dim arrayx() As Double       ' note the declaration of a DYNAMIC array
   arrayx = Foo()
   MsgBox arrayx(1)
End Sub

此代码显示一个值为“1”的消息框,与预期一样。

答案 1 :(得分:2)

You can only assign to a dynamic array。尝试:

Dim arrayx() as Double