VBA中ArrayList使用之浅见

lmgz007

在网上逛到到香川群子的题，用ArrayList解了一下：

wowo000

chxw68 发表于 2020-8-26 13:01
刚学习arraylist，一下子还想不到有什么用处。链接中的这个问题也很适合使用arraylist来解决。
http://clu ...

尊敬的chxw68：俺用win10+office2016出现错误，咋回事？？？

chxw68

wowo000 发表于 2020-9-10 19:20
尊敬的chxw68：俺用win10+office2016出现错误，咋回事？？？

没用过WIN10，是不是不支持这个插件？

一把小刀闯天下

lmgz007 发表于 2020-9-10 17:32
在网上逛到到香川群子的题，用ArrayList解了一下：

'一个链表问题，只是VBA中无法短接而已，所以效率挺难控制的，，，

Option Explicit

Const NUM As Long = 10, STP As Long = 3, POS As Long = 1

Sub test()
  Dim i As Long, p As Long, n As Long, cnt As Long
  ReDim arr(1 To NUM, 1 To 2) As Long
  If NUM = 1 Then Debug.Print 1: Exit Sub
  For i = 2 To NUM - 1
    arr(i, 1) = i + 1
    arr(i, 2) = i - 1
  Next
  arr(1, 1) = 2: arr(NUM, 1) = 1
  arr(1, 2) = NUM: arr(NUM, 2) = NUM - 1
  p = POS
  Do
    n = n + 1
    If n Mod STP = 0 Then
      cnt = cnt + 1
      arr(arr(p, 2), 1) = arr(p, 1)
      arr(arr(p, 1), 2) = arr(p, 2)
    End If
    p = arr(p, 1)
  Loop Until NUM - cnt = 1
  Debug.Print p
End Sub

deweyfbi

跟python的list很想呀，mark一下！

ggmmlol

wowo000 发表于 2020-9-10 19:20
尊敬的chxw68：俺用win10+office2016出现错误，咋回事？？？

64位office不兼容

ifreeswan

vba 使用的这个库，没有自动完成

fenghuaxue

到底需要添加对什么的引用。

旁观者？

如何通过前期绑定使用ArrayList？在引用里添加mscorlib.dll提示失败。