arrays - Excel VBA - 从动态数组获取值 - 不显示实数

Question

这是一些代码，显示了我遇到的问题:

Sub main()
    Dim V() As Long, x As Integer, temp As Long

    x = 5

    ReDim V(1 To x)

    V(4) = 0.65
    temp = V(4)

    MsgBox (temp) ' Returns value of 1
End Sub

我希望变量 temp 的值为:0.65，但它始终显示值为 1。我不确定我缺少什么。非常感谢任何帮助。

Answer 1

您已声明 Dim V() As Long。这意味着它只接受整数。将其更改为双。