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 & V являются длинными целыми числами , поэтому не могут представлять числа с плавающей запятой, например 0,65, просто измените их тип на Double, что может.