如何从 OpenOffice Basic 函数返回数组？

Question

我正在阅读OpenOffice regarding arrays 上的文档，似乎Calc 能够像Excel 一样使用数组函数。

为了测试这一点，我创建了一个简单的函数，它应该返回一个数组 {1, 2, 3}：

Function Test()
    Dim Test(3) As Variant
    Test(1) = 1
    Test(2) = 2
    Test(3) = 3
End Function

当我用=Test() 填充一个单元格并按Ctrl+Shift+Enter 时，我只会得到一个包含3 的单元格。 1 和 2 在哪里？我做错了什么？

我正在运行OpenOffice 4.1.1。

Answer 1

函数返回类型的维度必须在Function 语句中完成。如果函数应该返回一个数组，那么它必须被标注为Variant。没有办法直接将函数标注为数组类型。数组本身可以在函数体内单独创建，然后作为返回值赋给函数。

像这样：

Function Test() as Variant
    Dim arr_Test(1 to 3) As Integer
    arr_Test(1) = 1
    arr_Test(2) = 2
    arr_Test(3) = 3
    Test = arr_Test
End Function

或者，如果您希望它更短，您可以使用内置的 Array 函数，该函数返回一个包含数组的 Variant。

像这样：

Function Test2() as Variant
    Test2 = Array(1,2,3)
End Function

openoffice-/libreoffice-/-BASIC 编程的文档：

https://wiki.openoffice.org/wiki/Documentation/BASIC_Guide

https://wiki.openoffice.org/wiki/Documentation/DevGuide/OpenOffice.org_Developers_Guide -> https://wiki.openoffice.org/wiki/Documentation/DevGuide/Basic/OpenOffice.org_Basic

但两者都没有完全参考 BASIC 基础知识 ;-)，例如所有内置函数的参考。

https://help.libreoffice.org/Basic/Basic_Help -> https://help.libreoffice.org/Basic/Run-Time_Functions 似乎几乎完全。