如何在QBasic中查找数组参数的维度

Question

我有一个QBasic函数，它将两个数组作为参数。我想知道是否可以找到这些数组在函数中的维数。

就上下文而言，我正在为QBasic单元测试库编写一个assertArrayEqual函数。

Answer 1

没有办法做到这一点。如上所述，您可以确定下限和上限，但必须事先知道数组包含多少维度。据我所知，这甚至在更高级别的版本中都不可用。

Answer 2

这是可以做到的，但并不漂亮：（QB64源代码）。

REM sample code to find number of dimensions in an array
DIM a(2, 2, 2) AS INTEGER
DIM SHARED E AS INTEGER
ON ERROR GOTO 10
CALL array(a())
END
10 E = -1: RESUME NEXT
SUB array (a() AS INTEGER)
DO
    X = X + 1
    T = UBOUND(a, X)
    IF E THEN
        X = X - 1
        PRINT "Array has"; X; "dimensions."
        EXIT DO
    END IF
LOOP
END SUB