求助大佬们，我怎么才能将这三个数以数组方式来存储并且打印出来？

打印出来就这个样子

不是很懂为什么要从-4开始
除此之外，数组本身的使用很简单的，你用一个变量表示下一个数要存到的元素位置（下标），令其初始值为-4，然后每存一个数就令这个变量加1即可

三个数弄数组，有点奢侈了

大概过程就像这样：
Dim arr() As Integer '定义动态数组
n = -4 '数组下标从-4开始
For i = 1000 To 9999
'如果i是所求的数，则
ReDim Preserve arr(-4 To n) '重定义数组，增加一个元素
arr(n) = i '将i赋值给新元素
n = n + 1 '将n指向下一个新元素的位置
Next i
For i = -4 To n - 1
Print "arr(" & i; ")=" & arr(i) '循环输出结果
Next i

我整出来了！感谢大佬们给的帮助！