Question

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

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时，它似乎没有任何问题。

Answer 1

作为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”的消息框，与预期一样。

Answer 2

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

Dim arrayx() as Double

Visual Basic 6.0：函数返回数组

2 个答案: