小编Wal*_*hez的帖子

我有以下代码，它基于它应该工作的逻辑。

我希望它是 (4,3,2,1)，但在循环结束时我得到 t=(4,3,3,4)

Sub try()

  Dim t As Variant

  t = Array(1, 2, 3, 4)
  a = UBound(t)

  For k = 0 To a
    t(k) = t(a - k)
  Next k

End Sub

有任何想法吗？