大家好，新人报到，在学习中遇到问题，来请教各位大牛：
我的问题已包含在图片里，先谢谢大家。

'动态数组重新定义redim语句练习
'选择符合要求的数据存入新数组并输出P127-6.4
Private Sub Form_Load()
    Dim a() As Integer, b() As Integer
    Show
    ReDim a(201)
    k = 0
    For x = 100 To 200
        If x Mod 8 = 0 Then
            k = k + 1: a(k) = x
        End If
    Next x
    ReDim Preserve a(k)
    Print "100-200之间能被8整除的数有 " & k & " 个，分别是："
    For j = 1 To k
        Print a(j);
    Next j
    Print: Print
    
''下面是以二维数组的形式输入-----------------------
    ReDim b(2, 6)
    Print "用二维数组显示为："
    For i = 1 To 2
        For j = 1 To 6
        If (i - 1) * 6 + j <= 13 Then '控制引用a数组的元素数目不要超过它的总个数；
            b(i, j) = a((i - 1) * 6 + j)
            Print b(i, j);
        End If
        Next j
        Print
    Next i
End Sub

[此贴子已经被作者于2023-8-26 21:12编辑过]

    k = 0
    For x = 100 To 200
        If x Mod 8 = 0 Then
            k = k + 1: a(k) = x
        End If
    Next x
这里，a(k) = x，这时k已经是1了，所以你的a（0）还没有被赋值，还是初始值0.
如果 a(k) = x：k=k+1 ,就是从0开始了。

至于下标越界，可能就是越界了，出现错误提示的时候看看下标，查找原因。
我用你的代码，没有出现错误提示

[此贴子已经被作者于2023-8-28 08:06编辑过]

说明

ReDim 语句用来定义或重定义原来已经用带空圆括号（没有维数下标）的 Private、Public 或 Dim 语句声明过的动态数组的大小。

可以使用 ReDim 语句反复地改变数组的元素以及维数的数目，但是不能在将一个数组定义为某种数据类型之后，再使用 ReDim 将该数组改为其它数据类型，除非是 Variant 所包含的数组。如果该数组确实是包含在某个 Variant 中，且没有使用 Preserve 关键字，则可以使用 As type 子句来改变其元素的类型，但在使用了此关键字的情况下，是不允许改变任何数据类型的。

如果使用了 Preserve 关键字，就只能重定义数组最末维的大小，且根本不能改变维数的数目。例如，如果数组就是一维的，则可以重定义该维的大小，因为它是最末维，也是仅有的一维。不过，如果数组是二维或更多维时，则只有改变其最末维才能同时仍保留数组中的内容。下面的示例介绍了如何在为已有的动态数组增加其最末维大小的同时而不清除其中所含的任何数据。

ReDim X(10, 10, 10)
. . .
ReDim Preserve X(10, 10, 15)

同样地，在使用 Preserve 时，只能通过改变上界来改变数组的大小；改变下界则会导致错误。

如果将数组改小，则被删除的元素中的数据就会丢失。如果按地址将数组传递给某个过程，那么不要在该过程内重定义该数组的各维的大小。

在初始化变量时，数值变量被初始化为 0，变长的字符串被初始化为一个零长度的字符串 ("")，而定长的字符串则用 0 填充。Variant 变量被初始化为 Empty。用户自定义类型的变量的每个元素作为各自独立的变量进行初始化。在使用引用对象的变量之前，必须使用 Set 语句将一个已有的对象赋给该变量。在被赋值之前，所声明的对象变量有一个特定值 Nothing，这个值表示该变量没有指向任何对象的实例。

小心 如果 ReDim 语句所使用的变量在模块级别或过程级别不存在，则该语句就相当于一个声明语句。如果此后在一个更广的范围内又创建了同名的变量，即使使用了 Option Explicit，ReDim 也将使用后声明的这个变量，且不会导致编译错误。为了避免这种冲突，就不应把 ReDim 作为声明语句使用，而只应作为重定义数组大小的语句。

注意 要改变 Variant 所包含的数组的大小，必须在试图改变其数组大小之前显式声明该 Variant 变量。

讲解详细地道，值得学习。