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。这意味着它只接受整数。将其更改为Double。

Answer 2

temp＆amp; V是Long 整数，因此无法表示像0.65这样的浮点数，只需将其类型更改为Double即可。