vba - Excel VBA-获取包含从数组派生的数据的空白消息框

Question

我收到了一个数组的空白消息框，它应该自动具有并显示以下值:

00:00:00

01:00:00

02:00:00等等……

这是我的代码

Dim i As Integer
i = 0

Dim sampleArr(0 To 24) As Variant
Dim a As Integer
a = 0

Do Until i > 23

    sampleArr(a) = i & ":00:00"
    a = a + 1
    i = i + 1

    MsgBox sampleArr(a)
Loop

请告诉我这段代码有什么问题

Answer 1

您更新 sampleArr(a) 的值，然后递增 a。因此，要获得刚刚更新的值，您需要使用预先增加的值:a-1。

MsgBox sampleArr(a-1)