如何创建一个Double的空数组

Question

我尝试创建一个空的/已定义的Double数组，该数组将反映为Double(0, -1)。

我可以为String，Variant和Byte数组创建一个：

  Dim arr_variant() As Variant
  arr_variant = Array()        ' Variant(0 to -1) '

  Dim arr_string() As String
  arr_string = Split(Empty)    ' String(0 to -1) '

  Dim arr_byte() As Byte
  arr_byte = ""                ' Byte(0 to -1) '

  Dim arr_double() As Double
  arr_double = ???             ' Double(0 to -1) '

，但仍未找到Double的方式。

可能使用LSet或使用原生函数？

Answer 1

似乎唯一的方法是调用本机函数：

employee_designations

Answer 2

我会选择 - 不可能。

看看以下代码：

Option Explicit
Sub TestMe()
    Dim arr                   'Line 1
    arr = Array(CDbl(0))      'Line 2
    arr = Array(Empty)        'Line 3
End Sub

• 第1行 - 需要一个Variant数组

• 第2行 - 使其成为双数组

• 第3行 - 清空时，它会再次从double转换为Variant。